From: Greg Burri Date: Mon, 16 Jun 2008 10:29:53 +0000 (+0000) Subject: ADD possiblité de recharger le process "euphorik_daemon" X-Git-Tag: 1.1.0~126 X-Git-Url: http://git.euphorik.ch/?a=commitdiff_plain;ds=inline;h=accd9081eade01ce5ebf6b54cd6f29f55f3641a7;hp=83864ff77d3b37b982d927a80b9ed01b102ada12;p=euphorik.git ADD possiblité de recharger le process "euphorik_daemon" --- 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