| version 1.5, 2005/11/16 21:39:51 |
version 1.6, 2005/11/17 00:40:06 |
|
|
| #!/usr/bin/perl
|
#!/usr/bin/perl
|
| # $RedRiver: update_trango.pl,v 1.4 2005/11/16 21:13:39 andrew Exp $
|
# $RedRiver: update_trango.pl,v 1.5 2005/11/16 21:39:51 andrew Exp $
|
| ########################################################################
|
########################################################################
|
| # update_trango.pl *** Updates trango foxes with a new firmware
|
# update_trango.pl *** Updates trango foxes with a new firmware
|
| #
|
#
|
|
|
| my $host = new Net::Telnet (Timeout => 5,
|
my $host = new Net::Telnet (Timeout => 5,
|
| Prompt => '/#> *$/');
|
Prompt => '/#> *$/');
|
| mylog("Connecting to $fox");
|
mylog("Connecting to $fox");
|
| $host->open($fox);
|
unless ( $host->open( Host => $fox, Errmode => 'return') ) {
|
| |
mylog("Couldn't connect to $fox. Connection timed out.", LOG_SAVE);
|
| |
next;
|
| |
}
|
| $host->dump_log('dump.log');
|
$host->dump_log('dump.log');
|
|
|
|
| ## Login to remote host.
|
## Login to remote host.
|
| $host->waitfor(
|
unless ($host->waitfor(
|
| -match => '/password: ?$/i',
|
-match => '/password: ?$/i',
|
| -errmode => "return",
|
-errmode => "return",
|
| ) or die "problem connecting to host ($fox): ", $host->lastline;
|
) ) {
|
| |
mylog("problem connecting to host ($fox): " . $host->lastline, LOG_SAVE);
|
| |
next;
|
| |
}
|
|
|
|
| my $login_banner = $host->lastline;
|
my $login_banner = $host->lastline;
|
| my ($type, $version) = $login_banner =~
|
my ($type, $version) = $login_banner =~
|
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to update_trango.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / trango / Net-Telnet-Trango / scripts