[Cascavel-pm] Net::Telnet

[vivan em dim.fm.usp.br]

Oi,

Fiz as seguintes mudancas:

#!/usr/bin/perl
use Net::Telnet ();

########## LOGIN E SENHA ##############
$login="burps";
$password="bleargh";
#######################################

$t = new Net::Telnet (Timeout => 10,
                      Prompt => '/rtb0101\>/');
$t->open("10.22.4.15");

$t->waitfor(/Username: /);
$t->print ($login);
$t->waitfor(/Password: /);
$t->print ($password);

@lines = $t->cmd("who");
print @lines;
$t->close;

Com isso, consegui autenticar no router, mas nao consigo passar e executar
o comando... Alguma sugestao? Para dar o sh conf preciso ser ena, mas para
simplificar um pouco, estou tentando apenas um who.

Tks.


> Adriano,
>
> Eu utilizei um script similar ao seu para efetuar um teste e meu unico
> problema foi o timeout.
>
> Para depurar aconselho verificar as opções de log e dump no manual.
> Outra coisa a corrigir é seu parametro de Prompt, pois vc nao necessita
> de escape para a formacao usada (aspas simples).
>
> Sds,
> Marco Antonio
>
> vivan em dim.fm.usp.br wrote:
>
>>Oi,
>>
>>Alguem pode me dar um help no modulo Net::Telnet? Estou tentando
>>utiliza-lo para acessar um router, mas sem sucesso... Onde estou errando?
>>
>>#!/usr/bin/perl
>>use Net::Telnet ();
>>
>>########## LOGIN E SENHA ##############
>>$login="burps";
>>$password="bleargh";
>>#######################################
>>
>>$t = new Net::Telnet (Timeout => 10,
>>                      Prompt => '/rtb0101\>/');
>>$t->open("10.22.4.15");
>>
>>$t->login($login, $passwd);
>>@lines = $t->cmd("sh conf");
>>print @lines;
>>
>>
>>Tks,
>>Adriano.
>>
>>--------------------------
>>Esta mensagem foi verificada
>>pelo sistema de antivírus DIM e
>>acredita-se estar livre de Virus.
>>Virus data file v4356 created May 02 2004
>>
>>_______________________________________________
>>Cascavel-pm mailing list
>>Cascavel-pm em mail.pm.org
>>http://cascavel.pm.org/mailman/listinfo/cascavel-pm
>>
>>
>>
>>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em mail.pm.org
> http://cascavel.pm.org/mailman/listinfo/cascavel-pm
>
> --------------------------
> Esta mensagem foi verificada
> pelo sistema de antivírus DIM e
> acredita-se estar livre de Virus.
> Virus data file v4356 created May 02 2004
>


--------------------------
Esta mensagem foi verificada
pelo sistema de antivírus DIM e
acredita-se estar livre de Virus.
Virus data file v4356 created May 02 2004