| version 1.25, 2007/02/02 17:50:09 |
version 1.26, 2007/02/02 18:08:56 |
|
|
| #!/usr/bin/perl |
#!/usr/bin/perl |
| # $RedRiver: update_trango.pl,v 1.24 2007/02/02 16:29:58 mike Exp $ |
# $RedRiver: update_trango.pl,v 1.25 2007/02/02 17:50:09 andrew Exp $ |
| ######################################################################## |
######################################################################## |
| # update_trango.pl *** Updates trango hosts with a new firmware |
# update_trango.pl *** Updates trango hosts with a new firmware |
| # |
# |
|
|
| my $fw_type = $conf->{firmware_type}; |
my $fw_type = $conf->{firmware_type}; |
| |
|
| my $ver = $t->ver; |
my $ver = $t->ver; |
| |
|
| |
if (! ( |
| |
$ver->{$fw_type . ' Version'} && |
| |
$ver->{$fw_type . ' Checksum'} |
| |
)) { |
| |
$l->sp("Error getting current version numbers"); |
| |
return; |
| |
} |
| |
|
| if ( |
if ( |
| $ver->{$fw_type . ' Version'} eq $conf->{'ver'} && |
$ver->{$fw_type . ' Version'} eq $conf->{'ver'} && |
![[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