X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_requests.erl;h=8c46b7bd53b38ae06c0f6c2320fb0c334d4e2e85;hp=f49738287e3a49914b2c68c3447b02ad81875d88;hb=4708cea3e56946707cd391b3a5442c48b2045254;hpb=d0a68333e392d0aac61b612a07dd9cc80c4eeb93 diff --git a/modules/erl/euphorik_requests.erl b/modules/erl/euphorik_requests.erl index f497382..8c46b7b 100755 --- a/modules/erl/euphorik_requests.erl +++ b/modules/erl/euphorik_requests.erl @@ -18,19 +18,18 @@ % % Ce module est fait pour répondre à des requêtes '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() de ce module. +% Par exemple http://www.euphorik.ch/request abouti sur la fonction out/1 de ce module. % @author G.Burri -module(euphorik_requests). -export([out/1, traiter_donnees/2]). --include_lib("xmerl/include/xmerl.hrl"). -include_lib("yaws/include/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) -> - %io:format("~p~n", [A]), % utilisé parfois pendant le debug IP = case inet:peername(A#arg.clisock) of {ok, {Adresse, _Port}} -> Adresse; _ -> inconnue @@ -40,7 +39,6 @@ out(A) -> inet:setopts(A#arg.clisock, [{active, true}, {keepalive, true}]), {value, {_, Contenu}} = lists:keysearch("action", 1, yaws_api:parse_post(A)), Ret = traiter_donnees(Contenu, IP), - %io:format("~p~n", [Ret]), {content, "application/json", Ret}. @@ -61,7 +59,7 @@ traiter_donnees(Contenu, IP) -> % authentification d'un client traiter_action("authentification", JSON, IP) -> euphorik_protocole:login(JSON, IP); -% un client s'enregistre (pseudo + password) +% un client s'enregistre : (pseudo + password) ou de manière anonyme traiter_action("register", JSON, IP) -> euphorik_protocole:register(JSON, IP); % modification du profile @@ -73,18 +71,25 @@ traiter_action("wait_event", JSON, _) -> % un utilisateur envoie un message traiter_action("put_message", JSON, _) -> euphorik_protocole:put_message(JSON); +% un ekMaster bannie un utilisateur (ip) traiter_action("ban", JSON, _) -> euphorik_protocole: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