| version 1.32, 2007/02/02 18:59:50 |
version 1.33, 2007/02/02 21:26:56 |
|
|
| package Net::Telnet::Trango; |
package Net::Telnet::Trango; |
| # $RedRiver: Trango.pm,v 1.31 2007/02/02 18:54:22 andrew Exp $ |
# $RedRiver: Trango.pm,v 1.32 2007/02/02 18:59:50 andrew Exp $ |
| use strict; |
use strict; |
| use warnings; |
use warnings; |
| use base 'Net::Telnet'; |
use base 'Net::Telnet'; |
|
|
| |
|
| my $vals = $self->tftpd( args => 'on' ); |
my $vals = $self->tftpd( args => 'on' ); |
| |
|
| if ($vals->{'Tftpd'} eq 'listen') { |
if (ref $vals eq 'HASH' && $vals->{'Tftpd'} eq 'listen') { |
| return $vals; |
return $vals; |
| } else { |
} else { |
| return; |
return; |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to Trango.pm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / trango / Net-Telnet-Trango / lib / Net / Telnet