Net: : Telnet: : Cisco

Net::Telnet::Cisco er et Perl modul som er beregnet til at koble op imod Cisco udstyr.

Eksempel 1

#!/usr/bin/env perl

use Net::Telnet::Cisco;

my $backup_host  = "201.1.1.201";
my @devices = ( "H1R1", "H1R2", "H1R3", "H2R1", "H2R2", "H2R3", "H3R1", "H3R2",
                "H3R3", "H4R1", "H4R2", "H4R3", "H1S", "H2S", "H3S", "H4S", "BGPS" );

  foreach (@devices) {

    print "Session oprettes til $_\n";

    my $session = Net::Telnet::Cisco->new(Host => $_,
        Input_log => "/tmp/input-log.$_",
	Timeout => 60);

    print "der logges ind paa   $_\n";
    #Login via Telnet med passwordet cisco
    if ( ! $session->login('login', 'cisco') ) {
       print ("ADVARSEL: Der kunne ikke skabes kontakt til: $_\n");
    } else {
      # Enable mode (Password cisco)
      if ($session->enable("cisco") ) {
          @output = $session->cmd("copy running-config tftp:\n$backup_host\n$_-config\n");
          print "@output\n"; # Vis på skærmen hvad der sker
      } else {
          warn "Can't enable: " . $session->errmsg;
      }
    $session->close;
    }
  }