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.31, 2007/02/02 18:54:22

version 1.33, 2007/02/02 21:26:56

Line 1

package Net::Telnet::Trango;

# $RedRiver: Trango.pm,v 1.30 2007/02/02 17:51:52 andrew Exp $

# $RedRiver: Trango.pm,v 1.32 2007/02/02 18:59:50 andrew Exp $

use strict;

use warnings;

use base 'Net::Telnet';

Line 361

maclist_reset => { String => 'maclist reset', expect => 'done' },

eth_link => { String => 'eth link', expect => $success },

su_info => { String => 'su info', decode => 'all', expect => $success },

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

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

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

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

# eth r, w and reset???

Line 821

my $vals = $self->tftpd( args => 'on' );

if ($vals->{'Tftpd'} eq 'listen') {

if (ref $vals eq 'HASH' && $vals->{'Tftpd'} eq 'listen') {

return $vals;

} else {

return;