X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_requests.erl;h=7ee5c7dbe8c6388d8eda1429260fc9ff0af5af4a;hb=2faefc542de20cfcc0220b5c7fd7982dd0fbbfd4;hp=13a86cb514480ffb4967f00cd814e517e412835b;hpb=3f3371f52e6d1e513011dd02a3679a079aa2253d;p=euphorik.git diff --git a/modules/erl/euphorik_requests.erl b/modules/erl/euphorik_requests.erl index 13a86cb..7ee5c7d 100755 --- a/modules/erl/euphorik_requests.erl +++ b/modules/erl/euphorik_requests.erl @@ -12,8 +12,9 @@ -include_lib("xmerl/include/xmerl.hrl"). -include_lib("yaws/include/yaws_api.hrl"). + -% Test du module +% Test du module (TODO) tester() -> que_dal. @@ -22,15 +23,13 @@ tester() -> out(A) -> %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), - %{content, "text/xml", Ret}. + Ret = traiter_donnees(Contenu), {content, "application/json", Ret}. 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