[BACK]Return to update_trango.pl CVS log [TXT][DIR] Up to [local] / trango / Net-Telnet-Trango / scripts

Diff for /trango/Net-Telnet-Trango/scripts/update_trango.pl between version 1.5 and 1.7

version 1.5, 2005/11/16 21:39:51 version 1.7, 2005/11/17 20:09:45
Line 1 
Line 1 
 #!/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.6 2005/11/17 00:40:06 andrew Exp $
 ########################################################################  ########################################################################
 # update_trango.pl *** Updates trango foxes with a new firmware  # update_trango.pl *** Updates trango foxes with a new firmware
 #  #
Line 44 
Line 44 
   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 =~
Line 327 
Line 333 
     next if /^#/;      next if /^#/;
     next if /^$/;      next if /^$/;
     if ($in_ip_list) {      if ($in_ip_list) {
       push @{ $conf{'ips'} }, $_;        if (/^(\d{1,3}\.\d{1,3}\.\d{1,3}\.)(\d{1,3})-(\d{1,3})/) {
           push @{ $conf{'ips'} }, $1 . $_ for ($2..$3);
         } else {
           push @{ $conf{'ips'} }, $_;
         }
     } else {      } else {
       my ($key, $val) = split /\s+/, $_, 2;        my ($key, $val) = split /\s+/, $_, 2;
   
Line 351 
Line 361 
       if (not exists $conf{$_});        if (not exists $conf{$_});
   }    }
   
     #print Dump \%conf;
     #exit;
   return \%conf;    return \%conf;
 }  }
   
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.7
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>