[Cascavel-pm] Problema com Net::Telnet

[Marco A P D'Andrade]

Victor,

Sugiro depurar linha a linha, pois em problemas similares, sempre acabei 
percebendo falha nos valores de prompt, e sem o ambiente correto não é 
possivel fazer a depuração.

Outro ponto, talvez antes de iniciar a depuração (ddd ou perl -d 
<script>), se vc fizer um tcpdump enquanto executa o script, existe 
retorno? Possivelmente sim, e neste caso se confirmará o caso "prompt" 
não reconhecido...

Sds,
Marco Antonio


vict0r wrote:

> 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;
> ##################################################################
>
>------------------------------------------------------------------------
>
>_______________________________________________
>Cascavel-pm mailing list
>Cascavel-pm em pm.org
>http://mail.pm.org/mailman/listinfo/cascavel-pm
>