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.42, 2007/05/21 21:24:13

version 1.43, 2007/05/21 21:45:48

Line 1

package Net::Telnet::Trango;

# $RedRiver: Trango.pm,v 1.41 2007/02/07 20:08:32 andrew Exp $

# $RedRiver: Trango.pm,v 1.42 2007/05/21 20:24:13 andrew Exp $

use strict;

use warnings;

use base 'Net::Telnet';

Line 322

my $success = 'Success\\.';

my %COMMANDS = (

_clear => { decode => 'all', String => '', args => '' },

tftpd => { decode => 'all', expect => $success },

ver => { decode => 'all' },

sysinfo => { decode => 'all', expect => $success },

Line 944

Line 945

my $err;

if (grep { /\[ERR\]/ } @lines) {

$err = _decode_lines(@lines);

}

if (ref $err eq 'HASH' && $err->{ERR}) {

$self->last_error($err->{ERR} );

} else {

$self->last_error("Error with command ($cmd{'String'}): $last");

$self->_clear();

}

return;

}