trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm - diff

Return to Trango.pm CVS log

Up to [local] / trango / Net-Telnet-Trango / lib / Net / Telnet

version 1.27, 2007/01/31 18:53:29

version 1.28, 2007/02/01 17:10:07

Line 1

package Net::Telnet::Trango;

# $RedRiver: Trango.pm,v 1.26 2007/01/17 23:15:13 andrew Exp $

# $RedRiver: Trango.pm,v 1.27 2007/01/31 18:53:29 mike Exp $

use strict;

use warnings;

use base 'Net::Telnet';

Line 506

my $banner = $self->login_banner;

my ($type, $ver) = $banner =~

my ($type, $sep1, $subtype, $sep2, $ver) = $banner =~

/Welcome to Trango Broadband Wireless (\S+)[\s-]+(.+)$/i;

/Welcome to Trango Broadband Wireless (\S+)([\s-]+)(\S+)([\s-]+)(.+)$/i;

$type .= $sep1 . $subtype;

$ver = $subtype . $sep2 . $ver;

$self->login_banner($banner);

$self->host_type($type);