===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/scripts/update_trango.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- trango/Net-Telnet-Trango/scripts/update_trango.pl	2005/11/17 20:09:45	1.7
+++ trango/Net-Telnet-Trango/scripts/update_trango.pl	2005/11/17 20:20:59	1.8
@@ -1,5 +1,5 @@
 #!/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
 # 
@@ -12,16 +12,19 @@
 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) {
@@ -31,6 +34,16 @@
 }
 
 
+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);