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.7, 2005/11/17 20:09:45

version 1.8, 2005/11/17 20:20:59

Line 1

#!/usr/bin/perl

# $RedRiver: update_trango.pl,v 1.6 2005/11/17 00:40:06 andrew Exp $

# $RedRiver: update_trango.pl,v 1.7 2005/11/17 20:09:45 andrew Exp $

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

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

Line 12

use Net::TFTP;

use Fcntl ':flock'; # import LOCK_* constants

#use YAML;

use constant LOG_SAVE => 1;

my $config_file = shift || 'update_trango.conf';

my $conf = read_conf($config_file);

my $max_tries = 1;

my $log_file = GetLogName('UT');

use constant LOG_SAVE => 1;

my $log_file = GetLogName('UT');

my $MYLOG; # file handle for logging so we don't have to close and open it all the time

END {

if ($MYLOG) {

Line 31

Line 34

}

mylog("Reading config file '$config_file'", LOG_SAVE);

my $conf = read_conf($config_file);

mylog(" Hardware Type: $conf->{'type'}", LOG_SAVE);

mylog(" File Name: $conf->{'file_name'}", LOG_SAVE);

mylog(" File Size: $conf->{'file_size'}", LOG_SAVE);

mylog(" File Checksum: $conf->{'file_cksum'}", LOG_SAVE);

mylog(" FW Version: $conf->{'ver'}", LOG_SAVE);

mylog(" FW Checksum: $conf->{'cksum'}", LOG_SAVE);

mylog("", LOG_SAVE);