| 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; |
| } |
} |
| |
|
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to update_trango.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / trango / Net-Telnet-Trango / scripts