Discussion :

[Mustaal]

Bonjour à tous,

Dans mon script, je désire faire une un sauvegarde du fichier de configuration de mon switch en binaire et ascii.
Pour cela j'envoie je dois envoyer les commandes suivantes:

Code :

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

1
2
3
4
5
6
 
 $t->waitfor("$prompt" );
 $t->print("copy runnin-config tftp filename fichier.ac address 1.1.1.1" ); # sauvegarde en ascii
 sleep 1;
 $t->waitfor("$prompt" );
 $t->print("copy config tftp filename fichier.bin address 1.1.1.1" ); # sauvegarde en binaire

Le problème c'est que le copy prend plusieurs secondes, et je ne sais pas comment dire à mon script, attend que la copy runinng-config... soit terminée pour ensuite envoyer la copy config....? Je pourrai peût-être utiliser sleep mais je n'aime pas trop ;-)

Merci pour votre aide.

[Philou67430]

C'est étrange, ton switch retournerait le prompt avant d'avoir fini la copie, comme s'il était multi-tâche ? Ça me surprendrait. Es-tu bien sûr que lorsque tu sors du waitfor après la copie, celle-ci ne s'est pas terminée ?

[Mustaal]

C'est étrange, ton switch retournerait le prompt avant d'avoir fini la copie, comme s'il était multi-tâche ? Ça me surprendrait. Es-tu bien sûr que lorsque tu sors du waitfor après la copie, celle-ci ne s'est pas terminée ?

Je pourrai essayer avec un waitfo("% ACG configuration generation completed" );
% ACG configuration generation completed --> étant la dernier ligne à la fin de commande copy.....

après je reviens sur mon prompt stack#

[Philou67430]

S'il le prompt n'apparait pas avant "% ACG configuration generation completed", tu peux attendre simplement le prompt, comme tu le fais actuellement, et comme je te le suggérais avant.

[Mustaal]

D'accord avec toi mais dans ce cas là mon 2° copy... ne se lance pas!

[Philou67430]

Si tu attends "% ACG configuration generation completed" puis le prompt, ça devrait être pareil...
Je mettrais donc cette temporisation de 1s, voire 5s pour avoir de la marge.
Après tout, ton script n'est pas pris par le temps, non ?

[Mustaal]

quand je mets un sleep de 40 sec, cela se passe bien.

Mais bon mon script devra se connecter sur une centaine de switch et j'essaye donc de perdre le moindre temps ;-)

[Philou67430]

Tu as un guide de programmation pour tes switch ?

[Mustaal]

Tu as un guide de programmation pour tes switch ?

C'est à dire?

Sinon avec un sleep de 15 sec cela fonctionne aussi

[Philou67430]

Une notice expliquant le fonctionnement des commandes telnet du Switch et/ou expliquant comment le piloter à l'aide d'une programme externe.

[Mustaal]

Non mais je maîtrise assez bien les switchs.
Je vais m'orienter vers un sleep de 15 sec ou voir juste un sauvegarde en ascii qui possède une taille plus petite.

[grigric]

hello,

tu peux réduire le temps en faisant du multi-thread, comme ca, ça ne pose pas de soucis de mettre un delay :o)

Sinon, je ne comprend pas trop le soucis, tu te connectes comment au switch ? avec quelle fonction fais tu le backup ?

je fais la meme chose que toi (presque) sur des firewalls checkpoint et je ne rencontre pas de soucis...

[Mustaal]

ci-dessous mon code

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
63
64
65
66
67
 
#!/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, ">>syslog.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
$SWITCH="switch"; 
$PASSEPORT="passeport";
$RADIUS_Y="radius";
$RADIUS_N="no_radius";
$TFTPSERVER='x.x.x.x';
$TELNET = new Net::Telnet (Timeout => 20, Errmode=>'return');
 
 
print $logfile("\n--------------------------------------- $jour/$mois/$annee $heure:$min:$sec ---------------------------------------\n");
 
while ($line = <$file>)
{
    ($HOST,  $NAME, $CODE, $RADIUS) = split(/;/, $line);
 
        if ($TELNET->open($HOST))
            {
            sleep 1;
            $TELNET->waitfor("Enter Ctrl-Y to begin.");
            $TELNET->put("\031") or die "=> cannot send Ctrl+Y \n=> ".$TELNET->errmsg."";
            sleep 1;
            $TELNET->print("user");
            sleep 1;
            $TELNET->print("password");
            sleep 5;
            $TELNET->waitfor("IP Configuration/Setup...");
            $TELNET->print("c") or die "=> cannot send C \n=> ".$TELNET->errmsg."";
            sleep 1;
            $TELNET->waitfor("$PROMPT");
            $TELNET->print("enable") or die "=> cannot send enable \n=> ".$TELNET->errmsg."";
            sleep 1;
            $TELNET->waitfor("$PROMPT");
            $TELNET->print("copy running-config tftp filename $NAME.ascii address $TFTPSERVER") or die "=> Echec de l'envoi copy running-config \n=> ".$TELNET->errmsg."";
            sleep 15;
              $TELNET->waitfor("$PROMPT");
            $TELNET->print("copy config tftp filename $NAME.bin address $TFTPSERVER") or die "=> Echec de l'envoi copy config \n=> ".$TELNET->errmsg."";
             sleep 1;
             $TELNET->close;
            }
 
        else       
            {
            print $logfile ("cannot to make the backup for: $HOST $NAME at $jour/$mois/$annee $heure:$min:$sec");
            }
 
}
 
close ($file); 
close ($logfile);
 
<>; #Garde la fenêtre ouverte après la fin de l'exécution du script