Gestion du temps entre deux commandes

Version imprimable

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:

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.

12/06/2013, 11h49
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 ?
12/06/2013, 13h34
Mustaal

Citation:

Envoyé par 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 ?

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#
12/06/2013, 14h23
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.
12/06/2013, 14h48
Mustaal

D'accord avec toi mais dans ce cas là mon 2° copy... ne se lance pas!
12/06/2013, 15h14
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 ?
12/06/2013, 15h21
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 ;-)
12/06/2013, 15h33
Philou67430

Tu as un guide de programmation pour tes switch ?
12/06/2013, 15h41
Mustaal

Citation:

Envoyé par Philou67430

Tu as un guide de programmation pour tes switch ?

C'est à dire?

Sinon avec un sleep de 15 sec cela fonctionne aussi
12/06/2013, 16h57
Philou67430

Une notice expliquant le fonctionnement des commandes telnet du Switch et/ou expliquant comment le piloter à l'aide d'une programme externe.
13/06/2013, 10h26
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.
13/06/2013, 14h10
grigric

multitread

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...

ci-dessous mon code

Code:

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