1  #!/usr/local/bin/perl
     2
     3  use Net::Telnet ();
     4
     5  open(ROUTER_LIST, "routers.txt") || die "can't open the file c
+ontaining the list of routers";
     6  @routers = <ROUTER_LIST>;
     7  close(ROUTER_LIST) || die "couldn't close the file containing 
+the list of routers";
     8
     9  open(COMMAND_LIST, "commands.txt") || die "can't open the file
+ containing the list of commands";
    10  @commands = <COMMAND_LIST>;
    11  close(COMMAND_LIST) || die "couldn't close the file containing
+ the list of commands";
    12
    13  ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localt
+ime(time);
    14  $tstamp = sprintf("%d%02d%02d%02d%02d", $year+=1900, ++$mon, $
+mday,
    15          $hour, $min);
    16
    17  my $USER = "user1";
    18  chomp $USER;
    19
    20  print "enter user1 password: ";
    21  my $PASS = <STDIN>;
    22  chomp $PASS;
    23
    24  print "enter device enable passwd: ";
    25  my $ENABLE = <STDIN>;
    26  chomp $ENABLE;
    27
    28
    29
    30  foreach $router (@routers)
    31  {
    32  chomp ($router);
    33
    34    my $dir = "/home/net/user1/scripts/STALE_ROUTES/ROUTERS/";
    35      chdir( $dir ) or die "Cant chdir to $dir $!";
    36
    37  my $ld = `ls`;
    38  unless ($ld =~ /$router/i) {
    39  mkdir("$router",0755) || die "cannot mkdir $router: $!";
    40                             }
    41
    42  my $telnet = new Net::Telnet(Prompt => "/${router}#\\s*\$/");
    43
    44  #   $telnet->dump_log('dump_log.log');
    45  #   $telnet->input_log('-');
    46  #   $telnet->output_log('output_log.log');
    47
    48     $telnet->open($router);
    49     $telnet->waitfor('/Username: $/i');
    50     $telnet->print($USER);
    51     $telnet->waitfor('/Password: $/i');
    52     $telnet->print($PASS);
    53      print "=" x 72;
    54      print "\n";
    55      print "Logged into ", $router, "\n\n";
    56
    57      $telnet->waitfor("m/$router\>/");
    58      $telnet->print("enable");
    59      $telnet->waitfor('/Password: $/i');
    60      $telnet->print("$ENABLE");
    61      $telnet->waitfor("m/$router\#/");
    62
    63          foreach $command (@commands)
    64          {
    65          chomp ($command);
    66
    67          my $dir = "/home/net/user1/scripts/STALE_ROUTES/ROUTER
+S/$router";
    68      chdir( $dir ) or die "Cant chdir to $dir $!";
    69
    70          my @output = $telnet->cmd("$command");
    71          print @output;
    72          open(OUT, ">$router-$command-$tstamp");
    73          print OUT @output;
    74          close(OUT);
    75
    76
    77             $telnet->buffer_empty;
    78             $telnet->max_buffer_length(10*1024*1024);
    79             $telnet->timeout(20);
    80          }
    81
    82          $telnet->close;
    83  }
[download]