version 1.17, 2006/09/12 02:17:46 |
version 1.19, 2006/09/12 03:16:43 |
|
|
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'; |
|
|
|
|
=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 |
|
|
|
|
=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 |
|
|
|
|
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; |