| version 1.19, 2007/01/31 22:14:26 |
version 1.20, 2007/01/31 22:19:07 |
|
|
| #!/usr/bin/perl |
#!/usr/bin/perl |
| # $RedRiver: update_trango.pl,v 1.18 2007/01/31 19:01:12 mike Exp $ |
# $RedRiver: update_trango.pl,v 1.19 2007/01/31 22:14:26 andrew Exp $ |
| ######################################################################## |
######################################################################## |
| # update_trango.pl *** Updates trango foxes with a new firmware |
# update_trango.pl *** Updates trango foxes with a new firmware |
| # |
# |
|
|
| if ( $results->{'File Checksum'} ne $conf->{'file_cksum'}) { |
if ( $results->{'File Checksum'} ne $conf->{'file_cksum'}) { |
| $l->sp( |
$l->sp( |
| "File checksum '" . $results->{'File Checksum'} . |
"File checksum '" . $results->{'File Checksum'} . |
| "does not match config file '" . $conf->{'file_cksum'} . "'!" |
" does not match config file '" . $conf->{'file_cksum'} . "'!" |
| ); |
); |
| 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