#!/usr/bin/perl

use Net::Telnet;

$serveur_tftp = 'x.x.x.x';

our $switchlist_nortel_conf = "nortel.txt";
our @devices_nortel;
open(FILEHANDLER, "<$switchlist_nortel_conf") or die "ERREUR : $switch
+list_nortel_conf n'existe pas !\n";
while (<FILEHANDLER>) {
    next if (/^\n$/);
    next if (/^#/);
    chomp;
    push (@devices_nortel, $_);
    }
close(FILEHANDLER);

foreach $switch_nortel_conf (@devices_nortel) {
    &Recup_nortel;
}

sub Recup_nortel {
    @switch_nortel_details = split(/ /, $switch_nortel_conf);
    $prompt = qw(/\>/);
    $out_log='log/Out_Log_'.@switch_nortel_details[1].'.txt';
    $in_log='log/In_Log_'.@switch_nortel_details[1].'.txt';
    $dump_log='log/Dump_Log_'.@switch_nortel_details[1].'.txt';
    
    $t= new Net::Telnet (Timeout=>55,
                    Errmode=>'return',
                    Dump_log=>$dump_log,
                    Input_log=>$in_log,
                    Output_log=>$out_log,
                    prompt=>$prompt
                    );
    
    $t->open(@switch_nortel_details[0]) or die $t->errmsg;;
    
    print ("DEBUG : Connexion effectuée\n");
    
    print ("DEBUG : Envoi de Ctrl-Y \n");
    
    $var_0=chr(25);
    @ctrly=$t->print($var_0) or die $t->errmsg;
    
    print ("DEBUG : Envoi du login => @switch_nortel_details[3]\n");

    $t->waitfor('/Username:/i');
    $var_1="@switch_nortel_details[3]";
    @login=$t->print($var_1) or die $t->errmsg;
    
    print ("DEBUG : Envoi du password => @switch_nortel_details[2]\n")
+;
    
    $t->waitfor('/Password:/i');
    $var_2="@switch_nortel_details[2]";
    @password=$t->print($var_2) or die $t->errmsg;
    
    print ("DEBUG : Selection de la ligne de commande (envoi de Maj+C)
+ \n");
    
    $var_3=chr(67);
    @majc=$t->print($var_3) or die $t->errmsg;
    
    print ("DEBUG : Envoi de enable\n");
    
    $t->cmd("enable") or die $t->errmsg;
    
    print ("DEBUG : Envoi de copy running-config tftp address $serveur
+_tftp filename @switch_nortel_details[1]\n");
    
    $t->cmd("copy running-config tftp address $serveur_tftp filename @
+switch_nortel_details[1]"); #or die $t->errmsg;
    
    print ("DEBUG : Envoi de close\n");
    
    $t->close or die $t->errmsg;
    
    return 1;
}

exit;
[download]