[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.24 and 1.25

version 1.24, 2007/02/02 16:29:58 version 1.25, 2007/02/02 17:50:09
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
 # $RedRiver: update_trango.pl,v 1.23 2007/02/01 18:44:30 andrew Exp $  # $RedRiver: update_trango.pl,v 1.24 2007/02/02 16:29:58 mike Exp $
 ########################################################################  ########################################################################
 # update_trango.pl *** Updates trango foxes with a new firmware  # update_trango.pl *** Updates trango hosts with a new firmware
 #  #
 # 2005.11.15 #*#*# andrew fresh <andrew@mad-techies.org>  # 2005.11.15 #*#*# andrew fresh <andrew@mad-techies.org>
 ########################################################################  ########################################################################
Line 12 
Line 12 
 use Net::TFTP;  use Net::TFTP;
 use lib '.';  use lib '.';
 use Net::Telnet::Trango;  use Net::Telnet::Trango;
   use RedRiver::Wireless;
   
 my $config_file = shift || 'update_trango.yaml';  my $config_file = shift || 'update_trango.yaml';
 my $max_tries = 3;  my $max_tries = 3;
Line 21 
Line 22 
 $l->sp("Reading config file '$config_file'");  $l->sp("Reading config file '$config_file'");
 my $conf = LoadFile($config_file);  my $conf = LoadFile($config_file);
   
 my @foxes = (  $l->sp("Reading hosts");
 '10.100.1.2',  my $hosts = RedRiver::Wireless::Read_Hosts();
 '10.100.2.2',  
 '10.100.3.2',  
 '10.100.3.3',  
 '10.100.3.4',  
 '10.100.3.8',  
 '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) {  
   $l->sp("Checking: $fox");  
   foreach my $host (@{ $hosts }) {
     next if $host->{group} !~ /^Trango/;
     $l->sp("");
     $l->sp("Checking: $host->{name}");
   my $needs_reboot = 0;    my $needs_reboot = 0;
   
   ## Connect and login.    ## Connect and login.
Line 60 
Line 38 
     Timeout => 5,      Timeout => 5,
     Errmode => 'return',      Errmode => 'return',
   ) or die "Couldn't make new connection: $!";    ) or die "Couldn't make new connection: $!";
   $l->p("Connecting to $fox");    $l->p("Connecting to $host->{name}");
   unless ( $t->open($fox) ) {    unless ( $t->open($host->{name}) ) {
     $l->sp("Error connecting: $!");      $l->sp("Error connecting: $!");
     next;      next;
   }    }
   
     my $password = $host->{Telnet_Password} || $conf->{general}->{password};
   
     if ($host->{group} !~ /Client$/) {
       $l->p("Logging in");
       $t->login($password);
       unless ($t->logged_in) {
         $l->p('Failed!');
         $t->close;
         next;
       }
   
       $l->sp("Getting sudb");
       my $sudb = $t->sudb_view;
       if ($sudb) {
         foreach my $su (@{ $sudb }) {
           $l->p("Getting su info $su->{suid}");
           my $su_info = $t->su_info( $su->{suid} );
           if ($su_info->{ip}) {
             $l->sp("Adding host $su_info->{ip}");
             my $new_host = {
               Telnet_Password => $host->{Telnet_Password},
               group   => $host->{group} . '-Client',
               name    => $su_info->{ip},
               remarks => $su_info->{remarks},
             };
             push @{ $hosts }, $new_host;
           } else {
             $l->sp("Couldn't get su info for $su->{suid}");
             if ($su_info->{ERR}) {
               $l->sp("ERR: $su_info->{ERR}");
             }
             next;
           }
         }
       }
     }
   
   foreach my $firmware_type ('Firmware', 'FPGA') {    foreach my $firmware_type ('Firmware', 'FPGA') {
   
     if (! exists $conf->{$firmware_type}) {      if (! exists $conf->{$firmware_type}) {
           $l->s("No configs for '$firmware_type'");            $l->s("No configs for '$firmware_type'");
           $t->close();            $t->close;
           next;            next;
         }          }
   
Line 81 
Line 96 
   
     if (! exists $conf->{$firmware_type}->{$host_type}) {      if (! exists $conf->{$firmware_type}->{$host_type}) {
           $l->sp("No '$firmware_type' config for type $host_type");            $l->sp("No '$firmware_type' config for type $host_type");
           $t->close();            $t->close;
           next;            next;
         }          }
   
     if (! $t->logged_in) {      if (! $t->logged_in) {
       $l->p("Logging in");        $l->p("Logging in");
       $t->login($conf->{general}->{'password'});        $t->login($password);
       unless ($t->logged_in) {        unless ($t->logged_in) {
         $l->p('Failed!');          $l->p('Failed!');
         $t->bye();          $t->close;
         next;          next;
       }        }
     }      }
Line 119 
Line 134 
   }    }
   
   if ($needs_reboot) {    if ($needs_reboot) {
     $l->sp("Rebooting $fox");      $l->sp("Rebooting $host->{name}");
     $t->reboot;      $t->reboot;
   } else {    } else {
     $l->sp("Bye $fox");      $l->sp("Bye $host->{name}");
     $t->bye();      $t->bye();
   }    }
   $l->sp("");  
 }  }
   
 sub upload  sub upload
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>