trango/Net-Telnet-Trango/scripts/update_trango.pl - diff

Return to update_trango.pl CVS log

Up to [local] / trango / Net-Telnet-Trango / scripts

version 1.18, 2007/01/31 19:01:12

version 1.19, 2007/01/31 22:14:26

Line 1

#!/usr/bin/perl

# $RedRiver: update_trango.pl,v 1.17 2007/01/31 18:44:27 mike Exp $

# $RedRiver: update_trango.pl,v 1.18 2007/01/31 19:01:12 mike Exp $

########################################################################

# update_trango.pl *** Updates trango foxes with a new firmware

Line 83

my $t = shift;

my $file = shift;

my $fw_type = 'Firmware';

if (uc($conf->{'firmware_type'}) eq 'FPGA') {

$fw_type = 'FPGA';

}

my $ver = $t->ver;

$l->p("Current version '$ver->{'Firmware Version'}'");

$l->p("Current version '" . $ver->{$fw_type . ' Version'} . "'");

if (

$ver->{'Firmware Version'} eq $conf->{'ver'} &&

$ver->{$fw_type . ' Version'} eq $conf->{'ver'} &&

$ver->{'Firmware Checksum'} eq $conf->{'cksum'}

$ver->{$fw_type . ' Checksum'} eq $conf->{'cksum'}

) {

$l->sp("Already updated!");

return 1;

Line 150

Line 155

}

$l->p("File name matches . . . ");

$l->p("Updating flash (new checksum '$conf->{'cksum'}')");

my $image_type = 'mainimage';

if ($fw_type eq 'FPGA') {

$image_type = 'fpgaimage';

}

$l->p("Updating $image_type (new checksum '$conf->{'cksum'}')");

unless ($results = $t->updateflash(

args => 'mainimage ' . $ver->{'Firmware Checksum'} .

args => $image_type . ' ' . $ver->{$fw_type . ' Checksum'} .

' ' . $conf->{'cksum'},

Timeout => 90,

) ) {