version 1.22, 2007/01/03 19:40:03 |
version 1.23, 2007/01/08 22:16:29 |
|
|
|
|
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 }, |
opmode => { decode => 'all', expect => $success }, |
# eth r, w and reset??? |
# eth r, w and reset??? |
|
|
|
|
=item su_password |
=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 |
=cut |
|
|
sub su_password |
sub su_password |
{ |
{ |
my $self = shift; |
my $self = shift; |
my $su = shift || '!'; |
|
my $new_pass = shift || ''; |
my $new_pass = shift || ''; |
|
my $su = shift || 'all'; |
unless (defined $su) { |
|
warn "No su passed!" |
|
#return undef; |
|
} |
|
|
|
unless (defined $new_pass) { |
unless (defined $new_pass) { |
warn "No new password!" |
warn "No new password!" |