===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/scripts/update_trango.pl,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -r1.23 -r1.24
--- trango/Net-Telnet-Trango/scripts/update_trango.pl	2007/02/01 18:44:30	1.23
+++ trango/Net-Telnet-Trango/scripts/update_trango.pl	2007/02/02 16:29:58	1.24
@@ -1,5 +1,5 @@
 #!/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
 # 
@@ -25,7 +25,30 @@
 '10.100.1.2',
 '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) {
@@ -76,7 +99,7 @@
 	  $conf->{$firmware_type}->{$host_type}->{$k} ||= $conf->{general}->{$k};
     }
 	$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->p("Sending commands");
@@ -180,10 +203,10 @@
     }
     $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(
         "File name '" . $results->{'File Name'} .
-        "' does not match config file '" . $conf->{'file_name'} . "'!"
+        "' does not match config file '" . $file . "'!"
       );
       next;
     }