7ee5c7dbe8c6388d8eda1429260fc9ff0af5af4a
[euphorik.git] / euphorik_requests.erl
1 % coding: utf-8
2 % Ce module est fait pour répondre à des requêtes 'AJAX'.
3 % Il est définit comme 'appmods' pour l'url "request" dans yaws.
4 % Par exemple http://www.euphorik.ch/request abouti sur la fonction out() de ce module.
5 % @author G.Burri
6
7 -module(euphorik_requests).
8 -export([
9 tester/0,
10 out/1
11 ]).
12
13 -include_lib("xmerl/include/xmerl.hrl").
14 -include_lib("yaws/include/yaws_api.hrl").
15
16
17 % Test du module (TODO)
18 tester() ->
19 que_dal.
20
21
22 % il faut catcher toutes les exceptions possibles
23 out(A) ->
24 %inet:setopts(A#arg.clisock, inet:getopts(A#arg.clisock, [active])),
25 {value, {_, Contenu}} = lists:keysearch("action", 1, yaws_api:parse_post(A)),
26 Ret = traiter_donnees(Contenu),
27 {content, "application/json", Ret}.
28
29
30 traiter_donnees(Contenu) ->
31 case json:decode_string(Contenu) of
32 {ok, {struct, [{action, Action}| Reste]}} ->
33 json:encode(traiter_action(Action, Reste));
34 _ ->
35 error
36 end.
37
38
39 % authentification d'un client
40 traiter_action("authentification", JSON) ->
41 euphorik_protocole:login(JSON);
42 % un client s'enregistre (pseudo + password)
43 traiter_action("register", JSON) ->
44 euphorik_protocole:register(JSON);
45 % modification du profile
46 traiter_action("set_profile", JSON) ->
47 euphorik_protocole:profile(JSON);
48 % un utilisateur attend un événement (par exemple l'arrivé d'un nouveau message)
49 traiter_action("wait_event", JSON) ->
50 euphorik_protocole:wait_event(JSON);
51 % un utilisateur envoie un message
52 traiter_action("put_message", JSON) ->
53 euphorik_protocole:put_message(JSON).
54