===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/scripts/update_trango.pl,v
retrieving revision 1.13
retrieving revision 1.15
diff -u -r1.13 -r1.15
--- trango/Net-Telnet-Trango/scripts/update_trango.pl	2005/12/30 01:02:41	1.13
+++ 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.12 2005/12/29 18:41:17 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
 # 
@@ -41,14 +41,13 @@
   $l->sp("Updating: $fox");
 
   ## Connect and login.
-  my $t = new Net::Telnet::Trango ({
-    Host    => $fox,
+  my $t = new Net::Telnet::Trango (
     Timeout => 5,
     Errmode => 'return',
-  }) or die "Couldn't make new connection: $!";
+  ) or die "Couldn't make new connection: $!";
 
   $l->p("Connecting to $fox");
-  unless ($t->open) {
+  unless ( $t->open($fox) ) {
     $l->sp("Error connecting: $!");
     next;
   }
@@ -70,16 +69,17 @@
 
   $l->p("Sending commands");
   ## Send commands
-  print Dump $t->login_banner;
-  print Dump $t->sysinfo;
-  print Dump $t->last_lines;
-  print Dump $t->ver();
-  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->login_banner;
+  #print Dump $t->sysinfo;
+  #print Dump $t->last_lines;
+  #print Dump $t->ver();
+  #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->sulog(args => 5);
   #if ( upload($t, $conf->{'file_name'}) ) {
   #   $l->p("Rebooting");
   #  $t->reboot;