X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_bd.erl;fp=modules%2Ferl%2Feuphorik_bd.erl;h=e5afe74beeb11d4fff210d7a5b9d3243c72c1521;hp=bef8b1f3a754050bdd6f48a71ac094149805f4db;hb=6c3d418da5165f4fc94626a261c5ce33b53a34b8;hpb=d8ab9a821d65e72242d84c11cc5960d2befb161b diff --git a/modules/erl/euphorik_bd.erl b/modules/erl/euphorik_bd.erl index bef8b1f..e5afe74 100755 --- a/modules/erl/euphorik_bd.erl +++ b/modules/erl/euphorik_bd.erl @@ -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