[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.23 and 1.24

version 1.23, 2007/02/01 18:44:30 version 1.24, 2007/02/02 16:29:58
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
 # $RedRiver: update_trango.pl,v 1.22 2007/02/01 17:58:33 andrew Exp $  # $RedRiver: update_trango.pl,v 1.23 2007/02/01 18:44:30 andrew Exp $
 ########################################################################  ########################################################################
 # update_trango.pl *** Updates trango foxes with a new firmware  # update_trango.pl *** Updates trango foxes with a new firmware
 #  #
Line 25 
Line 25 
 '10.100.1.2',  '10.100.1.2',
 '10.100.2.2',  '10.100.2.2',
 '10.100.3.2',  '10.100.3.2',
   '10.100.3.3',
   '10.100.3.4',
   '10.100.3.8',
 '10.100.4.2',  '10.100.4.2',
   '10.100.60.5',
   '10.100.80.5',
   '10.100.150.5',
   '10.100.5.2',
   '10.100.6.2',
   '10.100.7.2',
   '10.100.8.2',
   '10.100.9.2',
   '10.100.21.2',
   '10.100.22.2',
   '10.100.23.2',
   '10.100.32.2',
   '10.100.33.2',
   '10.100.41.2',
   '10.100.51.2',
   '10.100.52.2',
   '10.100.53.2',
   '10.100.54.2',
   '10.100.61.2',
   '10.100.62.2',
 );  );
   
 foreach my $fox (@foxes) {  foreach my $fox (@foxes) {
Line 76 
Line 99 
           $conf->{$firmware_type}->{$host_type}->{$k} ||= $conf->{general}->{$k};            $conf->{$firmware_type}->{$host_type}->{$k} ||= $conf->{general}->{$k};
     }      }
         $conf->{$firmware_type}->{$host_type}->{firmware_type} ||= $firmware_type;          $conf->{$firmware_type}->{$host_type}->{firmware_type} ||= $firmware_type;
         $conf->{$firmware_type}->{$host_type}->{type} ||= $host_type;          $conf->{$firmware_type}->{$host_type}->{type} = $host_type;
   
     $l->sp("$host_type $firmware_type");      $l->sp("$host_type $firmware_type");
     $l->p("Sending commands");      $l->p("Sending commands");
Line 180 
Line 203 
     }      }
     $l->p("File length matches . . . ");      $l->p("File length matches . . . ");
   
     if ( uc($results->{'File Name'}) ne uc($conf->{'file_name'}) ) {      if ( uc($results->{'File Name'}) ne uc($file) ) {
       $l->sp(        $l->sp(
         "File name '" . $results->{'File Name'} .          "File name '" . $results->{'File Name'} .
         "' does not match config file '" . $conf->{'file_name'} . "'!"          "' does not match config file '" . $file . "'!"
       );        );
       next;        next;
     }      }
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>