Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

command is timing-out when execute the script

by balup (Initiate)
on Sep 03, 2012 at 12:18 UTC ( #991412=perlquestion: print w/ replies, xml ) Need Help??
balup has asked for the wisdom of the Perl Monks concerning the following question:

I am using NET::TELNET module to configure a router. I am facing the following issue. My Script : ===========
#!/usr/bin/perl use strict; use warnings; use Net::Telnet; #Connecting the DUT: my $t = Net::Telnet->new ( Timeout => 3, input_log => "D:/Profiles/admin/Desktop/input.log", ); $t->open("192.168.210.2"); $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 C +NTL\/Z.]/'); $t->waitfor('/[\W\(config)#]/'); #$t->print("show version"); #STEP 1 : Intersting Traffic configuration: @lines = $t->cmd("ip access-list 0.100"); $t->waitfor('/[\W\(config)#]/'); @lines = $t->cmd ("permit ip 192.168.1.0/24 192.168.101.0/24 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 issue.

Thanks in advance.

Comment on command is timing-out when execute the script
Download Code
Re: command is timing-out when execute the script
by protist (Monk) on Sep 03, 2012 at 12:39 UTC

    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("192.168.210.2"); $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 192.168.1.0/24 192.168.101.0/24 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.

      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
Re: command is timing-out when execute the script
by RichardK (Priest) on Sep 03, 2012 at 14:20 UTC

    What makes you think this is a problem with your perl?

    Are you sure that "ip access-list 0.100" is a valid command for the device you're connecting to?

Re: command is timing-out when execute the script
by NetWallah (Abbot) on Sep 04, 2012 at 14:24 UTC
    Try using the "debug" option in Net::Telnet to show you the actual dialogue.

    The other possibility is that you are using a pre-11.1 version of the Cisco IOS, which does not support extended access-lists.

                 I hope life isn't a big joke, because I don't get it.
                       -SNL

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://991412]
Approved by marto
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (8)
As of 2014-07-11 08:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (222 votes), past polls