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,
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,
case euphorik_minichat:set_profile(Cookie, Login, Password, Pseudo, Email, Css) of
ok ->
xml_reponse_profile_ok();\r
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)
{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
% accrochez-vous ca va siouxer ;)
[{reponse, [{name, "refreshMessages"}],\r
lists:map(\r
% accrochez-vous ca va siouxer ;)
[{reponse, [{name, "refreshMessages"}],\r
lists:map(\r
lists:flatten(xmerl:export_simple(XML, xmerl_xml, [{prolog, ["<?xml version=\"1.0\" encoding=\"utf-8\" ?>\n"]}])).
lists:flatten(xmerl:export_simple(XML, xmerl_xml, [{prolog, ["<?xml version=\"1.0\" encoding=\"utf-8\" ?>\n"]}])).