version 1.28, 2007/02/02 22:37:24 |
version 1.29, 2007/02/05 16:37:20 |
|
|
#!/usr/bin/perl |
#!/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 |
# update_trango.pl *** Updates trango hosts with a new firmware |
# |
# |
|
|
$l->sp("Getting sudb"); |
$l->sp("Getting sudb"); |
my $sudb = $t->sudb_view; |
my $sudb = $t->sudb_view; |
if ($sudb) { |
if ($sudb) { |
|
$t->su_password($password); |
foreach my $su (@{ $sudb }) { |
foreach my $su (@{ $sudb }) { |
$l->p("Getting su info $su->{suid}"); |
$l->p("Getting su info $su->{suid}"); |
my $su_info = $t->su_info( $su->{suid} ); |
my $su_info = $t->su_info( $su->{suid} ); |