version 1.52, 2008/02/18 19:13:32 |
version 1.54, 2008/10/29 18:34:06 |
|
|
package Net::Telnet::Trango; |
package Net::Telnet::Trango; |
|
|
# $RedRiver: Trango.pm,v 1.51 2008/02/18 16:37:35 andrew Exp $ |
# $RedRiver: Trango.pm,v 1.53 2008/10/29 17:27:31 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
use base 'Net::Telnet'; |
use base 'Net::Telnet'; |
|
|
[Decode => 0,]); |
[Decode => 0,]); |
|
|
Same as new from L<Net::Telnet> but sets the default Trango Prompt: |
Same as new from L<Net::Telnet> but sets the default Trango Prompt: |
'/#>\s*\Z/' |
'/[\$#]>\s*\Z/' |
|
|
It also takes an optional parameter 'Decode'. If not defined it |
It also takes an optional parameter 'Decode'. If not defined it |
defaults to 1, if it is set to 0, it will not decode the output and |
defaults to 1, if it is set to 0, it will not decode the output and |
|
|
%args = @_; |
%args = @_; |
} |
} |
|
|
$args{'Prompt'} ||= '/#>\s*\r?\n?$/'; |
$args{'Prompt'} ||= '/[\$#]>\s*\r?\n?$/'; |
|
|
foreach my $key ( keys %args ) { |
foreach my $key ( keys %args ) { |
$PRIVATE{$key} = $args{$key}; |
$PRIVATE{$key} = $args{$key}; |