Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I am trying to the Net::Telnet::Cisco module to connect to my router. However, I am unable to get it to work. Typically I connect to my router with the following command. 
telnet foo 2011

[download]
The console port of the router is connected to a term server. foo is the hostname for the term server and 2011 is the port that is connected to.

Here is some simple code that I can't get to work. What am I doing wrong?? 


use Net::Telnet::Cisco;

my $session = Net::Telnet::Cisco->new(Host => 'foo', 
                                      Port => 2011);

# This is just a simple cmd to see if it ever works
my @output = $session->cmd('sh clock');
print @output;

$session->close;

[download]
I can't believe I am having this much difficultly for something so simple.

Replies are listed 'Best First'.
Re: Unable to get Net::Telnet::Cisco to connect to router
by shockme (Chaplain) on Nov 13, 2003 at 22:58 UTC
    I'm not sure why that's not working. Here's a sample from a script which does work: 
    my $SwitchIP = '192.168.0.1';
my $password = 'seekrit';
my $t = new Net::Telnet::Cisco (Timeout   => 10,
                                Dump_log  => 'dump.log',
                                Input_log => 'input.log',
                                Port      => 2011,
                               );

$t->open("$SwitchIP");
$t->login(Password => $password);

    [download]
    Hope that helps.

    Update: I think see why your script isn't working. According to the Net::Telnet::Cisco docs, you need to issue a login command: 

    my $session = Net::Telnet::Cisco->new(Host => '123.1.1.1');
$session->login('login', 'password');

    [download]
    Your script seems to be correctly setting up the session, but you're issuing commands before you've logged into the router.

    If things get any worse, I'll have to ask you to stop helping me.

[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom