end,
{Main_page, _} = lists:keysearch(main_page, 1, Reste),
{{array, Conversations_json}, _} = lists:keysearch(conversations, 1, Reste),
- User = euphorik_minichat:user_by_cookie(Cookie),
-
-
- % TODO....
-
-
-\r
- simple_xml_to_string(
- case xmerl_xpath:string("nombreMessage", Action) of % le nombre de message qu'affiche le client
- [#xmlElement{content = [#xmlText{value = Nb_message_str}]}] ->
- Nb_message = list_to_integer(Nb_message_str),
- Dernier_id = case xmerl_xpath:string("dernierMessageId", Action) of % l'id du dernier message que connait le client
- [#xmlElement{content = [#xmlText{value = D}]}] -> erlang:list_to_integer(D, 36);
- _ -> 0
- end,
- User = case xmerl_xpath:string("cookie", Action) of
- [#xmlElement{content = [#xmlText{value = Cookie}]}] ->
- case euphorik_minichat:user_by_cookie(Cookie) of
- {ok, U} -> U;
- _ -> inconnu
- end;
- _ -> inconnu
- end,\r
+ User = case euphorik_minichat:user_by_cookie(Cookie) of\r
+ {ok U} -> U;\r
+ _ -> inconnu\r
+ end,\r
+ {stuct, [\r
+ {reply, "new_message"},\r
+ {conversations, {array,\r
+ TODO ...\r
+ } \r
+ ]}
+ \r
% accrochez-vous ca va siouxer ;)
[{reponse, [{name, "refreshMessages"}],\r
lists:map(\r
%%%%%%%%% <Réponses JSON> %%%%%%%%%
json_reponse_ok() ->
- {struct, [{status, "ok"}]}.
+ {struct, [{reply, "ok"}]}.
% Construit une réponse positive à un login