% tire N element distinct parmis la liste L proposée
tire_element_rand(N, L) when N =< length(L) ->
- tire_element_rand(N, L, []).
+ tire_element_rand(N, L, []);
+tire_element_rand(_, _) ->
+ [].
tire_element_rand(0, _, Elements) -> Elements;
tire_element_rand(N, L, Elements) ->
E = lists:nth(random:uniform(length(L)), L),
% poste un message aléatoire par une personne aléatoire répondant à des messages aléatoires
{Message, Repond_a} = {message_rand(), messages_id_rand()},
io:format("~p poste ~p et repond a ~w~n", [User_id, Message, Repond_a]),
- euphorik_bd:nouveau_message(Message, User_id, Repond_a),
- loop(User_id, M - 1).
+ case euphorik_bd:nouveau_message(Message, User_id, Repond_a) of
+ {erreur, E} ->
+ io:format("~p : erreur : ~p~n", [User_id, E]),
+ loop(User_id, M);
+ _ ->
+ loop(User_id, M - 1)
+ end.
+
\ No newline at end of file