X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_bd.erl;h=e5afe74beeb11d4fff210d7a5b9d3243c72c1521;hp=d583ecb53e1590c0ba395f7649e1105abfcff394;hb=c8744484cda0d18ec3c13f835785dddf14786743;hpb=c219198926b679ef5bc28182b3d05e8c1f447886

diff --git a/modules/erl/euphorik_bd.erl b/modules/erl/euphorik_bd.erl
index d583ecb..e5afe74 100755
--- a/modules/erl/euphorik_bd.erl
+++ b/modules/erl/euphorik_bd.erl
@@ -312,7 +312,7 @@ nouveau_message(Mess, Auteur_id, Repond_A_ids) ->
                         % 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("''" ++ 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.");
+                           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.");
                         Auteur#user.indice_flood =:= ?INDICE_SPAM_MAX, Delta =< ?DUREE_BLOCAGE_SPAM ->
                            {erreur, "Bloqué pour cause de flood"};
                         true ->     
@@ -652,7 +652,7 @@ can_register(IP) ->
                if T#ip_table.nb_try_register =:= ?NB_MAX_FLOOD_REGISTER, Delta < ?TEMPS_BAN_FLOOD_REGISTER ->
                      false;
                   true ->
-                     mnesia:write(#ip_table{
+                     mnesia:write(T#ip_table{
                         ip = IP,
                         date_last_try_register = now(),
                         nb_try_register = T#ip_table.nb_try_register + if Delta < ?TEMPS_FLOOD_REGISTER -> 1; T#ip_table.nb_try_register > 0 -> -1; true -> 0 end