Sorry for reactivating this old thread. I had the same problem as Nir and I wrote a little Perl script. This script automatic login over telnet to your SAP J2EE engine and can run any command. In the code listing below I restart a application. Maybe this is useful for you and all people who will find this thread over the search. It will work under Windows and *nix. Change the first line to your Perl interpreter.
[code]
#!C:\Perl\bin\perl.exe
######################################################
#
Nils Knieling; Mittwoch, 15. November 2006 08:54:12
#
Do something automatic, like stopping and starting
of a application.
#
######################################################
use Net::Telnet;
use strict;
USER VARIABLES START HERE ######
Your SAP J2EE Engine Host
my $host = 'sapdbesh';
SAP Telnet Port 5<SID>08
my $port = '54508';
Login
my $user = 'espadm';
JUMP to Server 0
my $jump = 'jump 0';
Application
my $app = 'sap.com/crm.b2c';
What should this script do?
my @dothis = (
'version',
'info',
'add deploy',
"stop_app $app",
"start_app $app",
);
Print telnet commands and output 0 = No | 1 = Yes
my $echo = '1';
USER VARIABLES END HERE ######
my @output = ();
my $telnet = new Net::Telnet ( Timeout=>10, Port => $port, Errmode=>'die');
print "\n\Uopen telnet connection: $user\@$host:$port\n\n" unless ($echo == '0');
print "Password for user \"$user\"? (The password will show as clear text)\n" unless ($echo == '0');
my $password = <STDIN>; # You can enter the password here
chomp($password);
Open connection
See SAP Note: 531293
$telnet->open($host);
$telnet->waitfor('/login: /i');
print "\n\Usend login\n" unless ($echo == '0');
$telnet->print("$user");
$telnet->waitfor('/password: /i');
print "\n\Usend password\n" unless ($echo == '0');
$telnet->print($password);
print "\n\Ulogin ok !\n\n" unless ($echo == '0');
$telnet->waitfor('/\>/i');
$telnet->print("$jump");
@output = $telnet->waitfor('/\>\>/i');
for (@output) {
print "$_\n" unless ($echo == '0');
}
JUST DO IT [tm]
for (@dothis) {
$telnet->print("$_");
@output = $telnet->waitfor('/\>/i');
for (@output) {
print "$_\n" unless ($echo == '0');
}
}
print "\n\Uclose connection\n" unless ($echo == '0');
$telnet->print("exit");
unless ($echo == '0') {
print "\n\Ufine\n\n\n";
my $end = <STDIN>;
}
[/code]
Regards from Hamburg Germany
-- Nils
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.