X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_protocole.erl;h=a32128720064c07561f9bf6f4f4b003b56cbe2c0;hp=1b0a49bc4cf10bdb268dd6055b64287c87e26abc;hb=ba4387c6afaaa2964c28292e7fbd1c35b3404ce5;hpb=a5e1d507f9b4172924e63d3333610b13747a2582

diff --git a/modules/erl/euphorik_protocole.erl b/modules/erl/euphorik_protocole.erl
index 1b0a49b..a321287 100755
--- a/modules/erl/euphorik_protocole.erl
+++ b/modules/erl/euphorik_protocole.erl
@@ -25,7 +25,6 @@
 -export([
    register/2,
    login/2,
-   logout/1,
    profile/1,
    wait_event/1,
    put_message/1,
@@ -92,6 +91,8 @@ login([{cookie, Cookie}], IP) ->
          erreur("Authentification impossible par cookie")
    end.
    
+   
+% L'utilisateur donné se logge avec l'ip donnée.
 loginUser(User, IP) ->
    euphorik_bd:update_ip(User#user.id, IP),
    euphorik_bd:update_date_derniere_connexion(User#user.id),
@@ -105,11 +106,6 @@ generer_cookie() ->
    erlang:integer_to_list(random:uniform(math:pow(10, 32)), 36).
 
 
-% Un utilisateur se délogge.
-logout(_) ->
-   do_nothing.
-
-
 % Modification du profile.
 profile(
    [
@@ -122,7 +118,6 @@ profile(
    case profile_from_json(Profile_json) of
       {erreur, E} -> E;
       Profile ->
-         %  TODO : pas très beau, mieux vaut construire un #user
          case euphorik_bd:set_profile(Cookie, Login, Password, Profile) of
             ok ->
                json_reponse_ok();
@@ -196,7 +191,7 @@ profile_from_json(
    end.
 
 
-% Renvoie les messages appropriés.
+% Attend un événement pour la page "Chat"
 % last_message id et cookie sont facultatifs
 wait_event([{page, "chat"} | Data]) ->
    % traitement des inputs
@@ -227,6 +222,7 @@ wait_event([{page, "chat"} | Data]) ->
          mnesia:unsubscribe({table, troll, detailed}),
          R
    end;
+% Attend un événement pour la page "Admin"
 wait_event([{page, "admin"}, {last_troll, Last_troll}]) ->
    case wait_event_page_admin(Last_troll) of
       banned_ips_refresh ->
@@ -279,6 +275,7 @@ wait_event(_) ->
    erreur("Page inconnue").
 
 
+% Attend un événement pour la page "Chat" et renvoie soit un troll soit les messages manquants au client.
 wait_event_page_chat(User, Racines_conversations, Message_count, Last_message_id, Main_page, Troll_id) ->
    % est-ce que le troll est à jour ?
    case euphorik_bd:current_troll() of