X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=modules%2Ferl%2Fold%2Feuphorik_deamon.erl;fp=modules%2Ferl%2Fold%2Feuphorik_deamon.erl;h=a957475665962232eb6d79c2f74593046b598df5;hb=5527b650d1cb16caa6afc8f44545097ca92b97a2;hp=0000000000000000000000000000000000000000;hpb=897468be6fa01ab87f38189f2daf266f3289c9fb;p=euphorik.git

diff --git a/modules/erl/old/euphorik_deamon.erl b/modules/erl/old/euphorik_deamon.erl
new file mode 100755
index 0000000..a957475
--- /dev/null
+++ b/modules/erl/old/euphorik_deamon.erl
@@ -0,0 +1,25 @@
+% Module tournant en background s'occupant periodiquement de certaines tâches.
+% Auteur : G.Burri
+% Date : 05.11.2007
+
+-module(euphorik_deamon).
+-export([start/1]).
+
+% L'age max que peut avoir les fichier se trouvant dans le dossier 'tmp' (en second)
+-define(AGE_MAX_TMP, 86400). % 24 heures
+
+% Démarre le démon
+start(A) ->
+   loop(A).
+
+
+loop(A) ->
+   verifier_tmp_captcha(),
+   timer:sleep(100000), %  attend 100 secondes
+   loop(A).
+
+
+% Vérifie le repertoire tmp où se trouve les captcha et efface les plus vieux.
+verifier_tmp_captcha() ->
+   ok.
+   
\ No newline at end of file