ADD troll sur la page principale

[euphorik.git] / modules / erl / euphorik_deamon.erl

diff --git a/modules/erl/euphorik_deamon.erl b/modules/erl/euphorik_deamon.erl
new file mode 100755 (executable)
index 0000000..0689203
--- /dev/null
+++ b/modules/erl/euphorik_deamon.erl
@@ -0,0 +1,22 @@
+% Module tournant en background s'occupant periodiquement de certaines tâches.\r
+% Auteur : G.Burri\r
+% Date : 05.11.2007\r
+\r
+-module(euphorik_deamon).
+-export([start/1]).
+
+-include("../include/euphorik_defines.hrl").\r
+
+
+% Démarre le démon
+start(A) ->\r
+   loop(A).
+
+\r
+loop(A) ->
+   euphorik_bd:elire_troll(),\r
+   timer:sleep(1000),\r
+   loop(A).
+\r
+
+