I am being lazy for the moment and not looking at the man page for Net::Telnet or Net::Telnet::Cisco.

There is a way to get Net::Telnet to write an audit log of the conversation between your script and the device. If you invoke that you might get some idea of what is going wrong.

Yes, look into the dump_log:


    dump_log - log all I/O in dump format
            $fh = $obj->dump_log;

            $fh = $obj->dump_log($fh);

            $fh = $obj->dump_log($filename);
[download]



"Nothing is sure but death and taxes" I say combine the two and its death to all taxes!

my $session;

$session = Net::Telnet::Cisco->new(Host => $switch->{IP});
$session->login(Password => $switch->{PASS1});

$session->close();
[download]

Yes, you are.

$session->login(Password => $switch->{PASS1});
[download]

login needs both username and password.

~~
naChoZ

Is the prompt from the switch what Net::Telnet::Cisco thinks it should be?

---

Peter L. Berghold	Brewer of Belgian Ales
Peter@Berghold.Net	www.berghold.net
Unix Professional

nachoz, i tried

$session->login(undef,'password');
[download]

because there is no username for the login, just a password, but that did not work. and the router has a prompt

router>
router#
router$
[download]

so is that okay?

Sometime after I wrote my script, my boss in his infinite wisdom decided to hack the sh*t out of my code and render it unreconizable and unreadable. Otherwise I would have posted sniglets of it here.

Here is what I remember of what I did when I wrote my login routine:

• First off I did not use the login method supplied by Net::Telnet or Net::Telnet::Cisco.
• Instead I used the print -- waitfor combination and decided what to do next based on ($match,$prematch)
• Since there are multiple passwords in our environmet for the network elemenets on our network. To get around that issue I used my own form of try<->catch type of logic.

---

Peter L. Berghold	Brewer of Belgian Ales
Peter@Berghold.Net	www.berghold.net
Unix Professional

Ah, ok, Didn't catch that. I haven't used it since approx 1.04. Did you try having it print the password to the screen 1st?

~~
naChoZ

~~
naChoZ

nope :(

In that case, I'd probably do the obvious and have it print out the login and passwd first so that you know exactly what's being submitted.

~~
naChoZ

Sorry to beat this horse to death, but I just want to make sure of this, did you surround it so that you could make sure there weren't any extra spaces or chars in it? I usually do something like:

print "-->$foo<--\n";
[download]

So if there's a trailing space, for instance, it will output:

-->bar <--

~~
naChoZ

$session->login(Password => 'password');
[download]