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.10, 2005/12/21 01:17:06

version 1.11, 2005/12/21 02:03:30

Line 1

#!/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

Line 84

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'} &&

Line 307

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);