Thread Net::Telnet Cisco Terminalserver Problem (7 answers)
Opened by thommy1985 at 2008-01-23 16:43

thommy1985
 2008-01-23 16:43
#105064 #105064
User since
2008-01-23
4 Artikel
BenutzerIn
[default_avatar]
Hallo,

habe folgendes Problem. Nachfolgendes Script soll sich auf einem Cisco Terminal Server einwählen und Befehle absetzen. Der Promt ist sofort verfügbar wenn die Telnet verbindung aufgebaut ist. (kein Login, kein Passwort)


Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#!/usr/bin/perl
$inputlog  = "/home/test/input.log";             # your input logfile
$outputlog = "/home/test/output.log";    # your input logfile
use Net::Telnet;
$telnet=new Net::Telnet(Timeout=>5, Errmode=> 'Die', Port => 2004,
                                                                                Input_log => $inputlog,
                                                                                Output_log => $outputlog);


$telnet->open('10.1.1.1');
$telnet->print("\n");
$telnet->print("en");
$telnet->print("terminal length 0");
@output=$telnet->cmd('sh run');
print ("Output is: @output \n");


Ich bekomme aber in der Zeile @output=$telnet->cmd('sh run'); folgende Fehlermeldung:


Code: (dl )
1
2
root@itislanserver2:~# perl test2.pl
command timed-out at test2.pl line 14


Ausgabe der In/Outputlogs:
Code: (dl )
1
2
3
4
5
6
7
8
root@itislanserver2:~# cat input.log
root@itislanserver2:~# cat output.log


en
terminal length 0
sh run
root@itislanserver2:~#


Hat jemand ein solches Problem schon einmal gehabt? Kann mir jemand Helfen?

Schonmal vielen Dank

Thomas

View full thread Net::Telnet Cisco Terminalserver Problem