trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm - diff

Return to Trango.pm CVS log

Up to [local] / trango / Net-Telnet-Trango / lib / Net / Telnet

version 1.29, 2007/02/01 17:58:33

version 1.30, 2007/02/02 17:51:52

Line 1

package Net::Telnet::Trango;

# $RedRiver: Trango.pm,v 1.28 2007/02/01 17:10:07 mike Exp $

# $RedRiver: Trango.pm,v 1.29 2007/02/01 17:58:33 andrew Exp $

use strict;

use warnings;

use base 'Net::Telnet';

Line 396

}

if (exists $COMMANDS{$method}) {

$COMMANDS{$method}{'String'} ||= $method;

my %cmd;

$COMMANDS{$method}{'args'} .= ' ' . shift if (@_ == 1);

foreach my $k (keys %{ $COMMANDS{$method} }) {

return $self->cmd(%{ $COMMANDS{$method} }, @_);

$cmd{$k} = $COMMANDS{$method}{$k};

}

$cmd{'String'} ||= $method;

$cmd{'args'} .= ' ' . shift if (@_ == 1);

return $self->cmd(%cmd, @_);

}

if (exists $ACCESS{$method}) {

Line 938

Line 942

if ($cfg{'args'}) {

$cmd{'String'} .= ' ' . $cfg{'args'};

}

my @lines;

unless ($cfg{'no_prompt'}) {

if ($cfg{'no_prompt'}) {

@lines = $self->SUPER::cmd(%cmd);

} else {

$self->print($cmd{'String'});

@lines = $self->lastline;

} else {

@lines = $self->SUPER::cmd(%cmd);

}

$self->last_lines(\@lines);