2 % Ce module est fait pour répondre à des requêtes 'AJAX'.
6 -module(euphorik_requests
).
12 -include_lib("xmerl/include/xmerl.hrl").
13 -include_lib("yaws/include/yaws_api.hrl").
17 %~ {XML, _} = xmerl_scan:string(
18 %~ "<action name=\"loginCaptcha\">"
19 %~ " <captchaCrypt>b1b1b4e72e6f3d00e477cf37cced5851</captchaCrypt>"
20 %~ " <captchaInput>LKJDLA</captchaInput>"
22 %~ io:format("Nouvel user : ~p~n", [nouveau_user(XML)]).
24 {XML2
, _
} = xmerl_scan:string(
25 "<action name=\"login\">"
26 " <cookie>5DZQ2HCRO7JIX3QCSWRNL</cookie>"
28 io:format("Login : ~p~n", [euphorik_protocole:login(XML2
)]).
30 %~ {XML, _} = xmerl_scan:string(
31 %~ "<action name=\"refreshMessages\">"
32 %~ "<nombreMessage>5</nombreMessage>"
35 %~ io:format("Messages de la premières page : ~p~n", [euphorik_protocole:refreshMessage(XML)]).
37 %~ traiter_xml("<action name=\"message\">"
38 %~ "<cookie>4UDUSY6Z2IZNTQO484S8X</cookie>"
39 %~ "<pseudo>Pifou</pseudo>"
40 %~ "<contenu>test & plop</contenu>"
43 %~ "<action name=\"generationCaptcha\">"
46 % il faut catcher toutes les exceptions possibles
48 %inet:setopts(A#arg.clisock, inet:getopts(A#arg.clisock, [active])),
49 {value
, {_
, Contenu
}} = lists:keysearch("action", 1, yaws_api:parse_post(A
)),
50 Ret
= traiter_xml(Contenu
),
51 {content
, "text/xml", Ret
}.
54 traiter_xml(Contenu
) ->
55 {XML
, _
} = xmerl_scan:string(Contenu
),
56 traiter_action(XML#xmlElement
.attributes
, XML
).
59 % un client demande la génération d'un captcha
60 traiter_action([#xmlAttribute
{value
="generationCaptcha"}], XML
) ->
61 euphorik_protocole:generation_captcha(XML
);
62 % un client se log pour la première fois
63 traiter_action([#xmlAttribute
{value
="loginCaptcha"}], XML
) ->
64 euphorik_protocole:nouveau_user_captcha(XML
);
65 % un client s'enregistre (pseudo + password)
66 traiter_action([#xmlAttribute
{value
="register"}], XML
) ->
67 euphorik_protocole:nouveau_user_login(XML
);
68 % authentification d'un client
69 traiter_action([#xmlAttribute
{value
="login"}], XML
) ->
70 euphorik_protocole:login(XML
);
71 % modification du profile
72 traiter_action([#xmlAttribute
{value
="profile"}], XML
) ->
73 euphorik_protocole:profile(XML
);
74 % le client désire les messages
75 traiter_action([#xmlAttribute
{value
="refreshMessages"}], XML
) ->
76 euphorik_protocole:refreshMessage(XML
);
78 traiter_action([#xmlAttribute
{value
="message"}], XML
) ->
79 euphorik_protocole:message(XML
).