Re^2: Net Telnet Cisco

Paul - Karavelov's answer did not work. I wish I knew why. As I said, this shouldn't be that difficult. I can see that all of my commands are being input by viewing the input and output logs. Their contents are as such:

INPUT
User Access Verification

Username: Cisco
Password:
DistrictOffice#copy tftp start
Address or name of remote host []? 172.16.0.100
Source filename []? ACES.cfg
Destination filename startup-config? startup-config
Accessing tftp://172.16.0.100/ACES.cfg...
Loading ACES.cfg from 172.16.0.100 (via
GigabitEthernet0/1): !!
OK - 6231 bytes
OK
6231 bytes copied in 9.320 secs (669 bytes/sec)
DistrictOffice#

OUTPUT
Cisco
Cisco
copy tftp start
172.16.0.100
ACES.cfg
startup-config
reload

The fact that my final 'reload' command shows up in my output log and not my input log tells me that the 9 or 10s time for the tftp file to download is where this is breaking. I entered a Prompt variable, but I shouldn't have to since Net::Telnet::Cisco already recognizes most prompts. I also have always_waitfor_prompt, but I'm not sure I've specified it correctly. In other words, is the syntax $session->always_waitfor_prompt all that is necessary?

Current code:

my $session = Net::Telnet::Cisco->new(
Host => $switch,
Prompt => '/.*#/', 
Input_log => "input.log", 
Output_log => "output.log", 
Timeout => 30);

$session->always_waitfor_prompt;

# Wait for the username prompt and enter username
@out = $session->waitfor('/Username:.*$/');
print "@out\n";
@out = $session->print($user);
print "@out\n";
# Wait for the password prompt and enter the password
@out = $session->waitfor('/Password:.*$/');
print "@out\n";
@out = $session->print($password);
print "@out\n";
@out = $session->cmd("copy tftp start\n$tftp_server\n$config_file\n$de
+st_file\n");
print "@out\n";
@out = $session->cmd("reload\n\n");
print "@out\n";
@out = $session->close;
[download]

Regards, Scott

Comment on Re^2: Net Telnet Cisco Download Code

Replies are listed 'Best First'.
Re^3: Net Telnet Cisco by spivey49 (Monk) on Jul 22, 2008 at 18:17 UTC
Update: I didn't realize where you were timing out. Try session->waitfor('/#/') after the copy command instead of the sleep. That should avoid issues with a long TFTP copy Might be a timing\prompt issue. Here's your copy dialog prompt: DistrictOffice#copy tftp start Address or name of remote host []? 172.16.0.100 Using session->waitfor('/\?/') might work.	[reply]
Re^3: Net Telnet Cisco by spickles (Scribe) on Jul 22, 2008 at 18:11 UTC
I put a sleep 20; inbetween the copy command and reload. It seems to work ok...for now. Scott	[reply]
Re^3: Net Telnet Cisco by karavelov (Monk) on Jul 22, 2008 at 18:51 UTC
You should "enable" yourself in order to download the config and issue "reload" command	[reply]
Re^4: Net Telnet Cisco by spickles (Scribe) on Jul 24, 2008 at 02:24 UTC
karavelov - This is a walled-off garden test lab, so passwords and security for this are default. I have placed on the vty lines privilege level 15 - no need for "enable". I had tried the 'waitfor' with the pound sign, but if you read the docs on Net::Telnet::Cisco, that is a prompt that is already recognized, and default is 'always_waitfor_prompt'. So I don't see how these additions would work. My use of the 'sleep 20' is at the very least reliable and repeatable. Regards, Scott	[reply]
Re^4: Net Telnet Cisco by Anonymous Monk on Jul 18, 2012 at 16:25 UTC
Hi all: http://search.cpan.org/~joshua/Net-Telnet-Cisco-1.10/Cisco.pm#Backup_via_TFTP my $backup_host = "tftpserver.somewhere.net"; my $device = "cisco.somewhere.net"; my $type = "router"; # or "switch"; my $ios_version = 12; my @out; if ($type eq "router") { if ($ios_version >= 12) { @out = $session->cmd("copy system:/running-config " . "tftp://$backup_host/$device-confg\n\n\n"); } elsif ($ios_version >= 11) { @out = $session->cmd("copy running-config tftp\n$backup_host +\n" . "$device-confg\n"); } elsif ($ios_version >= 10) { @out = $session->cmd("write net\n$backup_host\n$device-confg +\n\n"); } } elsif ($type eq "switch") { @out = $session->cmd("copy system:/running-config " . "tftp://$backup_host/$device-confg\n\n\n"); } [download] Norman	[reply] [d/l]