modules/erl/euphorik_deamon.erl

   1 % Module tournant en background s'occupant periodiquement de certaines tâches.
   2 % Auteur : G.Burri
   3 % Date : 05.11.2007
   4
   5 -module(euphorik_deamon).
   6 -export([start/1]).
   7
   8 % L'age max que peut avoir les fichier se trouvant dans le dossier 'tmp' (en second)
   9 -define(AGE_MAX_TMP, 86400). % 24 heures
  10
  11 % Démarre le démon
  12 start(A) ->
  13    loop(A).
  14
  15
  16 loop(A) ->
  17    verifier_tmp_captcha(),
  18    timer:sleep(100000), %  attend 100 secondes
  19    loop(A).
  20
  21
  22 % Vérifie le repertoire tmp où se trouve les captcha et efface les plus vieux.
  23 verifier_tmp_captcha() ->
  24    ok.
  25