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-&gt;cmd (&quot;comando&quot;) .
<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>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my ( $self, $ip, $login, $pwd ) = @_;<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my $session = new Net::Telnet ( Timeout=&gt;5, Errmode=&gt;'return', Prompt=&gt;'/[\$%#&gt;]/');
<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my $res = $session-&gt;open(&quot;$ip&quot;);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if ( ! ( $res ) ) {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print &quot;Nao foi possivel conectar a $ip\n&quot;;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; return -1;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $res = $session-&gt;login($login, $pwd);
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if ( ! ( $res ) ) {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print &quot;Nao foi possivel autenticar em $ip\n&quot;;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; return -2;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bless $session, &quot;AlteonTelnet&quot;;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; return $session;
<br>}<br><br># Metodo comando port<br>sub who {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my ( $session ) = @_;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my @linhas = $session-&gt;cmd(&quot;who&quot;);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; return @linhas;<br>}<br>1;<br>##################################################################
<br>