Sauvegarde Configuration Switch Nortel

**Mustaal** · 27/05/2013, 12h46

Bonjour à tous,

Je me suis amusé à écrire un script permettant d’effectuer une sauvegarde TFTP de la config d'un switch NORTEL.Cela marche bien , j'ai bien mon fichier config du switch sauvegarder sur mon pc ;-)

Mais j'aimerai faire évoluer mon script afin qu'il prenne durant le lancement du script les arguments $host(ip du switch) & $name(nom du fichier de sauvegarde) , là je bloque un peu concernant à la ligne 26 de mon programme. je ne sais pas comment lui dire/écrire afin qu'il prenne mon argument $name dans la ligne de commande: copy config tftp filename $name adress 192.168.32.199.

Merci d'avance pour votre aide ;-)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
#!/usr/bin/perl
 
use Net::Telnet;
 
$prompt ='/.*[\$#:>\]\%] *$/';  #prend en compte n'importe caractéres du prompt
$host =$ARGV[0];
$name =$ARGV[1];
 
 
$telnet = new Net::Telnet (Timeout => 20, Errmode=>'return');
 
if ($telnet->open($host))
    {
    sleep 1;
    $telnet->waitfor("Enter Ctrl-Y to begin.");
    $telnet->print("\031") or die "=> Echec de l'envoi de Ctrl+Y \n=> ".$telnet->errmsg."";
    sleep 1;
    $telnet->waitfor("IP Configuration/Setup...");
    $telnet->print("c") or die "=> Echec de l'envoi de Maj+C \n=> ".$telnet->errmsg."";
    sleep 1;
    $telnet->waitfor("$prompt");
    $telnet->print("en\n") or die "=> Echec de l'envoi enable \n=> ".$telnet->errmsg."";
    sleep 1;
    $telnet->waitfor("$prompt");
    $telnet->print("copy  config tftp filename $name address 192.168.32.199\n") or die "=> Echec de l'envoi copy config \n=> ".$telnet->errmsg."";
    sleep 1;
    #@result= $telnet->get();
    #$telnet->waitfor("$prompt");
    #print @result;
 
    $telnet->close;
    }
 
else
    {
      print("Impossible d'établir une session\n");
    }

**Dra_Gun** · 28/05/2013, 16h36

Salut,

un truc tout bête, t'as essayé ca?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$telnet->print("copy  config tftp filename ".$name." address 192.168.32.199\n") or die "=> Echec de l'envoi copy config \n=> ".$telnet->errmsg."";

je m'en sors comme ça avec Expect moi

**thierry.chich** · 28/05/2013, 21h45

Honnêtement, je ne vois pas pourquoi ça ne fonctionne pas. Entre guillemet, une variable est instanciee. Il faudrait être sur que c'est bien ça le problème.

**Philou67430** · 29/05/2013, 10h04

Mustaal, peux-tu poster la ligne de commande que tu lances ?

**Mustaal** · 30/05/2013, 14h35

Bonjour à tous,

Désolé pour le retard de ma réponse ;-)
Cela fonctionne nickle je n'ai rien dû changer au programme, la commande copy passe bien!

Mon script tourne nickel, je parcours un fichier ligne/ligne (dans chaque lignes on a une ip et un nom) que le script récupère et l'associe à $HOST et $NAME

Mais j'ai un petit souci quand même ;-)
Sur certain de mes switchs je dois introduire un nom d'utilisateur et un mot de passe. Et là je n'arrive pas! Mon script et le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
#!/usr/bin/perl
use Net::Telnet;
 
########### DATE & TIME##############################################################################################
($sec,$min,$heure,$jour,$mois,$annee)= localtime time;
$annee+=1900;
$mois+=1;
 
