-module(euphorik_protocole).
-export([
- generation_captcha/1,
- nouveau_user_captcha/1,
+ %generation_captcha/1, Obsolète
+ %nouveau_user_captcha/1, Obsolète
nouveau_user_login/1,
login/1,
logout/1,
Pseudo = case xmerl_xpath:string("pseudo", Action) of [#xmlElement{content = [#xmlText{value = P2}]}] -> P2; _ -> Login end,
Email = case xmerl_xpath:string("email", Action) of [#xmlElement{content = [#xmlText{value = E}]}] -> E; _ -> undefined end,
Css = case xmerl_xpath:string("css", Action) of [#xmlElement{content = [#xmlText{value = C}]}] -> C; _ -> undefined end,
+ Conversations = case xmerl_xpath:string("conversations", Action) of
+ Conversations ->
+ % extraction de chaque conversation
+
+ _ -> []
+ end,
case euphorik_minichat:set_profile(Cookie, Login, Password, Pseudo, Email, Css) of
ok ->
xml_reponse_profile_ok();\r
{erlang:list_to_integer(Id_racine_str, 36), erlang:list_to_integer(Page_conv_str)}
end,
xmerl_xpath:string("conversation", Action)
- ),
- Poulpe = euphorik_minichat_conversation:conversations(Conversations, Nb_message, Dernier_id, Page),
- io:format("Poulpe = ~p~n", [Poulpe]),\r
+ ),\r
% accrochez-vous ca va siouxer ;)
[{reponse, [{name, "refreshMessages"}],\r
lists:map(\r
)
]
}\r
- end,
- Poulpe\r
+ end,
+ euphorik_minichat_conversation:conversations(Conversations, Nb_message, Dernier_id, Page)\r
)
}];
_ ->
%%%%%%%%% <Réponses XML> %%%%%%%%%
simple_xml_to_string(XML) ->
- io:format("~p~n", [XML]),
lists:flatten(xmerl:export_simple(XML, xmerl_xml, [{prolog, ["<?xml version=\"1.0\" encoding=\"utf-8\" ?>\n"]}])).