projects
/
euphorik.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
13bf850
)
MOD très légère modifications des plus insignifiantes
author
Greg Burri
<greg.burri@gmail.com>
Wed, 7 May 2008 20:16:20 +0000
(20:16 +0000)
committer
Greg Burri
<greg.burri@gmail.com>
Wed, 7 May 2008 20:16:20 +0000
(20:16 +0000)
modules/erl/euphorik_bd.erl
patch
|
blob
|
history
diff --git
a/modules/erl/euphorik_bd.erl
b/modules/erl/euphorik_bd.erl
index
678505b
..
1b37b4c
100755
(executable)
--- a/
modules/erl/euphorik_bd.erl
+++ b/
modules/erl/euphorik_bd.erl
@@
-44,12
+44,12
@@
% ip :
ip_table/0,
ban/2,
% ip :
ip_table/0,
ban/2,
+ can_register/1,
% versions :
update_version/1,
% utiles :
% versions :
update_version/1,
% utiles :
- can_register/1,
resultat_transaction/1
\r
]).
\r
\r
resultat_transaction/1
\r
]).
\r
\r
@@
-497,19
+497,10
@@
ban(IP, Duration) ->
end
).
end
).
-
-update_version(1) ->
- mnesia:transform_table(
- ip_table,
- fun() -> null end,
- record_info(fields, ip_table),
- ip_table
- ).
-
-
+
% Si deux enregistrements consequtifs de la même IP sont fait en moins d'une seconde alors
% ip_table.nb_try_register est incrémenté de 1 sinon il est décrémenté de 1 (jusqu'a 0).
% Si deux enregistrements consequtifs de la même IP sont fait en moins d'une seconde alors
% ip_table.nb_try_register est incrémenté de 1 sinon il est décrémenté de 1 (jusqu'a 0).
-% Si ip_table.nb_try_register vaut 5 alors l'ip ne peux plus s'enregistrer pour une heure.
\r
+% Si ip_table.nb_try_register vaut 5 alors l'ip ne peux plus s'enregistrer pour une heure.
can_register(IP) ->
resultat_transaction(mnesia:transaction(
fun() ->
can_register(IP) ->
resultat_transaction(mnesia:transaction(
fun() ->
@@
-534,6
+525,15
@@
can_register(IP) ->
)).
)).
+update_version(1) ->
+ mnesia:transform_table(
+ ip_table,
+ fun() -> null end,
+ record_info(fields, ip_table),
+ ip_table
+ ).
+
+
% Renvoie le résultat d'une transaction (en décomposant le tuple fournit)
resultat_transaction({_, T}) ->
T.
% Renvoie le résultat d'une transaction (en décomposant le tuple fournit)
resultat_transaction({_, T}) ->
T.