X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_bd.erl;h=6dff985d124d89df95c40c11dc42bf35d75dddb0;hp=b72d7a8c87046d0a66469686f1b7c4d9172488e1;hb=b7547c3be18fe564cf3e06f2a589c7cc1d78ec33;hpb=650c44a784cabc8a1f2bd1daa7e5e61ccf74ca6f

diff --git a/modules/erl/euphorik_bd.erl b/modules/erl/euphorik_bd.erl
index b72d7a8..6dff985 100755
--- a/modules/erl/euphorik_bd.erl
+++ b/modules/erl/euphorik_bd.erl
@@ -460,33 +460,34 @@ nouveau_message(Mess, Auteur_id, Repond_A) ->
    F = fun() ->   
       Nb_id_trouve = length(e(q([E#minichat.id || E <- mnesia:table(minichat), lists:member(E#minichat.id, Repond_A)]), [{tmpdir, ?KEY_SORT_TEMP_DIR}])),
       % est-ce que l'auteur existe ?
-      Auteur = case e(q([E || E <- mnesia:table(user), E#user.id =:= Auteur_id]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]) of
-         [A] -> A;
-         _ -> {erreur, "L'auteur du message est introuvable"}
-      end,
-      if Nb_id_trouve =/= length(Repond_A) ->
-            {erreur, "Un ou plusieurs messages introuvable"};
-         true ->
-            % comparaison entre la date du dernier poste et maintenant (gestion du flood)
-            Delta = delta_date_ms(Auteur#user.date_derniere_connexion, now()),
-            Nouvel_indice_flood = Auteur#user.indice_flood + if Delta =< ?DUREE_SPAM -> 2; true -> -1 end,
-            Auteur_maj = Auteur#user{
-               indice_flood = if Nouvel_indice_flood > ?INDICE_SPAM_MAX -> ?INDICE_SPAM_MAX; Nouvel_indice_flood < 0 -> 0; true -> Nouvel_indice_flood end,
-               date_derniere_connexion = now()
-            },
-            % est-ce que l'auteur à trop floodé ?
-            if Auteur#user.indice_flood =/= ?INDICE_SPAM_MAX, Auteur_maj#user.indice_flood =:= ?INDICE_SPAM_MAX, Delta =< ?DUREE_BLOCAGE_SPAM ->
-               mnesia:write(Auteur#user{indice_flood = Auteur_maj#user.indice_flood}),
-               nouveau_message_sys("''" ++ Auteur#user.pseudo ++ if Auteur#user.login =/= [] -> " (" ++ Auteur#user.login ++ ")"; true -> "" end ++ "'' est bloqué pour " ++ integer_to_list(trunc(?DUREE_BLOCAGE_SPAM / 1000)) ++ " secondes pour cause de flood.");
-            Auteur#user.indice_flood =:= ?INDICE_SPAM_MAX, Delta =< ?DUREE_BLOCAGE_SPAM ->
-               {erreur, "Bloqué pour cause de flood"};
-            true ->     
-               mnesia:write(Auteur_maj),
-               Id = nouvel_id(minichat),
-               inserer_reponses(Id, Repond_A),
-               mnesia:write(#minichat{id=Id, auteur_id=Auteur#user.id, date=now(), pseudo=Auteur#user.pseudo, contenu=Mess}),
-               Id
-            end
+      case e(q([E || E <- mnesia:table(user), E#user.id =:= Auteur_id]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]) of
+         [Auteur] ->
+            if Nb_id_trouve =/= length(Repond_A) ->
+                  {erreur, "Un ou plusieurs messages introuvable"};
+               true ->
+                  % comparaison entre la date du dernier poste et maintenant (gestion du flood)
+                  Delta = delta_date_ms(Auteur#user.date_derniere_connexion, now()),
+                  Nouvel_indice_flood = Auteur#user.indice_flood + if Delta =< ?DUREE_SPAM -> 2; true -> -1 end,
+                  Auteur_maj = Auteur#user{
+                     indice_flood = if Nouvel_indice_flood > ?INDICE_SPAM_MAX -> ?INDICE_SPAM_MAX; Nouvel_indice_flood < 0 -> 0; true -> Nouvel_indice_flood end,
+                     date_derniere_connexion = now()
+                  },
+                  % est-ce que l'auteur à trop floodé ?
+                  if Auteur#user.indice_flood =/= ?INDICE_SPAM_MAX, Auteur_maj#user.indice_flood =:= ?INDICE_SPAM_MAX, Delta =< ?DUREE_BLOCAGE_SPAM ->
+                     mnesia:write(Auteur#user{indice_flood = Auteur_maj#user.indice_flood}),
+                     nouveau_message_sys("''" ++ Auteur#user.pseudo ++ if Auteur#user.login =/= [] -> " (" ++ Auteur#user.login ++ ")"; true -> "" end ++ "'' est bloqué pour " ++ integer_to_list(trunc(?DUREE_BLOCAGE_SPAM / 1000)) ++ " secondes pour cause de flood.");
+                  Auteur#user.indice_flood =:= ?INDICE_SPAM_MAX, Delta =< ?DUREE_BLOCAGE_SPAM ->
+                     {erreur, "Bloqué pour cause de flood"};
+                  true ->     
+                     mnesia:write(Auteur_maj),
+                     Id = nouvel_id(minichat),
+                     inserer_reponses(Id, Repond_A),
+                     mnesia:write(#minichat{id=Id, auteur_id=Auteur#user.id, date=now(), pseudo=Auteur#user.pseudo, contenu=Mess}),
+                     Id
+                  end
+            end;
+         _ ->
+            {erreur, "L'auteur du message est introuvable"}
       end
    end,
    resultat_transaction(mnesia:transaction(F)).
@@ -538,9 +539,9 @@ messages(N, P) ->
       end,
       R = qlc:next_answers(C, N),
       qlc:delete_cursor(C),
-      lists:reverse(R)
+      R
    end,
-   resultat_transaction(mnesia:transaction(F)).
+   lists:reverse(resultat_transaction(mnesia:transaction(F))).
 
 
 % Renvoie les messages manquants pour la page P en sachant qu'il y a N message