version 1.41, 2007/02/07 20:08:32 |
version 1.43, 2007/05/21 21:45:48 |
|
|
package Net::Telnet::Trango; |
package Net::Telnet::Trango; |
|
|
# $RedRiver: Trango.pm,v 1.40 2007/02/06 21:15:28 andrew Exp $ |
# $RedRiver: Trango.pm,v 1.42 2007/05/21 20:24:13 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
use base 'Net::Telnet'; |
use base 'Net::Telnet'; |
|
|
|
|
my $success = 'Success\\.'; |
my $success = 'Success\\.'; |
my %COMMANDS = ( |
my %COMMANDS = ( |
|
_clear => { decode => 'all', String => '', args => '' }, |
tftpd => { decode => 'all', expect => $success }, |
tftpd => { decode => 'all', expect => $success }, |
ver => { decode => 'all' }, |
ver => { decode => 'all' }, |
sysinfo => { decode => 'all', expect => $success }, |
sysinfo => { decode => 'all', expect => $success }, |
|
|
my $err; |
my $err; |
if (grep { /\[ERR\]/ } @lines) { |
if (grep { /\[ERR\]/ } @lines) { |
$err = _decode_lines(@lines); |
$err = _decode_lines(@lines); |
} |
} |
|
|
if (ref $err eq 'HASH' && $err ->{ERR}) { |
if (ref $err eq 'HASH' && $err->{ERR}) { |
$self->last_error($err->{ERR} ); |
$self->last_error($err->{ERR} ); |
} else { |
} else { |
$self->last_error("Error with command ($cfg{'String'}): $last"); |
$self->last_error("Error with command ($cmd{'String'}): $last"); |
|
$self->_clear(); |
} |
} |
return; |
return; |
} |
} |