\r
% 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() ->
% 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)).