===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/scripts/update_trango.pl,v
retrieving revision 1.27
retrieving revision 1.29
diff -u -r1.27 -r1.29
--- 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/05 16:37:20	1.29
@@ -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.28 2007/02/02 22:37:24 andrew Exp $
 ########################################################################
 # update_trango.pl *** Updates trango hosts with a new firmware
 # 
@@ -88,6 +88,7 @@
     $l->sp("Getting sudb");
     my $sudb = $t->sudb_view;
     if ($sudb) {
+      $t->su_password($password);
       foreach my $su (@{ $sudb }) {
         $l->p("Getting su info $su->{suid}");
         my $su_info = $t->su_info( $su->{suid} ); 
@@ -109,7 +110,6 @@
           if ($su_info->{ERR}) {
             $l->sp("ERR: $su_info->{ERR}");
           }
-          next;
         }
       }
     }
@@ -131,6 +131,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;
     }