===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/scripts/update_trango.pl,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- trango/Net-Telnet-Trango/scripts/update_trango.pl	2005/12/30 19:26:06	1.14
+++ trango/Net-Telnet-Trango/scripts/update_trango.pl	2005/12/30 20:26:41	1.15
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $RedRiver: update_trango.pl,v 1.13 2005/12/30 01:02:41 andrew Exp $
+# $RedRiver: update_trango.pl,v 1.14 2005/12/30 19:26:06 andrew Exp $
 ########################################################################
 # update_trango.pl *** Updates trango foxes with a new firmware
 # 
@@ -73,12 +73,13 @@
   #print Dump $t->sysinfo;
   #print Dump $t->last_lines;
   #print Dump $t->ver();
-  print Dump $t->tftpd();
-  print Dump $t->enable_tftpd();
+  #print Dump $t->tftpd();
+  #print Dump $t->enable_tftpd();
   #print Dump [ "Exit", $t->exit ];
-  print Dump $t->tftpd();
-  print Dump $t->disable_tftpd();
-  print Dump $t->tftpd();
+  #print Dump $t->tftpd();
+  #print Dump $t->disable_tftpd();
+  #print Dump $t->tftpd();
+  print Dump $t->sulog(args => 5);
   #if ( upload($t, $conf->{'file_name'}) ) {
   #   $l->p("Rebooting");
   #  $t->reboot;