version 1.30, 2007/02/02 17:51:52 |
version 1.32, 2007/02/02 18:59:50 |
|
|
package Net::Telnet::Trango; |
package Net::Telnet::Trango; |
# $RedRiver: Trango.pm,v 1.29 2007/02/01 17:58:33 andrew 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??? |