===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/scripts/update_trango.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- trango/Net-Telnet-Trango/scripts/update_trango.pl	2005/12/21 01:17:06	1.10
+++ trango/Net-Telnet-Trango/scripts/update_trango.pl	2005/12/21 02:03:30	1.11
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $RedRiver: update_trango.pl,v 1.9 2005/11/18 19:17:12 andrew Exp $
+# $RedRiver: update_trango.pl,v 1.10 2005/12/21 01:17:06 andrew Exp $
 ########################################################################
 # update_trango.pl *** Updates trango foxes with a new firmware
 # 
@@ -84,8 +84,8 @@
   my $t    = shift;
   my $file = shift;
 
-  $l->p("Getting current version");
   my $ver = $t->ver;
+  $l->p("Current version '$ver->{'Firmware Version'}'");
 
   if (
     $ver->{'Firmware Version'}  eq $conf->{'ver'} && 
@@ -307,7 +307,7 @@
   my $banner = shift || $PRIVATE{'login_banner'};
 
   my ($type, $ver) = $banner =~ 
-    /Welcome to Trango Broadband Wireless (.+)[\s-](\w+)$/i;
+    /Welcome to Trango Broadband Wireless (\S+)[\s-]+(.+)$/i;
 
   $self->host_type($type);
   $self->firmware_version($ver);