###########OPENING FILE#############################################################################################
unless (open ($file, "switch.txt")) { die ("cannot open file Switch.txt\n"); } #fichier qui contient les adresses et noms des switchs
unless (open ($logfile, ">>Log.txt")) { die ("cannot open file Log.txt\n"); } #fichier qui contient les sessions telnet échouées
 
 
#############Variables################################################################################################
$PROMPT='/.*[\$#:>\]\%] *$/';  #prend en compte n'importe caractéres du prompt
$HOST;
$NAME;
$TFTPSERVER='10.5.1.53';
$TELNET = new Net::Telnet (Timeout => 20, Errmode=>'return');
 
 
while ($line = <$file>)
	{
	($HOST,  $NAME) = split(/;/, $line);
 
		if ($TELNET->open($HOST))
			{
				sleep 1;
				$TELNET->waitfor("Enter Ctrl-Y to begin.");
				$TELNET->print("\031") or die "=> cannot send Ctrl+Y \n=> ".$TELNET->errmsg."";
				sleep 1;
				$TELNET->waitfor("Enter Username: ");
				$TELNET->print("Dupont\n") or die "=> cannot send Ctrl+Y \n=> ".$TELNET->errmsg."";
				sleep 1;
				$TELNET->waitfor("Enter Password: ");
				$TELNET->print("dupont\n") or die "=> cannot send Ctrl+Y \n=> ".$TELNET->errmsg."";
				sleep 1;
				$TELNET->waitfor("IP Configuration/Setup...");
				$TELNET->print("c") or die "=> cannot send C \n=> ".$TELNET->errmsg."";
				sleep 1;
				$TELNET->waitfor("$prompt");
				$TELNET->print("en\n") or die "=> cannot send enable \n=> ".$TELNET->errmsg."";
				sleep 1;
				$TELNET->waitfor("$prompt");
				$TELNET->print("copy config tftp filename $NAME address $TFTPSERVER\n") or die "=> Echec de l'envoi copy config \n=> ".$TELNET->errmsg."";
				sleep 1;
			}
 
		else
			{
		print $logfile ("cannot open session telnet at $jour/$mois/$annee $heure:$min:$sec for $HOST $NAME");
			}
 
	}
 
print $logfile("\n--------------------------------------- $jour/$mois/$annee $heure:$min:$sec ---------------------------------------\n");
close ($file);  
close ($logfile);
 
 
#<>; #Garde la fenêtre ouverte après la fin de l'exécution du script

Merci encore pour votre précieuse aide!

**Philou67430** · 30/05/2013, 15h13

Ta question n'est pas claire : où vas-tu chercher les noms d'utilisateur et les mots de passe ?
Par ailleurs, ton script semble déjà émettre un login et un mot de passe (Dupont et dupont)... du coup, je ne comprends pas si le script que tu publies est celui qui fonctionne nickle et ce que tu attends vraiment ...

**Mustaal** · 30/05/2013, 15h31

Envoyé par Philou67430

Ta question n'est pas claire : où vas-tu chercher les noms d'utilisateur et les mots de passe ?
Par ailleurs, ton script semble déjà émettre un login et un mot de passe (Dupont et dupont)... du coup, je ne comprends pas si le script que tu publies est celui qui fonctionne nickle et ce que tu attends vraiment ...

Pour être clair:
j'ai dans le fichier switch.txt à chaque lignes une adresse ip et un nom:
ex: 10.0.0.1;France_config
.
.
.
10.2.0.5;Canada_config

De ce fichier j'extrais ligne/ligne:
1° l' ip adresse du switch que j'attribu à $HOST qui servira pour mon telnet
2° le nom du fichier de sauvegarde que j'attribu à $NAME
Ainsi je peux exécuter un telnet et faire une sauvegarde de la config de toutes les lignes de mon fichier switch.txt, Ceci fonctionne très bien ;-) T

Mais sur certains de mes switchs, je dois introduire un user et un mot de passe. D'où dans mon ma dernière VERSION DU SCRIPT tu peux lire Dupont et dupont (qui sera un mot de passe unique pour tous les switchs).
Mais cela bloque quand j'envoie user et le password.

merci d'avance

**Philou67430** · 30/05/2013, 16h32

Comment cela bloque ? Les login/mot de passe sont incorrects, ou le script n'envoie rien ?
Si le script n'envoie rien, c'est probablement que le texte du waitfor ne correspond pas à celui qu'envoie le modem.

**Mustaal** · 30/05/2013, 16h54

Envoyé par Philou67430

Comment cela bloque ? Les login/mot de passe sont incorrects, ou le script n'envoie rien ?
Si le script n'envoie rien, c'est probablement que le texte du waitfor ne correspond pas à celui qu'envoie le modem.

Le login/password sont corrects mais je pense que tu as raison le texte du waitfor ne correspond peut-être pas! Que devrai-je mettre? Un aperçu de la fenêtre d'invite:
--------------------------------------------------------------------------------------------------
NetLogin
Username: [ ]
Password: [ ***************** ]

