{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
+ % virage des messages qui n'existent pas
+ Conversations = lists:dropwhile(
+ fun(Message_id) ->
+ not euphorik_bd:message_existe(Message_id)
end,
- [],
Conversations_json
),
% TODO : pas très beau, mieux vaut construire un #user
case euphorik_minichat_conversation:conversations(Racines_conversations, Message_count, Last_message_id, Main_page) of
vide ->
wait_event_bd_page_chat(),
- % TODO : l'appel est-il bien tail-recursive ?
wait_event_page_chat(User, Racines_conversations, Message_count, Last_message_id, Main_page, Troll_id);
Conversations ->
% accrochez-vous ca va siouxer ;)
% Après 60 minutes de connexion, le client doit donc reétablir une connexion
after 1000 * 60 * 60 ->
timeout
- end.
+ end.
% Attent un événement concernant la page admin
if Strip_content =:= [] ->
erreur("Message vide");
true ->
- % TODO : non-atomique (update_pseudo+nouveau_message)
+ % attention : non-atomique (update_pseudo+nouveau_message)
euphorik_bd:update_pseudo_user(User#user.id, Nick),
case euphorik_bd:nouveau_message(Strip_content, User#user.id, Answer_to) of
{erreur, R} -> erreur("Impossible d'ajouter un nouveau message. Raison : " ++ R);
{nick_format, atom_to_list(User#user.nick_format)},
{view_times, User#user.view_times},
{view_tooltips, User#user.view_tooltips},
- {main_page, User#user.page_principale},
- {conversations,
- {array,
- lists:map(
- fun(C) ->
- {struct,
- [
- {root, element(1, C)},
- {page, element(2, C)}
- ]
- }
- end,
- User#user.conversations
- )
- }
- },
- {ek_master, User#user.ek_master}
+ {conversations, {array, User#user.conversations } },
+ {ek_master, User#user.ek_master}
]
}.