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.43, 2007/05/21 21:45:48

version 1.44, 2007/06/05 20:54:05

Line 1

package Net::Telnet::Trango;

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

# $RedRiver: Trango.pm,v 1.43 2007/05/21 20:45:48 andrew Exp $

use strict;

use warnings;

use base 'Net::Telnet';

Line 322

my $success = 'Success\\.';

my %COMMANDS = (

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

_clear => { String => "\n" },

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

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

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

Line 343

{ String => 'su testrflink', decode => 'each', expect => $success },

save_ss => { String => 'save ss', expect => $success },

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

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

);

my %ALIASES = (

Line 893

Line 894

$cmd{'String'} .= $SPACE . $cfg{'args'};

}

#print "Running cmd $cmd{String}\n";

my @lines;

if ( $cfg{'no_prompt'} ) {

$self->print( $cmd{'String'} );

Line 951

Line 953

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

} else {

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

$self->_clear();

}

return;

}