X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_bd.erl;h=7fac81d4a89df771598dca1f5aa9f0e8ba3d8a4c;hp=3f746891257eaefcfbb235507d9d7cda8ce133eb;hb=20c5327d1229313b2a6bda46a74459f70614306d;hpb=d5325d38a2655d2368aa576d6390cb766ce6cc06

diff --git a/modules/erl/euphorik_bd.erl b/modules/erl/euphorik_bd.erl
index 3f74689..7fac81d 100755
--- a/modules/erl/euphorik_bd.erl
+++ b/modules/erl/euphorik_bd.erl
@@ -346,7 +346,7 @@ user_by_mess(Id) ->
    
    
 % Ajoute un message. Repond_A est une liste d'id auquel le message répond
-% retourne soit l'id du message soit erreur.
+% retourne soit l'id du message soit {erreur, <raison>}.
 nouveau_message(Mess, Auteur_id, Repond_A) ->
    % regarde si les id 'Repond_A' existent
    F = fun() ->   
@@ -354,30 +354,31 @@ nouveau_message(Mess, Auteur_id, Repond_A) ->
       % est-ce que l'auteur existe ?
       Auteur = case e(q([E || E <- mnesia:table(user), E#user.id =:= Auteur_id])) of
          [A] -> A;
-         _ -> throw("L'auteur du message est introuvable")
+         _ -> {erreur, "L'auteur du message est introuvable"}
       end,
-      if Nb_id_trouve =/= length(Repond_A) -> throw("Un ou plusieurs messages introuvable");
-         true -> ok
-      end,
-      % compare les dernière
-      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;
-      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
+      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
    end,
    resultat_transaction(mnesia:transaction(F)).