As I expact, I just fixed the scope errors but the problem remains.
This is it:
sub telnet_access
{
my $username = $main::username;
my $passwd = $main::passwd;
my $command_1 = "cd /home/chris/servlist/";
my @ra;
my $rs;
my $t;
$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";
$rs = $t->login ($username, $passwd) or die "login failed\n";
@ra = $t->print ( $command_1 ) or die "cannot change dir!\n";
$rs = $t->print ( "./komm-test.pl" ) or die "cannot start script!\n";
print "$rs\n";
$t->close ();
}
It runs without any errors but also without purpose, because it doesn't start
the script on the remote host. :-\
Gruss Christian
--
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>
