[Cascavel-pm] Problema com Net::Telnet
vict0r
vgdias em gmail.com
Segunda Setembro 18 13:16:03 PDT 2006
Boa tarde,
estou com um problema na utilização do módulo Net::Telnet com um switch de
conteúdo Alteon e gostaria de saber se alguém na lista já passou por isso.
Tenho módulos desenvolvidos para Cisco, Enterasys, Foundry, e todos
utilizando Net::Telnet ou Net::Telnet::Cisco, porém com os CSS Alteon eu
consigo a conexão telnet normalmente, detectando ip, login ou senha errados,
porém não consigo obter o retorno de comandos executados no equipamento pelo
script através do método $obj->cmd ("comando") .
Já testei um comando ping do equipamento para a minha estação e verifiquei
pelo tcpdump da minha máquina que o comando é executado pois recebo o echo
request, portanto o problema é que o output do comando não é retornado pelo
método.
Estou usando código identico para execução de comandos nos equipamentos de
outros fabricantes e as respostas são retornadas normalmente.
Estou colando o código para melhor entendimento.
Agradeço qualquer colaboração.
Victor.
#####################################################################
# Metodo construtor
sub new {
my ( $self, $ip, $login, $pwd ) = @_;
my $session = new Net::Telnet ( Timeout=>5, Errmode=>'return',
Prompt=>'/[\$%#>]/');
my $res = $session->open("$ip");
if ( ! ( $res ) ) {
print "Nao foi possivel conectar a $ip\n";
return -1;
}
$res = $session->login($login, $pwd);
if ( ! ( $res ) ) {
print "Nao foi possivel autenticar em $ip\n";
return -2;
}
bless $session, "AlteonTelnet";
return $session;
}
# Metodo comando port
sub who {
my ( $session ) = @_;
my @linhas = $session->cmd("who");
return @linhas;
}
1;
##################################################################
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060918/596b1296/attachment.html
Mais detalhes sobre a lista de discussão Cascavel-pm