===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -r1.35 -r1.36
--- trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2007/02/05 21:03:40	1.35
+++ trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2007/02/05 21:09:26	1.36
@@ -1,6 +1,6 @@
 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 warnings;
 use base 'Net::Telnet';
@@ -345,21 +345,16 @@
     remarks     => { decode    => 'all',       expect          => $success },
     save_sudb   => { String    => 'save sudb', expect          => $success },
     syslog      => { expect    => $success },
-    'pipe'  => {},                        # XXX needs a special decode
-    maclist => { decode => 'maclist' },
-    maclist_reset => { String => 'maclist reset', expect => 'done' },
-    eth_link => { String => 'eth link', expect => $success },
-    su_info  => { String => 'su info',  decode => 'all', expect => $success },
+    'pipe'      => {},                        # XXX needs a special decode
+    maclist     => { decode => 'maclist' },
+    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???
-    #su password???
-    #_bootloader
-    #temp
-    #heater
+      { String => 'su testrflink', decode => 'each', expect    => $success },
+    save_ss     => { String => 'save ss',      expect          => $success },
+    opmode      => { decode => 'all',          expect          => $success },
 );
 
 my %ALIASES = (