• Publicidad

Equipo cisco problema telnet

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Equipo cisco problema telnet

Notapor rmondion » 2010-09-29 17:10 @757

Hola amigos, resulta que debo acceder a un equipamiento cisco y debo acceder a cierta información vía comandos (cli).

Tengo el sgte. código:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #/usr/bin/perl -w
  2.  
  3. use Net::Telnet;
  4. $telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die', input_log=>"inputlog",dump_log=> outputlog);
  5. $telnet->open('172.16.54.210');
  6. $telnet->waitfor('/Password:/');
  7. $telnet->print('xxxxx');
  8. $telnet->waitfor('/SCE_UACH>/');
  9. $telnet->print('enable 15');
  10. $telnet->waitfor('/Password:/');
  11. $telnet->print('xxxxx');
  12. $telnet->waitfor('/SCE_UACH#>/');
  13. @haber = $telnet->cmd('sh version');
  14. print @haber;
  15. $telnet->close;  
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


Haciendo esto me fijo en los log definidos y veo que se ejecuta los comandos pero tengo un error de command timed out. No sé si se deba al prompt.

Esta es la info del inputlog:

Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
User Access Verification

Password:
SCE_UACH>enable 15
Password:
SCE_UACH#>sh version
System version: Version 3.5.5 Build 252
Build time: May 31 2009, 16:15:22 (Change-list 483168)
Software version is: Version 3.5.5 Build 252
Cryptography class: K9
Hardware information is:
rx            : 0x0079
dp            : 0x1d05
tx            : 0x1712
ff            : 0x0077
cls           : 0x1e05
cpld          : 0x0025
lic           : 0x0202
lic-drv       : 0x02020000
lic-prm       : 0x02020000
rev           : G001
Bootrom       : 2.1.0
L2 cache      : Samsung 0.5
lic type      : 4GBE
optic mode    : MM
Product S/N   : CAT1411G060
Product ID    : SCE2020-4XGBE-MM
Version ID    : V04
Deviation     :
Part number       : 800-26601-08
 --More--
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


Para el outputlog es similar pero con códigos hexadecimales.

La verdad es que no sé en qué parte me estoy cayendo.

Saludos.
rmondion
Perlero nuevo
Perlero nuevo
 
Mensajes: 2
Registrado: 2010-09-29 16:52 @745

Publicidad

Re: Equipo cisco problema telnet

Notapor explorer » 2010-09-29 18:01 @792

Bienvenido a los foros de Perl en Español, rmondion.

El problema está en el

Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
--More--
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


el aparato queda esperando a que alguien pulse una tecla, pero el programa no la envía porque está esperando a que termine la ejecución del comando sh.

De esto ya hemos hablado antes por aquí.

Bueno, creo que será eso...

Usa el sistema de búsqueda, y busca por la palabra 'cisco'.

En uno de los hilos recomiendo el uso del módulo Net::Telnet::Wrapper. Mira su manual, que trae plantillas de funcionamiento para unos cuántos modelos de Cisco (sección SUPPORTED DEVICES - DEVICE CLASS).
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Equipo cisco problema telnet

Notapor rmondion » 2010-09-30 19:25 @851

Estoy entrampado en el error, me fijé en los foros que tú señalaste y probé otras librerías, pero sigo cayendo en el problema de la paginación.

Tengo un problema: que no puedo enviarle el backspace en el código, no me lo reconoce.

Espero puedas tener alguna idea al respecto.

Gracias.
rmondion
Perlero nuevo
Perlero nuevo
 
Mensajes: 2
Registrado: 2010-09-29 16:52 @745

Re: Equipo cisco problema telnet

Notapor salva » 2010-10-01 04:59 @249

rmondion escribiste:Estoy entranpado en el error, me fije en los foros que tu señalaste y probe otras librerias, pero sigo cayendo en el problema de la paginacion.

Lee bien la documentación del sistema operativo del aparato porque lo más probable es que tenga alguna forma de desactivarla.
Avatar de Usuario
salva
Perlero nuevo
Perlero nuevo
 
Mensajes: 200
Registrado: 2008-01-03 15:19 @680

Re: Equipo cisco problema telnet

Notapor explorer » 2010-10-01 05:11 @257

Consultando los manuales de Cisco, podría ser, no pager, set cli pagination off, terminal pager 0 y algunas combinaciones más.

Lo que dice salva: consulta el manual del aparato (o quizás, dentro de él, en la línea de comandos, ejecutar un help, a veces ayuda, para saber qué comando es el que debes usar).

¿Cómo intentas enviar el backspace? ¿Y en qué situación, para borrar algo que tu has escrito o que el aparato ha escrito?
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Equipo cisco problema telnet

Notapor salva » 2010-10-01 05:35 @274

rmondion escribiste:Tengo un problema: que no puedo enviarle el backspace en el código, no me lo reconoce.

A veces, el backspace y el delete se intercambian (pasa como con el fin de lñinea que en Unix es LF y en Windows CR-LF y en otros incluso CR).

Así que prueba a cambiar de código de 0x48 a 0x7f (o al revés)
Avatar de Usuario
salva
Perlero nuevo
Perlero nuevo
 
Mensajes: 200
Registrado: 2008-01-03 15:19 @680


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: Google [Bot] y 43 invitados