version 1.29, 2007/02/01 17:58:33 |
version 1.32, 2007/02/02 18:59:50 |
|
|
package Net::Telnet::Trango; |
package Net::Telnet::Trango; |
# $RedRiver: Trango.pm,v 1.28 2007/02/01 17:10:07 mike Exp $ |
# $RedRiver: Trango.pm,v 1.31 2007/02/02 18:54:22 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
use base 'Net::Telnet'; |
use base 'Net::Telnet'; |
|
|
|
|
$t->su_info($suid); |
$t->su_info($suid); |
|
|
|
=item B<su_testrflink> |
|
|
|
- tests the RF Link to an su |
|
|
|
$t->su_testrflink($suid|'all'); |
|
|
=item B<save_ss> |
=item B<save_ss> |
|
|
- saves the config. |
- saves the config. |
|
|
maclist_reset => { String => 'maclist reset', expect => 'done' }, |
maclist_reset => { String => 'maclist reset', expect => 'done' }, |
eth_link => { String => 'eth link', expect => $success }, |
eth_link => { String => 'eth link', expect => $success }, |
su_info => { String => 'su info', decode => 'all', expect => $success }, |
su_info => { String => 'su info', decode => 'all', expect => $success }, |
|
su_testrflink => { String => 'su testrflink', decode => 'each', expect => $success }, |
save_ss => { String => 'save ss', expect => $success }, |
save_ss => { String => 'save ss', expect => $success }, |
opmode => { decode => 'all', expect => $success }, |
opmode => { decode => 'all', expect => $success }, |
# eth r, w and reset??? |
# eth r, w and reset??? |
|
|
} |
} |
|
|
if (exists $COMMANDS{$method}) { |
if (exists $COMMANDS{$method}) { |
$COMMANDS{$method}{'String'} ||= $method; |
my %cmd; |
$COMMANDS{$method}{'args'} .= ' ' . shift if (@_ == 1); |
foreach my $k (keys %{ $COMMANDS{$method} }) { |
return $self->cmd(%{ $COMMANDS{$method} }, @_); |
$cmd{$k} = $COMMANDS{$method}{$k}; |
|
} |
|
$cmd{'String'} ||= $method; |
|
$cmd{'args'} .= ' ' . shift if (@_ == 1); |
|
return $self->cmd(%cmd, @_); |
} |
} |
|
|
if (exists $ACCESS{$method}) { |
if (exists $ACCESS{$method}) { |
|
|
if ($cfg{'args'}) { |
if ($cfg{'args'}) { |
$cmd{'String'} .= ' ' . $cfg{'args'}; |
$cmd{'String'} .= ' ' . $cfg{'args'}; |
} |
} |
|
|
my @lines; |
my @lines; |
unless ($cfg{'no_prompt'}) { |
if ($cfg{'no_prompt'}) { |
@lines = $self->SUPER::cmd(%cmd); |
|
} else { |
|
$self->print($cmd{'String'}); |
$self->print($cmd{'String'}); |
@lines = $self->lastline; |
@lines = $self->lastline; |
|
} else { |
|
@lines = $self->SUPER::cmd(%cmd); |
} |
} |
|
|
$self->last_lines(\@lines); |
$self->last_lines(\@lines); |