version 1.27, 2007/02/02 21:36:00 |
version 1.28, 2007/02/02 22:37:24 |
|
|
#!/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.27 2007/02/02 21:36:00 andrew Exp $ |
######################################################################## |
######################################################################## |
# update_trango.pl *** Updates trango hosts with a new firmware |
# update_trango.pl *** Updates trango hosts with a new firmware |
# |
# |
|
|
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; |
} |
} |
|
|