===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm,v
retrieving revision 1.22
retrieving revision 1.24
diff -u -r1.22 -r1.24
--- trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2007/01/03 19:40:03	1.22
+++ trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2007/01/17 19:00:51	1.24
@@ -1,5 +1,5 @@
 package Net::Telnet::Trango;
-# $RedRiver: Trango.pm,v 1.21 2006/10/05 17:10:39 andrew Exp $
+# $RedRiver: Trango.pm,v 1.23 2007/01/08 22:16:29 mike Exp $
 use strict;
 use warnings;
 use base 'Net::Telnet';
@@ -14,13 +14,13 @@
 
   use Net::Telnet::Trango;
   my $t = new Net::Telnet::Trango ( Timeout => 5 );
-  
+
   $t->open( Host => $fox ) or die "Error connecting: $!";
 
   $t->login('password') or die "Couldn't log in: $!";
-  
+
   # Do whatever
-  
+
   $t->exit;
   $t->close;
 
@@ -37,6 +37,10 @@
 
 None
 
+=head1 METHODS
+
+=over
+
 =cut
 
 our $VERSION = '0.01';
@@ -160,7 +164,7 @@
 
 =pod
 
-=head1 METHODS
+=back
 
 =head2 ACCESSORS
 
@@ -289,10 +293,6 @@
 
 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.
@@ -317,7 +317,6 @@
   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???
@@ -475,20 +474,16 @@
 
 =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 || '';
-
-  unless (defined $su) {
-    warn "No su passed!" 
-    #return undef;
-  }
+  my $su       = shift || 'all';
 
   unless (defined $new_pass) {
     warn "No new password!"