% coding: utf-8
% 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.
% @author G.Burri

-module(euphorik_requests).
-export([
   tester/0,
   out/1
]).

-include_lib("xmerl/include/xmerl.hrl").
-include_lib("yaws/include/yaws_api.hrl").


% Test du module (TODO)
tester() ->
   que_dal.


out(A) ->
   %io:format("~p~n~n", [A]),
   IP = case inet:peername(A#arg.clisock) of
         {ok, {Adresse, _Port}} -> Adresse;
      _ -> inconnue
   end,
   %inet:setopts(A#arg.clisock, inet:getopts(A#arg.clisock, [active])),
   {value, {_, Contenu}} = lists:keysearch("action", 1, yaws_api:parse_post(A)),
   Ret = traiter_donnees(Contenu, IP),
   {content, "application/json", Ret}.


traiter_donnees(Contenu, IP) ->
   case json:decode_string(Contenu) of
      {ok, {struct, [{action, Action}| Reste]}} ->
         json:encode(traiter_action(Action, Reste, IP));
      _ ->
         error
   end.
   

% authentification d'un client
traiter_action("authentification", JSON, IP) ->
   euphorik_protocole:login(JSON, IP);
% un client s'enregistre (pseudo + password)
traiter_action("register", JSON, IP) ->
   euphorik_protocole:register(JSON, IP);
% modification du profile
traiter_action("set_profile", JSON, _) ->
   euphorik_protocole:profile(JSON);
% un utilisateur attend un événement (par exemple l'arrivé d'un nouveau message)
traiter_action("wait_event", JSON, _) ->
   euphorik_protocole:wait_event(JSON);
% un utilisateur envoie un message
traiter_action("put_message", JSON, _) ->
   euphorik_protocole:put_message(JSON);
traiter_action("ban", JSON, _) ->
   euphorik_protocole:ban(JSON).