\r
-include_lib("xmerl/include/xmerl.hrl").\r
-include_lib("yaws/include/yaws_api.hrl").
+
\r
-% Test du module\r
+% Test du module (TODO)\r
tester() ->
que_dal.\r
out(A) ->\r
%inet:setopts(A#arg.clisock, inet:getopts(A#arg.clisock, [active])),\r
{value, {_, Contenu}} = lists:keysearch("action", 1, yaws_api:parse_post(A)),\r
- Ret = traiter_donnees(Contenu),\r
- %{content, "text/xml", Ret}.
+ Ret = traiter_donnees(Contenu),
{content, "application/json", Ret}.\r
\r
traiter_donnees(Contenu) ->
case json:decode_string(Contenu) of
{ok, {struct, [{action, Action}| Reste]}} ->
- %io:format("~p~n", [euphorik_protocole:login(JSON)]),
json:encode(traiter_action(Action, Reste));
_ ->
error