Enter Username:

Enter text, press <Return> or <Enter> when complete.
-------------------------------------------------------------------------------------------------------

Merci d'avance!

**Philou67430** · 30/05/2013, 17h22

As-tu essayé en utilisant la méthode login ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$TELNET->login("Dupont", "dupont");

Sinon, tu peux essayer en utilisant une expression régulière relativement gourmande avec waitfor (pour commencer, puis de plus en plus précise) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$TELNET->waitfor(/.*:.*/i);

**Mustaal** · 30/05/2013, 17h29

Envoyé par Philou67430

As-tu essayé en utilisant la méthode login ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$TELNET->login("Dupont", "dupont");

Sinon, tu peux essayer en utilisant une expression régulière relativement gourmande avec waitfor (pour commencer, puis de plus en plus précise) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$TELNET->waitfor(/.*:.*/i);

Je testerai de la demain matin et je te tiendrai au courant, merci pour ton aide ;-)

L'homme sage apprend de ses erreurs, - L'homme plus sage apprend des erreurs des autres."

**Dra_Gun** · 30/05/2013, 17h52

Je n'utilise pas Net::Telnet, donc je ne pourrai t'aider dessus.
par contre ca ressemble quand même beaucoup à Expect

y'aurait-il une option qui te permet d'avoir un debug à un niveau élevé?
ca existe sur Expect, tu vois ce qui est envoyé, ce qui est reçu, et si ca match tes regexp. Ca aide beaucoup pour voir où ton script bloque

**Mustaal** · 31/05/2013, 10h13

Salut à tous,

j'ai essayé les deux solutions le login() et waitfor(/.*:.*/i) mais cela ne fonctionne toujours pas, grrrrr

Je suis sur que je ne suis pas loin du but!
Voici la partie de mon code qui me pose problème:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
($HOST,  $NAME) = split(/;/, $line);
    print ("$HOST et $NAME\n");
    
    if ($TELNET->open($HOST))
    {
    sleep 1;
    $TELNET->waitfor("Enter Ctrl-Y to begin.");
    $TELNET->print("\031") or die "=> cannot send Ctrl+Y \n=> ".$TELNET->errmsg."";
    sleep 1;
    $TELNET->waitfor(/.*:.*/i);
    $TELNET->print ("dupont\n") or die "=> cannot send Username \n=> ".$TELNET->errmsg."";
    sleep 1;
    $TELNET->waitfor(/.*:.*/i);
    $TELNET->print ("motdepasse\n") or die "=> cannot send Password \n=> ".$TELNET->errmsg."";
    sleep 1;
    $TELNET->waitfor("IP Configuration/Setup...");
    $TELNET->print("c") or die "=> cannot send C \n=> ".$TELNET->errmsg."";
    sleep 1;
    $TELNET->waitfor("$prompt");
    $TELNET->print("enable\n") or die "=> cannot send enable \n=> ".$TELNET->errmsg."";
    sleep 1;
    $TELNET->waitfor("$prompt");
    $TELNET->print("copy config tftp filename $NAME address $TFTPSERVER\n") or die "=> Echec de l'envoi copy config \n=> ".$TELNET->errmsg."";
    sleep 1;
 
    $TELNET->close;

Une idée les amis?

**Mustaal** · 03/06/2013, 15h39

Bonjour à tous,

Après quelques chipotages , je suis enfin arrivé à mon but!
voici mon code (une partie):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
$TELNET->waitfor("Enter Ctrl-Y to begin.");
$TELNET->print("\031") or die "=> cannot send Ctrl+Y \n=> ".$TELNET->errmsg."";
$TELNET->login("Dupont","mdp");
$TELNET->waitfor("IP Configuration/Setup...");
$TELNET->print("c") or die "=> cannot send C \n=> ".$TELNET->errmsg."";
$TELNET->waitfor("$prompt");
$TELNET->print("en\n") or die "=> cannot send enable \n=> ".$TELNET->errmsg."";
$TELNET->waitfor("$prompt");
 $TELNET->print("copy config tftp filename $NAME address $TFTPSERVER\n") or die "=> Echec de l'envoi copy config \n=> ".$TELNET->errmsg."";

Merci pour votre aide à tous!

Sauvegarde Configuration Switch Nortel

Programmation et administration système Perl

Discussions similaires

Partager

Partager