-register([{login, Login}, {password, Password}]) ->
- case euphorik_minichat:user_by_login(Login) of
- {ok, _} ->
- erreur("Login déjà existant");
- _ ->
- User = euphorik_minichat:nouveau_user(Login, Password, generer_cookie()),
- json_reponse_login_ok(User)
+register([{login, Login}, {password, Password}], IP) ->
+ Can_register = euphorik_minichat:can_register(IP),
+ if Can_register ->
+ case euphorik_minichat:user_by_login(Login) of
+ {ok, _} ->
+ erreur("Login déjà existant");
+ _ ->
+ User = euphorik_minichat:nouveau_user(Login, Password, generer_cookie()),
+ json_reponse_login_ok(User)
+ end;
+ true ->
+ erreur_register_flood()