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.52, 2008/02/18 19:13:32

version 1.56, 2009/07/08 18:16:41

Line 1

package Net::Telnet::Trango;

# $RedRiver: Trango.pm,v 1.51 2008/02/18 16:37:35 andrew Exp $

# $RedRiver: Trango.pm,v 1.55 2009/07/08 17:00:55 andrew Exp $

use strict;

use warnings;

use base 'Net::Telnet';

Line 43

=cut

our $VERSION = '0.01';

our $VERSION = '0.02';

my $EMPTY = q{};

my $SPACE = q{ };

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;