[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.9 and 1.10

version 1.9, 2005/11/18 19:17:12 version 1.10, 2005/12/21 01:17:06
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
 # $RedRiver: update_trango.pl,v 1.8 2005/11/17 20:20:59 andrew Exp $  # $RedRiver: update_trango.pl,v 1.9 2005/11/18 19:17:12 andrew Exp $
 ########################################################################  ########################################################################
 # update_trango.pl *** Updates trango foxes with a new firmware  # update_trango.pl *** Updates trango foxes with a new firmware
 #  #
Line 125 
Line 125 
     my $results = $t->tftpd;      my $results = $t->tftpd;
     # check the 'File Length' against ???      # check the 'File Length' against ???
     if ( $results->{'File Checksum'} ne $conf->{'file_cksum'}) {      if ( $results->{'File Checksum'} ne $conf->{'file_cksum'}) {
       $l->sp("File checksum does not match config file!");        $l->sp(
           "File checksum '" . $results->{'File Checksum'} .
           "does not match config file '" . $conf->{'file_cksum'} . "'!"
         );
       next;        next;
     }      }
     $l->p("File checksum ($results->{'File Checksum'}) " .      $l->p("File checksum matches . . . ");
           "matches ($conf->{'file_cksum'})");  
   
     if ($results->{'File Length'}   !~ /^$conf->{'file_size'} bytes/) {      if ($results->{'File Length'}   !~ /^$conf->{'file_size'} bytes/) {
       $l->sp("File length does not match config file!");        $l->sp(
           "File length '" . $results->{'File Length'} .
           "does not match config file '" . $conf->{'file_size'} . " bytes'!"
         );
       next;        next;
     }      }
     $l->p("File length ($results->{'File Length'}) " .      $l->p("File length matches . . . ");
           "matches ($conf->{'file_size'})");  
   
     if ( uc($results->{'File Name'}) ne uc($conf->{'file_name'}) ) {      if ( uc($results->{'File Name'}) ne uc($conf->{'file_name'}) ) {
       $l->sp("File name does not match config file!");        $l->sp(
           "File name '" . $results->{'File Name'} .
           "' does not match config file '" . $conf->{'file_name'} . "'!"
         );
       next;        next;
     }      }
     $l->p("File name ($results->{'File Name'}) " .      $l->p("File name  matches . . . ");
           "matches ($conf->{'file_name'})");  
   
     $l->p("Updating flash (new checksum '$conf->{'cksum'}')");      $l->p("Updating flash (new checksum '$conf->{'cksum'}')");
     unless ($results = $t->updateflash(      unless ($results = $t->updateflash(
Line 179 
Line 185 
     next if /^#/;      next if /^#/;
     next if /^$/;      next if /^$/;
     if ($in_ip_list) {      if ($in_ip_list) {
         s/\s+//g; # Whitespace is a no no
   
       if (/^(\d{1,3}\.\d{1,3}\.\d{1,3}\.)(\d{1,3})-(\d{1,3})/) {        if (/^(\d{1,3}\.\d{1,3}\.\d{1,3}\.)(\d{1,3})-(\d{1,3})/) {
         push @{ $conf{'ips'} }, $1 . $_ for ($2..$3);          push @{ $conf{'ips'} }, $1 . $_ for ($2..$3);
       } else {        } else {
Line 192 
Line 200 
         next;          next;
       }        }
   
         $key =~ s/^\s+//;
         $key =~ s/\s+$//;
         $val =~ s/^\s+//;
         $val =~ s/\s+$//;
   
       $conf{ lc($key) } = $val;        $conf{ lc($key) } = $val;
     }      }
   }    }
Line 294 
Line 307 
   my $banner = shift || $PRIVATE{'login_banner'};    my $banner = shift || $PRIVATE{'login_banner'};
   
   my ($type, $ver) = $banner =~    my ($type, $ver) = $banner =~
     /Welcome to Trango Broadband Wireless (\w+)-(.+)$/i;      /Welcome to Trango Broadband Wireless (.+)[\s-](\w+)$/i;
   
   $self->host_type($type);    $self->host_type($type);
   $self->firmware_version($ver);    $self->firmware_version($ver);
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>