X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_protocole.erl;h=c15ada1f1910d03b855ef9bb8b2e5c5b628c89c2;hp=9536aaeb00dc3bd60e2d1463be751b31565c3419;hb=994f68e1f8a7a43b55d6bd6214b2a0066671ba74;hpb=28cbabecbfc2e05861779a19e5a75bddbc0ad416 diff --git a/modules/erl/euphorik_protocole.erl b/modules/erl/euphorik_protocole.erl index 9536aae..c15ada1 100755 --- a/modules/erl/euphorik_protocole.erl +++ b/modules/erl/euphorik_protocole.erl @@ -1,7 +1,25 @@ -% coding: utf-8 +% coding: utf-8 +% Copyright 2008 Grégory Burri +% +% This file is part of Euphorik. +% +% Euphorik is free software: you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation, either version 3 of the License, or +% (at your option) any later version. +% +% Euphorik is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with Euphorik. If not, see . +% % Ce module gére les différents messages envoyés par le client (javascript) via AJAX. % Les messages donnés ainsi que les réponses sont au format JSON. % @author G.Burri + -module(euphorik_protocole). -export([ @@ -20,7 +38,6 @@ list_banned_ips/1, erreur/1 ]). --include_lib("xmerl/include/xmerl.hrl"). -include("../include/euphorik_bd.hrl"). -include("../include/euphorik_defines.hrl"). @@ -68,13 +85,13 @@ loginUser({ok, User}, IP) -> json_reponse_login_ok(User); loginUser(_, _) -> % ajoute un délais d'attente - timer:sleep(1000), - erreur("Erreur login"). + timer:sleep(?TEMPS_ATTENTE_ERREUR_LOGIN), + erreur("Couple login/pass introuvable"). % Renvoie un string() représentant un cookie en base 36. Il y a 10^32 possibillités. generer_cookie() -> - {A1,A2,A3} = now(), + {A1, A2, A3} = now(), random:seed(A1, A2, A3), erlang:integer_to_list(random:uniform(math:pow(10, 32)), 36). @@ -94,24 +111,30 @@ profile( {email, Email}, {css, Css}, {nick_format, Nick_format_str}, - {main_page, Main_page}, + {view_times, View_times}, + {view_tooltips, View_tooltips}, {conversations, {array, Conversations_json}} ] ) -> - % est-ce que les messages auquel on répond existent ? - Conversations = lists:foldr( - fun({struct, [{root, Root}, {page, Page}]}, Acc) -> - Message_existe = euphorik_bd:message_existe(Root), - if Message_existe -> - [{Root, Page} | Acc]; - true -> - Acc - end + % virage des messages qui n'existent pas + Conversations = lists:dropwhile( + fun(Message_id) -> + not euphorik_bd:message_existe(Message_id) end, - [], Conversations_json ), - case euphorik_bd:set_profile(Cookie, Login, Password, Pseudo, Email, Css, list_to_atom(Nick_format_str), Main_page, Conversations) of + % TODO : pas très beau, mieux vaut construire un #user + case euphorik_bd:set_profile( + Cookie, + Login, + Password, + Pseudo, + Email, + Css, + list_to_atom(Nick_format_str), + View_times, + View_tooltips, + Conversations) of ok -> json_reponse_ok(); login_deja_pris -> @@ -153,7 +176,13 @@ wait_event([{page, "chat"} | Data]) -> R end; wait_event([{page, "admin"}, {last_troll, Last_troll}]) -> - case euphorik_bd:trolls_attente(Last_troll) of + case wait_event_page_admin(Last_troll) of + banned_ips_refresh -> + {struct, + [ + {reply, "banned_ips_refresh"} + ] + }; {mod, Troll} -> {struct, [ @@ -205,6 +234,7 @@ wait_event_page_chat(User, Racines_conversations, Message_count, Last_message_id {struct, [ {reply, "new_troll"}, {troll_id, Current#troll.id}, + {message_id, euphorik_bd:message_id_associe(Current#troll.id)}, {content, Current#troll.content} ]}; _ -> @@ -212,7 +242,6 @@ wait_event_page_chat(User, Racines_conversations, Message_count, Last_message_id case euphorik_minichat_conversation:conversations(Racines_conversations, Message_count, Last_message_id, Main_page) of vide -> wait_event_bd_page_chat(), - % TODO : l'appel est-il bien tail-recursive ? wait_event_page_chat(User, Racines_conversations, Message_count, Last_message_id, Main_page, Troll_id); Conversations -> % accrochez-vous ca va siouxer ;) @@ -241,6 +270,7 @@ wait_event_page_chat(User, Racines_conversations, Message_count, Last_message_id {nick, Mess#minichat.pseudo}, {login, User_mess#user.login}, {content, Mess#minichat.contenu}, + {root, Mess#minichat.racine_id}, {answer_to, {array, lists:map( fun(Id_mess) -> {ok, M} = euphorik_bd:message_by_id(Id_mess), @@ -280,7 +310,59 @@ wait_event_bd_page_chat() -> % Après 60 minutes de connexion, le client doit donc reétablir une connexion after 1000 * 60 * 60 -> timeout - end. + end. + + +% Attent un événement concernant la page admin +% Renvoie les trolls manquants posté après Last_id ou banned_ips_refresh. +% Si pas de trolls alors attend un événement tel qu'un ajout, une modification ou une suppression. +% renvoie : +% {mod, Troll} +% ou {add, [Trolls]} +% ou {del, Troll_id} +% ou banned_ips_refresh +% ou timeout +wait_event_page_admin(Last_id) -> + case {mnesia:subscribe({table, troll, detailed}), mnesia:subscribe({table, ip_table, detailed})} of + {{error, E}, _ } -> E; + {_, {error, E}} -> E; + _ -> + R = case euphorik_bd:trolls(Last_id) of + [] -> % pas de trolls + wait_event_page_admin(); + Trolls -> + {add, Trolls} + end, + mnesia:unsubscribe({table, troll, detailed}), + mnesia:unsubscribe({table, ip_table, detailed}), + R + end. + +wait_event_page_admin() -> + % s'il n'y a pas de trolls que l'utilisateur n'a pas connaissance alors on attend un événement + receive + % cas où un troll est choisit comme courant + {mnesia_table_event, {write, troll, Troll, [Old_troll | _], _}} + when Old_troll#troll.date_post =:= undefined, Troll#troll.date_post =/= undefined -> + {del, Troll#troll.id}; + {mnesia_table_event, {write, troll, Troll, [_Old_troll | _], _}} -> + {mod, Troll}; + {mnesia_table_event, {write, troll, Troll, [], _}} -> + {add, [Troll]}; + {mnesia_table_event, {delete, troll, {troll, Id}, _, _}} -> + {del, Id}; + {mnesia_table_event, {write, ip_table, IP, [Old_IP | _], _}} + when Old_IP#ip_table.ban =/= IP#ip_table.ban; Old_IP#ip_table.ban_duration =/= IP#ip_table.ban_duration -> + banned_ips_refresh; + {tcp_closed, _} -> + exit(normal); + _ -> + wait_event_page_admin() + % 60 minutes de timeout (on ne sais jamais) + % Après 60 minutes de connexion, le client doit donc reétablir une connexion + after 1000 * 60 * 60 -> + timeout + end. % Un utilisateur envoie un message @@ -302,7 +384,7 @@ put_message( if Strip_content =:= [] -> erreur("Message vide"); true -> - % TODO : non-atomique (update_pseudo+nouveau_message) + % attention : non-atomique (update_pseudo+nouveau_message) euphorik_bd:update_pseudo_user(User#user.id, Nick), case euphorik_bd:nouveau_message(Strip_content, User#user.id, Answer_to) of {erreur, R} -> erreur("Impossible d'ajouter un nouveau message. Raison : " ++ R); @@ -332,10 +414,10 @@ ban( erreur("Il n'est pas possible de s'auto bannir"); {ok, User2 = #user{ek_master = false}} -> euphorik_bd:ban(User2#user.last_ip, Duration), - euphorik_bd:nouveau_message_sys(lists:flatten(io_lib:format("~s ~s est ~s pour ~s.~s", + euphorik_bd:nouveau_message_sys(lists:flatten(io_lib:format("''~s~s'' est ~s pour ~s.~s", [ User2#user.pseudo, - if User2#user.login =:= [] -> ""; true -> "(" ++ User2#user.login ++ ")" end, + if User2#user.login =:= [] -> ""; true -> " (" ++ User2#user.login ++ ")" end, if Duration =< 15 -> "kické"; true -> "banni" end, format_minutes(Duration), if Reason =/= [] -> " - Raison: " ++ Reason; true -> "" end ++ "." @@ -465,8 +547,8 @@ unban_ip( ) -> case euphorik_bd:user_by_cookie(Cookie) of {ok, #user{ek_master = true}} -> - euphorik_bd:deban(unserialize_ip(IP)), - json_reponse_ok; + euphorik_bd:deban(euphorik_common:unserialize_ip(IP)), + json_reponse_ok(); _ -> erreur("Seul les ekMaster peuvent connaitre la liste des ips bannies") end. @@ -487,7 +569,7 @@ list_banned_ips( fun({IP, T, Users}) -> {struct, [ - {ip, serialize_ip(IP)}, + {ip, euphorik_common:serialize_ip(IP)}, {remaining_time, format_minutes(T)}, {users, {array, lists:map( fun({Pseudo, Login}) -> @@ -521,17 +603,6 @@ erreur(Message) -> ] }. - -serialize_ip(IP) -> - lists:flatten(io_lib:format("~w.~w.~w.~w", tuple_to_list(IP))). - - -unserialize_ip(IP) -> - case io_lib:fread("~d.~d.~d.~d", IP) of - {ok, [A, B, C, D], []} -> {A, B, C, D}; - _ -> erreur - end. - % Formatage de minutes. % par exemple : "1min", "45min", "1h23min", "1jour 2h34min" @@ -544,7 +615,7 @@ format_minutes(Min) -> if Minutes == 0 -> ""; true -> - integer_to_list(Minutes) ++ " minute" ++ if Minutes > 1 -> "s"; true -> "" end; true -> "" end + " " ++ integer_to_list(Minutes) ++ " minute" ++ if Minutes > 1 -> "s"; true -> "" end end. @@ -586,22 +657,9 @@ json_reponse_login_ok(User) -> {email, User#user.email}, {css, User#user.css}, {nick_format, atom_to_list(User#user.nick_format)}, - {main_page, User#user.page_principale}, - {conversations, - {array, - lists:map( - fun(C) -> - {struct, - [ - {root, element(1, C)}, - {page, element(2, C)} - ] - } - end, - User#user.conversations - ) - } - }, - {ek_master, User#user.ek_master} + {view_times, User#user.view_times}, + {view_tooltips, User#user.view_tooltips}, + {conversations, {array, User#user.conversations } }, + {ek_master, User#user.ek_master} ] }.