===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/scripts/update_trango.pl,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -r1.27 -r1.28
--- trango/Net-Telnet-Trango/scripts/update_trango.pl	2007/02/02 21:36:00	1.27
+++ trango/Net-Telnet-Trango/scripts/update_trango.pl	2007/02/02 22:37:24	1.28
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $RedRiver: update_trango.pl,v 1.25 2007/02/02 17:50:09 andrew Exp $
+# $RedRiver: update_trango.pl,v 1.27 2007/02/02 21:36:00 andrew Exp $
 ########################################################################
 # update_trango.pl *** Updates trango hosts with a new firmware
 # 
@@ -109,7 +109,6 @@
           if ($su_info->{ERR}) {
             $l->sp("ERR: $su_info->{ERR}");
           }
-          next;
         }
       }
     }
@@ -131,6 +130,14 @@
     if (! exists $conf->{$firmware_type}->{$host_type}) {
       $l->sp("No '$firmware_type' config for type $host_type");
       $t->close;
+      next;
+    }
+
+    if ($firmware_type eq 'Firmware' && 
+      $t->firmware_version eq 
+      $conf->{$firmware_type}->{$host_type}->{ver}
+    ) {
+      $l->sp("Firmware already up to date");
       next;
     }