ajustements

[euphorik.git] / modules / erl / euphorik_bd.erl

diff --git a/modules/erl/euphorik_bd.erl b/modules/erl/euphorik_bd.erl
index 921bac5..bef8b1f 100755 (executable)
--- a/modules/erl/euphorik_bd.erl
+++ b/modules/erl/euphorik_bd.erl
@@ -24,6 +24,10 @@
 \r
 -module(euphorik_bd).\r
 -export([   \r
+   % texte :\r
+   get_texte/1,\r
+   get_texte/2,\r
+   \r
    % users :\r
    nouveau_user/2,\r
    nouveau_user/4,\r
@@ -85,6 +89,20 @@
 -include_lib("stdlib/include/qlc.hrl").\r
 \r
 \r
+get_texte(Id) ->\r
+   get_texte(Id, fr).\r
+\r
+\r
+% TODO : généraliser la langue\r
+get_texte(Id, _Lang = fr) ->\r
+   resultat_transaction(mnesia:transaction(fun() ->\r
+      case mnesia:read({texte, Id}) of\r
+         [#texte{fr = Texte}] -> Texte;\r
+         _ -> "Message " ++ integer_to_list(Id) ++ " unknown"\r
+      end\r
+   end)).\r
+\r
+\r
 % Ajoute un nouveau user et le renvoie\r
 nouveau_user(Cookie, Profile) ->\r
    F = fun() ->\r
@@ -294,7 +312,7 @@ nouveau_message(Mess, Auteur_id, Repond_A_ids) ->
                         % est-ce que l'auteur à trop floodé ?\r
                         if Auteur#user.indice_flood =/= ?INDICE_SPAM_MAX, Auteur_maj#user.indice_flood =:= ?INDICE_SPAM_MAX, Delta =< ?DUREE_BLOCAGE_SPAM ->\r
                            mnesia:write(Auteur#user{indice_flood = Auteur_maj#user.indice_flood}),\r
-                           nouveau_message_sys("''" ++ Profile#profile.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.");\r
+                           nouveau_message_sys("\"" ++ Profile#profile.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.");\r
                         Auteur#user.indice_flood =:= ?INDICE_SPAM_MAX, Delta =< ?DUREE_BLOCAGE_SPAM ->\r
                            {erreur, "Bloqué pour cause de flood"};\r
                         true ->     \r