Faire un pause dans un script Tcl
news.free.fr
Je ne suis pas sur de la faisabilité mais j'aimerais pouvoir faire une pause
dans mon script tcl.
Je m'explique:
Mon, script controle des équipements réseaux et permet d'enchainer des tests
sur ces équipements.
Un déroulement complet peut prendre plusieurs heures selon les cas.
Le problème, c'est si un intervenant doit changer une carte par exemple.
Dans ce cas, je suis obligé d'arrêter mon script et de le relancer une fois
l'intervention terminée.
Du coup, le script reprend tout depuis le début.
Ce que j'aimerais, c'est de pouvoir mettre le script en mode pose le temps
de l'intervention, et de pouvoir reprendre là où il en était une fois
l'intervention finie.
Mon script n'utilise pa la partie Tk et je suis sous windows serveur 2003.
Voilà le topo.
Merci d'avance pour toute idée ou suggestion.
Cordialement,
Christian
Kroc
Tu fixes une variable globale ::wait à 0 au début de ton script. A
chaque début de procédure et à chaque début de boucle longue, tu
rajoutes cette ligne :
while {$::wait == 1} {
after 1000
}
Et dans ton interface graphique, tu rajoutes un checkbutton dans ce
genre :
checkbutton .cbwait -text "Suspendre le traitement" -variable ::wait
Enfin, le plus important, tu fais en sorte que ton application ne
bloque jamais l'interface (voir http://wfr.tcl.tk/1219 pour savoir
comment faire).
--
David.
Miko
Miko
Kroc
> Heu, Kroc, le monsieur précise qu'il n'utilise pas Tk...
>
> Miko
Ah oui. Au temps pour moi. Dans ce cas il faut passer par un fichier
dans lequel on écrit juste 0 ou 1 selon qu'on veuille ou pas suspendre
le traitement.
--
David
Merwin
vwait ne pourrait pas être une solution?
--
Thibaut
Miko
activité dans un log (ce qui serait propre), il suffit d'analyser le log
avec une regexp bien sentie.
on peut ensuite après analyse du log, savoir ou il faut repartir. Si les
différents tests sont repartis en procs, ce que je suppose aussi.
Ca en fait des suppositions....
Miko
Kroc
> vwait ne pourrait pas être une solution?
Non : vwait sert à attendre que quelque chose soit terminé avant de
poursuivre, alors que là on veut savoir si on a le droit de poursuivre
à l'intérieur de chaque boucle ou procédure.
--
David
news.free.fr
merci.
Christian
"Kroc" <kr...@kroc.tk> wrote in message
news:5a369df7-64e2-49c8...@z66g2000hsc.googlegroups.com...
Kroc
> Si le script n'est pas interactif (ce que je suppose), et qu'il consigne son
> activité dans un log (ce qui serait propre), il suffit d'analyser le log
> avec une regexp bien sentie.
Miko ! D'abord, on a déjà dit que l'usage de regexp est réservé aux
klingons (les humains ne pouvant pas en assimiler la syntaxe car tout
le monde sait que la toute première manpage de regexp a été écrite par
Marc Okrand en tlhIngan Hol).
De plus, regexp est lent (sans doute en rappel à Qo'noS (Kronos), la
planète des Klingons) : on doit lui préférer des solutions basées sur
string et switch, bien plus rapides (et tellement plus faciles à
lire !).
Qapla'
--
Kroc
Miko
>De plus, regexp est lent (sans doute en rappel à Qo'noS (Kronos), la
>planète des Klingons) : on doit lui préférer des solutions basées sur
>string et switch, bien plus rapides (et tellement plus faciles à
>lire !).
Bof... Le temps de se faire retailler les oreilles en pointe, on ne voit pas
la différence (surtout avec mon core 12 dodecaplus à vitesse démesurée...)
Miko
Kroc
> Bof... Le temps de se faire retailler les oreilles en pointe, on ne voit pas
> la différence (surtout avec mon core 12 dodecaplus à vitesse démesurée...)
Vulcain vaut mieux que deux tu l'auras !
Cap'tain Kroc à Enterprise ? Téléportation Scotty !
--
David