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.22, 2007/01/03 19:40:03

version 1.23, 2007/01/08 22:16:29

Line 289

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

saves the config. Returns 1 on success, undef on failure.

Line 317

Line 313

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 => 'each', expect => $success },

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

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

# eth r, w and reset???

Line 475

Line 470

=item su_password

C<su_password('all'|suid, 'new_password')>

C<su_password('new_password'[, 'suid'])> If no suid is specified,

the default is "all".

=cut

sub su_password

{

my $self = shift;

my $su = shift || '!';

my $new_pass = shift || '';

my $su = shift || 'all';

unless (defined $su) {

warn "No su passed!"

#return undef;

}

unless (defined $new_pass) {

warn "No new password!"