Saben, tengo un pequeño problema con un script en Perl, estoy trabajando con el módulo Net::Telnet::Cisco y todo va bien hasta que pretendo utilizar el comando de cisco “config t”, al tratar de hacer que mi script lo ejecute, me envía un error y realmente necesito estar en el modo config, para poder modificar algunas parámetros de mi router. Espero puedan ayudarme, les paso mi código.
Using perl Syntax Highlighting
- #!c:\perl\bin\perl.exe
- use Net::Telnet::Cisco;
- print "content-type: text/html \n\n";
- escribe_inicio2_html();
- sub escribe_inicio2_html()
- {
- $session = Net::Telnet::Cisco->new(Host => $host);
- $session->login('usuario', 'pass');
- if ($session->enable("enable_password") ) {
- $session->enable('enable');
- $session->cmd('configure t');
- } else {
- warn "Can't enable: " . $session->errmsg;
- }
- }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Les doy las gracias por adelantado y espero alguno pueda ayudarme con sus buenas ideas.