Boa tarde,<br>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.<br>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") .
<br>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.
<br>Estou usando código identico para execução de comandos nos equipamentos de outros fabricantes e as respostas são retornadas normalmente.<br>Estou colando o código para melhor entendimento.<br>Agradeço qualquer colaboração.
<br>Victor.<br><br>#####################################################################<br># Metodo construtor<br>sub new {<br><br> my ( $self, $ip, $login, $pwd ) = @_;<br><br> my $session = new Net::Telnet ( Timeout=>5, Errmode=>'return', Prompt=>'/[\$%#>]/');
<br><br> my $res = $session->open("$ip");<br> if ( ! ( $res ) ) {<br> print "Nao foi possivel conectar a $ip\n";<br> return -1;<br> }<br><br> $res = $session->login($login, $pwd);
<br> if ( ! ( $res ) ) {<br> print "Nao foi possivel autenticar em $ip\n";<br> return -2;<br> }<br><br> bless $session, "AlteonTelnet";<br> return $session;
<br>}<br><br># Metodo comando port<br>sub who {<br> my ( $session ) = @_;<br> my @linhas = $session->cmd("who");<br> return @linhas;<br>}<br>1;<br>##################################################################
<br>