From accd9081eade01ce5ebf6b54cd6f29f55f3641a7 Mon Sep 17 00:00:00 2001 From: Greg Burri Date: Mon, 16 Jun 2008 10:29:53 +0000 Subject: [PATCH] =?utf8?q?ADD=20possiblit=C3=A9=20de=20recharger=20le=20pr?= =?utf8?q?ocess=20"euphorik=5Fdaemon"?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- modules/erl/euphorik_daemon.erl | 19 +++++++++++++------ 1 file changed, 13 insertions(+), 6 deletions(-) diff --git a/modules/erl/euphorik_daemon.erl b/modules/erl/euphorik_daemon.erl index d61fd92..274a2c2 100755 --- a/modules/erl/euphorik_daemon.erl +++ b/modules/erl/euphorik_daemon.erl @@ -30,14 +30,19 @@ % Démarre le démon start(_A) -> + register(euphorik_daemon, self()), loop(). loop() -> - % on attend une minute de plus pour prevenir une dérive négative - timer:sleep(1000 * (trunc(temps_prochaine_election() + 60))), - euphorik_bd:elire_troll(), - euphorik_daemon:loop(). + % on attend une minute de plus pour prevenir une dérive négative (ce qui pourrait engendrer une double élection) + receive + switch -> % permet de substituer le code du process par un nouveau code, voir reload_euphorik + euphorik_daemon:loop() + after 1000 * (trunc(temps_prochaine_election() + 60)) -> + euphorik_bd:elire_troll(), + euphorik_daemon:loop() + end. % Renvoie le nombre de seconde qu'il reste jusque au prochain lundi à l'heure donnée (l'heure est sur 24heures) @@ -45,7 +50,7 @@ loop() -> temps_prochaine_election() -> {Date, {H,M,S}} = calendar:local_time(), Delta = (?JOUR_ELECTION_TROLL - 1) * 86400 + ?HEURE_ELECTION_TROLL * 60 * 60 - -((calendar:day_of_the_week(Date) - 1) * 86400 + H * 60 * 60 + M * 60 + S), + -((calendar:day_of_the_week(Date) - 1) * 86400 + H * 60 * 60 + M * 60 + S), % attention au cas où deux dates (maintenant et la date d'élection) ne se trouvent pas dans la même semaine. if Delta =< 0 -> Delta + 7 * 86400; true -> Delta end. @@ -68,5 +73,7 @@ reload_euphorik() -> euphorik_bd_update, euphorik_daemon ] - ). + ), + % changement du code du daemon + euphorik_daemon ! switch. \ No newline at end of file -- 2.43.0