+profile(
+ [
+ {cookie, Cookie},
+ {login, Login},
+ {password, Password},
+ {nick, Pseudo},
+ {email, Email},
+ {css, Css},
+ {nick_format, Nick_format_str},
+ {main_page, Main_page},
+ {conversations, {array, Conversations_json}}
+ ]
+) ->
+ % est-ce que les messages auquel on répond existent ?
+ Conversations = lists:foldr(
+ fun({struct, [{root, Root}, {page, Page}]}, Acc) ->
+ Message_existe = euphorik_bd:message_existe(Root),
+ if Message_existe ->
+ [{Root, Page} | Acc];
+ true ->
+ Acc
+ end
+ end,
+ [],
+ Conversations_json
+ ),
+ case euphorik_bd:set_profile(Cookie, Login, Password, Pseudo, Email, Css, list_to_atom(Nick_format_str), Main_page, Conversations) of
+ ok ->
+ json_reponse_ok();
+ login_deja_pris ->
+ erreur("Login déjà pris");
+ _ ->
+ erreur("Impossible de mettre à jour le profile")
+ end.
+
+
+% Renvoie les messages appropriés.
+% last_message id et cookie sont facultatifs
+wait_event([{page, "chat"} | Data]) ->
+ Cookie = case lists:keysearch(cookie, 1, Data) of {value, {_, C}} -> C; _ -> inconnu end,
+ Last_message_id = case lists:keysearch(last_message_id, 1, Data) of {value, {_, Id}} -> Id; _ -> 0 end,
+ {value, {_, Message_count}} = lists:keysearch(message_count, 1, Data),
+ Main_page = case lists:keysearch(main_page, 1, Data) of {value, {_, P}} -> P; _ -> 1 end,
+ {value, {_, {array, Conversations_json}}} = lists:keysearch(conversations, 1, Data),
+ Conversations = lists:map(
+ fun({struct, [{root, Racine}, {page, Page} | Reste]}) ->
+ Last_mess_conv = case Reste of [{last_message_id, L}] -> L; _ -> 0 end,
+ {Racine, Page, Last_mess_conv}
+ end,
+ Conversations_json
+ ),
+ User = case euphorik_bd:user_by_cookie(Cookie) of\r
+ {ok, U} -> U;\r
+ _ -> inconnu\r
+ end,\r
+ {struct, [\r
+ {reply, "new_message"},\r
+ {conversations, {array,
+ % accrochez-vous ca va siouxer ;)
+ lists:map(
+ fun({Conv, Plus}) ->
+ {struct, [
+ {last_page, not Plus},
+ {messages, {array,
+ lists:map(
+ fun({Mess, Repond_a}) ->
+ Est_proprietaire = User =/= inconnu andalso User#user.id =:= Mess#minichat.auteur_id,
+ A_repondu_a_message = User =/= inconnu andalso euphorik_bd:a_repondu_a_message(User#user.id, Mess#minichat.id),
+ Est_une_reponse_a_user = User =/= inconnu andalso euphorik_bd:est_une_reponse_a_user(User#user.id, Mess#minichat.id),
+ {ok, User_mess } = euphorik_bd:user_by_id(Mess#minichat.auteur_id),
+ {struct, [
+ {id, Mess#minichat.id},
+ {user_id, User_mess#user.id},
+ {date, format_date(Mess#minichat.date)},
+ {system, Mess#minichat.auteur_id =:= 0},
+ {owner, Est_proprietaire},
+ {answered, A_repondu_a_message},
+ {is_a_reply, Est_une_reponse_a_user},
+ {nick, Mess#minichat.pseudo},
+ {login, User_mess#user.login},
+ {content, Mess#minichat.contenu},
+ {answer_to, {array, lists:map(
+ fun(Id_mess) ->
+ {ok, M} = euphorik_bd:message_by_id(Id_mess),
+ {ok, User_reponse} = euphorik_bd:user_by_mess(M#minichat.id),
+ {struct, [{id, M#minichat.id}, {nick, M#minichat.pseudo}, {login, User_reponse#user.login}]}
+ end,
+ Repond_a
+ )}},
+ {ek_master, User_mess#user.ek_master}
+ ]}
+ end,
+ Conv
+ )
+ }}
+ ]}