===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/scripts/update_trango.pl,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -r1.28 -r1.29
--- trango/Net-Telnet-Trango/scripts/update_trango.pl	2007/02/02 22:37:24	1.28
+++ 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.27 2007/02/02 21:36:00 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} );