version 1.17, 2006/09/12 02:17:46 |
version 1.18, 2006/09/12 03:13:08 |
|
|
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.17 2006/09/12 01:17:46 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
use base 'Net::Telnet'; |
use base 'Net::Telnet'; |
|
|
|
|
=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; |