[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.17 and 1.19

version 1.17, 2006/09/12 02:17:46 version 1.19, 2006/09/12 03:16:43
Line 1 
Line 1 
 package Net::Telnet::Trango;  package Net::Telnet::Trango;
 # $RedRiver: Trango.pm,v 1.16 2006/09/07 03:00:07 andrew Exp $  # $RedRiver: Trango.pm,v 1.18 2006/09/12 02:13:08 andrew Exp $
 use strict;  use strict;
 use warnings;  use warnings;
 use base 'Net::Telnet';  use base 'Net::Telnet';
Line 219 
Line 219 
   
 =head2 COMMANDS  =head2 COMMANDS
   
 Most of these are just shortcuts to C<cmd(String =E<gt> METHOD)>, as such they accept the same options as C<cmd()>.  Specifically they take a named paramater "args", for example:  Most of these are just shortcuts to C<cmd(String =E<gt> METHOD)>,
   as such they accept the same options as C<cmd()>.
   Specifically they take a named paramater "args", for example:
 C<tftpd(args =E<gt> 'on')> would enable tftpd  C<tftpd(args =E<gt> 'on')> would enable tftpd
   
 =over  =over
Line 248 
Line 250 
   
 =item remarks  =item remarks
   
 Takes an optional argument "args => <remarks>", which sets the remarks.  Takes an optional argument, which sets the remarks.
 If there is no argument, just returns the current remarks.  If there is no argument, returns the current remarks.
   
 =item sulog  =item sulog
   
Line 892 
Line 894 
         if ($c eq '[') {          if ($c eq '[') {
           $in_key = 1;            $in_key = 1;
           $in_val = 0;            $in_val = 0;
           $val = '';  
         } else {          } else {
           $in_key = 0;            $in_key = 0;
           $in_val = 1;            $in_val = 1;
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.19
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>