X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_daemon.erl;h=d8207ecebd1a5139f77af9619ea911666a4a087e;hb=ee213362bfff232dbdf4583d1e7fe1a495a43ec1;hp=51f224e2ec4f69a14ef9c8f5de6b0c4887fe2cb4;hpb=df40c17f94b92c8e60331395610428868f0993be;p=euphorik.git diff --git a/modules/erl/euphorik_daemon.erl b/modules/erl/euphorik_daemon.erl index 51f224e..d8207ec 100755 --- a/modules/erl/euphorik_daemon.erl +++ b/modules/erl/euphorik_daemon.erl @@ -23,19 +23,17 @@ -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) -> - % dossier utilisé lors de gros trie par qlc, voir qlc:keysort() - file:set_cwd("/tmp"), +start(_A) -> loop(). loop() -> - % on attend une minute de plus pour prevenir une dérive nétive + % 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(). @@ -62,5 +60,4 @@ reload_euphorik() -> end, [euphorik_minichat_conversation, euphorik_protocole, euphorik_requests, euphorik_bd, euphorik_daemon] ). - - + \ No newline at end of file