version 1.35, 2007/02/05 21:03:40 |
version 1.36, 2007/02/05 21:09:26 |
|
|
package Net::Telnet::Trango;
|
package Net::Telnet::Trango;
|
|
|
# $RedRiver: Trango.pm,v 1.34 2007/02/05 21:02:07 andrew Exp $
|
# $RedRiver: Trango.pm,v 1.35 2007/02/05 21:03:40 andrew Exp $
|
use strict;
|
use strict;
|
use warnings;
|
use warnings;
|
use base 'Net::Telnet';
|
use base 'Net::Telnet';
|
|
|
remarks => { decode => 'all', expect => $success },
|
remarks => { decode => 'all', expect => $success },
|
save_sudb => { String => 'save sudb', expect => $success },
|
save_sudb => { String => 'save sudb', expect => $success },
|
syslog => { expect => $success },
|
syslog => { expect => $success },
|
'pipe' => {}, # XXX needs a special decode
|
'pipe' => {}, # XXX needs a special decode
|
maclist => { decode => 'maclist' },
|
maclist => { decode => 'maclist' },
|
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 =>
|
su_testrflink =>
|
{ String => 'su testrflink', decode => 'each', expect => $success },
|
{ 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???
|
|
#su password???
|
|
#_bootloader
|
|
#temp
|
|
#heater
|
|
);
|
);
|
|
|
my %ALIASES = (
|
my %ALIASES = (
|