Opened by krusty at 2006-10-12 20:35
User since
2006-01-27
91 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-01-27
91 Artikel
BenutzerIn
Hallo zusammen,
habe ein Problem bei dem Zugriff auf einen Router über mein Perl Script.
Der Login funktioniert, das sehe ich in der Ausgabedatei.
Nur wenn ich mich eingeloggt habe bekomme ich die Fehlermeldung
"timed-out waiting for command prompt".
Mein Script sieht so aus:
Könnt ihr mir sagen was ich falsch mache.
Gruß
habe ein Problem bei dem Zugriff auf einen Router über mein Perl Script.
Der Login funktioniert, das sehe ich in der Ausgabedatei.
Nur wenn ich mich eingeloggt habe bekomme ich die Fehlermeldung
"timed-out waiting for command prompt".
Mein Script sieht so aus:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
my $session = Net::Telnet->new (Host => $ip,
Timeout => "30",
Input_log => "/debug/".$ip."_input.log",
Output_log => "/debug/".$ip."_output.log",
errmode => \&errorhandler
);
# Einloggen
$session->login('user', 'password');
# Einlesen der Befehle
$noscreen = "/srv/www/noscreen.cfg";
open(NO, "<$noscreen");
while ($zeile = <NO>)
{
sleep 2;
$session->cmd($zeile);
}
close (NO);
$session->close;
Könnt ihr mir sagen was ich falsch mache.
Gruß