[BACK]Return to Trango.pm CVS log [TXT][DIR] Up to [local] / trango / Net-Telnet-Trango / lib / Net / Telnet

Diff for /trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm between version 1.35 and 1.36

version 1.35, 2007/02/05 21:03:40 version 1.36, 2007/02/05 21:09:26
Line 1 
Line 1 
 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';
Line 345 
Line 345 
     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 = (

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>