Foro - Perl en Español

por **TroubleShooting** » 2011-12-14 08:36 @400

Estimado, quiero ingresar una lista de acceso a mi router y estoy ocupando el Net::Telnet::Cisco para ingresar al router, pero la condición de trabajo es que debo ocupar un segundo módulo para realizar esto...

Trato de usar el IPDevice::CiscoRouter::Accesslist...

Este es mi programa el cual quiero que ingrese la ACL

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#! /usr/bin/perl
 
 use Net::Telnet; 
 use Net::Telnet::Cisco; 
 use IPDevice::CiscoRouter;
 use IPDevice::CiscoRouter;Accesslist;
 
  my $session = Net::Telnet::Cisco->new(Host => '192.168.1.1');
  $session->login('cisco', 'cisco');
 
  # Execute a command
  my @output = $session->cmd('show version');
  print @output;
 
  my $acl = new IPDevice::CiscoRouter::Accesslist;
 
  # Enable mode
  if ($session->enable("cisco") ) {
      @output = $session->cmd('configure terminal');
      print "My privileges: @output\n";
  } else {
      warn "Can't enable: " . $session->errmsg;
  }
 
 $acl->set_id(10);
 $acl->add_entry('permit', '192.168.0.0/22', '20', '24');
      
 
  $session->close;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

El telnet funciona bien, pero no logro hacer que funcione el módulo.

Foro - Perl en Español

Ayuda módulo Net::Telnet::Cisco

Ayuda módulo Net::Telnet::Cisco

Publicidad

Re: Ayuda módulo Net::Telnet::Cisco

¿Quién está conectado?