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);