ok;
{mnesia_table_event, {write, troll, Troll, [Old_troll | _], _}} when Troll#troll.date_post =/= undefined, Old_troll#troll.date_post == undefined ->
ok;
- M ->
- io:format("M : ~p~n", [M]), %TODO : a virer
+ {tcp_closed, _} ->
+ exit(normal);
+ _ ->
wait_event_bd_page_chat()
- % 60 minutes de timeout (le cas ou il n'y a que des consultations et jamais de post)
+ % 60 minutes de timeout (on ne sais jamais)
% Après 60 minutes de connexion, le client doit donc reétablir une connexion
- % TODO : pour être mieux : quand le socket se ferme alors un message devrait être envoyé et débloquer ce receive (demande en cours sur la mailing list de yaws)
after 1000 * 60 * 60 ->
timeout
end.