X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_daemon.erl;h=d61fd9281a458588bce98e865cc1449980997686;hp=be3b39c7dd5e4c61052402146f59ac0cc4dc7ed3;hb=83864ff77d3b37b982d927a80b9ed01b102ada12;hpb=c7e6a315b29ccdf5fba11d372c2f7ed71297b6e4

diff --git a/modules/erl/euphorik_daemon.erl b/modules/erl/euphorik_daemon.erl
index be3b39c..d61fd92 100755
--- a/modules/erl/euphorik_daemon.erl
+++ b/modules/erl/euphorik_daemon.erl
@@ -18,14 +18,15 @@
 % 
 % Module tournant en background s'occupant periodiquement de certaines tâches :
 %  - sélection du prochain troll chaque semaine
+%  - rechargement des modules lors d'une mise en production
 % Date : 05.11.2007
 % @author G.Burri
 
 
 -module(euphorik_daemon).
--export([start/1, reload_euphorik/0]).
+-export([start/1, reload_euphorik/0, loop/0]).
 -include("../include/euphorik_defines.hrl").
-
+
 
 % Démarre le démon
 start(_A) ->
@@ -33,8 +34,8 @@ start(_A) ->
    
    
 loop() ->
-   % on attend une minute de plus pour prevenir une dérive nétive
-   timer:sleep(1000 * trunc(temps_prochaine_election() + 60)),
+   % 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().
 
@@ -45,7 +46,7 @@ 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),
-   % attention au cas où deux dates (maintenant et la date d'éction) ne se trouvent pas dans la même semaine.
+   % 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.
 
 
@@ -58,7 +59,14 @@ reload_euphorik() ->
          code:purge(M),
          code:load_file(M)
       end,
-      [euphorik_minichat_conversation, euphorik_protocole, euphorik_requests, euphorik_bd, euphorik_daemon]
+      [
+         euphorik_common,
+         euphorik_minichat_conversation,
+         euphorik_protocole,
+         euphorik_requests,
+         euphorik_bd,
+         euphorik_bd_update,
+         euphorik_daemon
+      ]
    ).
-   
-
+   
\ No newline at end of file