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.53, 2008/10/29 18:27:31

version 1.55, 2009/07/08 18:00:55

Line 1

package Net::Telnet::Trango;

# $RedRiver: Trango.pm,v 1.52 2008/02/18 19:13:32 andrew Exp $

# $RedRiver: Trango.pm,v 1.54 2008/10/29 17:34:06 andrew Exp $

use strict;

use warnings;

use base 'Net::Telnet';

Line 61

[Decode => 0,]);

Same as new from L<Net::Telnet> but sets the default Trango Prompt:

'/[#$]>\s*\Z/'

'/[\$#]>\s*\Z/'

It also takes an optional parameter 'Decode'. If not defined it

defaults to 1, if it is set to 0, it will not decode the output and

Line 81

%args = @_;

}

$args{'Prompt'} ||= '/[$#]>\s*\r?\n?$/';

$args{'Prompt'} ||= '/[\$#]>\s*\r?\n?$/';

foreach my $key ( keys %args ) {

$PRIVATE{$key} = $args{$key};

Line 704

}

my $new_mac = $mac;

$new_mac =~ s/[^0-9A-Fa-f]//;

$new_mac =~ s/[^0-9A-Fa-f]//g;

unless ( length $new_mac == 12 ) {

$self->last_error("Invalid MAC '$mac'");

return;