version 1.27, 2007/02/02 21:36:00 |
version 1.29, 2007/02/05 16:37:20 |
|
|
#!/usr/bin/perl |
#!/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 |
# 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} ); |
|
|
if ($su_info->{ERR}) { |
if ($su_info->{ERR}) { |
$l->sp("ERR: $su_info->{ERR}"); |
$l->sp("ERR: $su_info->{ERR}"); |
} |
} |
next; |
|
} |
} |
} |
} |
} |
} |
|
|
if (! exists $conf->{$firmware_type}->{$host_type}) { |
if (! exists $conf->{$firmware_type}->{$host_type}) { |
$l->sp("No '$firmware_type' config for type $host_type"); |
$l->sp("No '$firmware_type' config for type $host_type"); |
$t->close; |
$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; |
next; |
} |
} |
|
|