| version 1.20, 2006/09/12 03:20:39 |
version 1.22, 2007/01/03 19:40:03 |
|
|
| package Net::Telnet::Trango; |
package Net::Telnet::Trango; |
| # $RedRiver: Trango.pm,v 1.19 2006/09/12 02:16:43 andrew Exp $ |
# $RedRiver: Trango.pm,v 1.21 2006/10/05 17:10:39 andrew Exp $ |
| use strict; |
use strict; |
| use warnings; |
use warnings; |
| use base 'Net::Telnet'; |
use base 'Net::Telnet'; |
|
|
| |
|
| You need to pass in args => <suid> and it will return the info for that suid. |
You need to pass in args => <suid> and it will return the info for that suid. |
| |
|
| |
=item su_testrflink |
| |
|
| |
you need to pass in args => <suid> and it will return the rflink test results for that SU. |
| |
|
| =item save_ss |
=item save_ss |
| |
|
| saves the config. Returns 1 on success, undef on failure. |
saves the config. Returns 1 on success, undef on failure. |
|
|
| 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 }, |
| # eth r, w and reset??? |
# eth r, w and reset??? |
| #su password??? |
#su password??? |
| #_bootloader |
#_bootloader |