X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_requests.erl;h=42fb87ff5207d11ff3af83d7c592372690ee4fe7;hp=3ec70f3bbbc53b302566496d82a3d6a5f669640a;hb=81393a74d648e4830dc8c7c562fa203f50a105f6;hpb=828daf607fdce322ea17c1786dff84f712aa1632 diff --git a/modules/erl/euphorik_requests.erl b/modules/erl/euphorik_requests.erl index 3ec70f3..42fb87f 100755 --- a/modules/erl/euphorik_requests.erl +++ b/modules/erl/euphorik_requests.erl @@ -15,7 +15,7 @@ % % You should have received a copy of the GNU General Public License % along with Euphorik. If not, see . -% +% % Ce module est fait pour répondre à des requêtes JSON via 'AJAX'. % Il est définit comme 'appmods' pour l'url "request" dans Yaws. % Par exemple http://www.euphorik.ch/request abouti sur la fonction out/1 de ce module. @@ -24,12 +24,12 @@ -module(euphorik_requests). -export([out/1]). --include_lib("yaws/include/yaws_api.hrl"). +-include_lib("yaws_api.hrl"). -include("../include/euphorik_defines.hrl"). % Point d'entrée pour les requêtes AJAX sur http://www.euphorik.ch/request. -out(A) -> +out(A) -> IP = case inet:peername(A#arg.clisock) of {ok, {Adresse, _Port}} -> Adresse; _ -> inconnue @@ -55,7 +55,7 @@ traiter_message(Contenu, IP) -> ))) end ). - + % Authentification d'un client. traiter_action("authentification", JSON, IP) -> @@ -78,19 +78,9 @@ traiter_action("ban", JSON, _) -> % Un ekMaster slap un utilisateur. traiter_action("slap", JSON, _) -> euphorik_protocole:slap(JSON); -% Un ekMaster envoie un nouveau troll. -traiter_action("put_troll", JSON, _) -> - euphorik_protocole:put_troll(JSON); -% Un ekMaster modifie un troll. -traiter_action("mod_troll", JSON, _) -> - euphorik_protocole:mod_troll(JSON); -% Un ekMaster supprime un troll. -traiter_action("del_troll", JSON, _) -> - euphorik_protocole:del_troll(JSON); % Un ekMaster demande la liste des ips bannies. traiter_action("list_banned_ips", JSON, _) -> euphorik_protocole:list_banned_ips(JSON); % Un ekMaster débannie une ip. traiter_action("unban", JSON, _) -> euphorik_protocole:unban_ip(JSON). - \ No newline at end of file