Hello together,
I have certain problem with the Net::Telnet () -package.
I try to call a program on a remote server over the telnet. ( I cannot use
SSH in this case! )
my $command = "cd /home/chris/servlist
$t = new Net::Telnet (Timeout => 15,Prompt =>
'/\[datagate\]\/KOMM\/datagate>/') or die "cannot call telnet!\n";
$t->open ("komm") or die "cannot establish a connection!\n";
$rueck = $t->login ($username, $passwd) or die "login failed!\n";
... so far it works.
But now I try this:
@ra = $t->print ( $command_1 ) or die "cannot change dir !\n";
$rs = $t->print ( "./komm-test.pl" ) or die "cannot start script!\n";
And this doesn't work. I neither crashes down nor gives me a error-message!
The return value $rs is 1 !!!!
....
$t->close ();
What did I wrong?
Gruss Christian
P.S by the way, I can see that the script doesn't start because "komm-test.pl
creates a file if it starts!
--
Christian Stalp
Institut f�r Medizinische Biometrie, Epidemiologie und Informatik (IMBEI)
Obere Zahlbacher Stra�e 69
55131 Mainz
Tel.: 06131/ 17-6852
E-Mail: [EMAIL PROTECTED]
Internet: www.imbei.de
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
