Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

Re: command is timing-out when execute the script

by protist (Monk)
on Sep 03, 2012 at 12:39 UTC ( #991423=note: print w/replies, xml ) Need Help??

in reply to command is timing-out when execute the script

I figured I could help most by reformatting your post.

I am using NET::TELNET module to configure a router. I am facing the f +ollowing issue. My Script : =========== #!/usr/bin/perl use strict; use warnings; use Net::Telnet; #Connecting the DUT: my $t = Net::Telnet->new ( Timeout => 3, input_l +og => "D:/Profiles/admin/Desktop/input.log", ); $t->open(""); $t->waitfor('/\W login:gi/'); $t->print("admin"); $t->waitfor('/Password:/'); $t->print("cisco"); $t->waitfor('/\W\>/'); $t->print("enable"); $t->waitfor('/\W\#/'); $t->print("configure terminal"); $t->waitfor('/Enter configuration commands, one per line. End with CN +TL\/Z./'); $t->waitfor('/\W\(config)#/'); #$t->print("show version"); #STEP 1 : Intersting Traffic configuration: @lines = $t->cmd("ip acce +ss-list 0.100"); $t->waitfor('/\W\(config)#/'); @lines = $t->cmd ("permit ip log rule +-precedence 111"); $t->waitfor('/\W\(config)#/'); $t->print ("commit write memory"); $t->waitfor('/\W\(config)#/'); $t->print ("show context"); PROBLEM: ======= When I execute this script, script is "timing-out at + line 61". That is "@lines = $t->cmd("ip access-list 0.100"); " Its executing only first command. Please help me to resolve this iss +ue. Thanks in advance.

Replies are listed 'Best First'.
Re^2: command is timing-out when execute the script
by marto (Bishop) on Sep 03, 2012 at 12:51 UTC

    Code tags are for code and data, everything else does not need to be within code tags. See Markup in the Monastery. The post is already flagged to add code tags where appropriate.

      was just making it legible...ran it through sed

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://991423]
[LanX]: GotToBTru ++ # erix & MySql ... talk about a database trigger xD
[LanX]: though not today ...
erix not into Legacy databaseware :P

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (16)
As of 2017-03-30 16:07 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (360 votes). Check out past polls.