X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_bd.erl;h=6dff985d124d89df95c40c11dc42bf35d75dddb0;hp=2b18d5b24cb38ba87fd5791dfee231768d9f25ff;hb=b7547c3be18fe564cf3e06f2a589c7cc1d78ec33;hpb=63d7601eeee2660728be1ff778dd7e6a04246ee5

diff --git a/modules/erl/euphorik_bd.erl b/modules/erl/euphorik_bd.erl
index 2b18d5b..6dff985 100755
--- a/modules/erl/euphorik_bd.erl
+++ b/modules/erl/euphorik_bd.erl
@@ -303,12 +303,19 @@ update_pseudo_user(UserId, Pseudo) ->
    
    
 % Affiche N user trié par leur date de dernière connexion.
-print_users(N) ->
+% Opt est une liste d'option d'affichage :
+%  * ekmaster : n'affiche que les admins
+print_users(N, Opt) ->
+   AfficheQueLesEkMaster = lists:any(fun(O) -> O =:= ekmaster end, Opt),
    resultat_transaction(mnesia:transaction(fun() ->
       C = cursor(
          qlc:keysort(
             #user.date_derniere_connexion, 
-            q([E || E <- mnesia:table(user)]),
+            if AfficheQueLesEkMaster ->
+               q([E || E <- mnesia:table(user), E#user.ek_master =:= true]);
+            true ->
+               q([E || E <- mnesia:table(user)])
+            end,
             [{order, descending}]
          ),
          [{tmpdir, ?KEY_SORT_TEMP_DIR}]
@@ -324,10 +331,13 @@ print_users(N) ->
    end)).
    
    
+% Affiche tous les users.
+print_users(Opt) ->
+   print_users(all_remaining, Opt).
+
 % Affiche tous les users.
 print_users() ->
-   print_users(all_remaining).
-   
+   print_users(all_remaining, []).
    
 print_user(User) when is_record(User, user) ->
    #user{id = Id, pseudo = Pseudo, login = Login, ek_master = Ek_master, date_derniere_connexion = Date, last_ip = IP} = User,
@@ -450,33 +460,34 @@ nouveau_message(Mess, Auteur_id, Repond_A) ->
    F = fun() ->   
       Nb_id_trouve = length(e(q([E#minichat.id || E <- mnesia:table(minichat), lists:member(E#minichat.id, Repond_A)]), [{tmpdir, ?KEY_SORT_TEMP_DIR}])),
       % est-ce que l'auteur existe ?
-      Auteur = case e(q([E || E <- mnesia:table(user), E#user.id =:= Auteur_id]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]) of
-         [A] -> A;
-         _ -> {erreur, "L'auteur du message est introuvable"}
-      end,
-      if Nb_id_trouve =/= length(Repond_A) ->
-            {erreur, "Un ou plusieurs messages introuvable"};
-         true ->
-            % comparaison entre la date du dernier poste et maintenant (gestion du flood)
-            Delta = delta_date_ms(Auteur#user.date_derniere_connexion, now()),
-            Nouvel_indice_flood = Auteur#user.indice_flood + if Delta =< ?DUREE_SPAM -> 2; true -> -1 end,
-            Auteur_maj = Auteur#user{
-               indice_flood = if Nouvel_indice_flood > ?INDICE_SPAM_MAX -> ?INDICE_SPAM_MAX; Nouvel_indice_flood < 0 -> 0; true -> Nouvel_indice_flood end,
-               date_derniere_connexion = now()
-            },
-            % est-ce que l'auteur à trop floodé ?
-            if Auteur#user.indice_flood =/= ?INDICE_SPAM_MAX, Auteur_maj#user.indice_flood =:= ?INDICE_SPAM_MAX, Delta =< ?DUREE_BLOCAGE_SPAM ->
-               mnesia:write(Auteur#user{indice_flood = Auteur_maj#user.indice_flood}),
-               nouveau_message_sys("''" ++ Auteur#user.pseudo ++ if Auteur#user.login =/= [] -> " (" ++ Auteur#user.login ++ ")"; true -> "" end ++ "'' est bloqué pour " ++ integer_to_list(trunc(?DUREE_BLOCAGE_SPAM / 1000)) ++ " secondes pour cause de flood.");
-            Auteur#user.indice_flood =:= ?INDICE_SPAM_MAX, Delta =< ?DUREE_BLOCAGE_SPAM ->
-               {erreur, "Bloqué pour cause de flood"};
-            true ->     
-               mnesia:write(Auteur_maj),
-               Id = nouvel_id(minichat),
-               inserer_reponses(Id, Repond_A),
-               mnesia:write(#minichat{id=Id, auteur_id=Auteur#user.id, date=now(), pseudo=Auteur#user.pseudo, contenu=Mess}),
-               Id
-            end
+      case e(q([E || E <- mnesia:table(user), E#user.id =:= Auteur_id]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]) of
+         [Auteur] ->
+            if Nb_id_trouve =/= length(Repond_A) ->
+                  {erreur, "Un ou plusieurs messages introuvable"};
+               true ->
+                  % comparaison entre la date du dernier poste et maintenant (gestion du flood)
+                  Delta = delta_date_ms(Auteur#user.date_derniere_connexion, now()),
+                  Nouvel_indice_flood = Auteur#user.indice_flood + if Delta =< ?DUREE_SPAM -> 2; true -> -1 end,
+                  Auteur_maj = Auteur#user{
+                     indice_flood = if Nouvel_indice_flood > ?INDICE_SPAM_MAX -> ?INDICE_SPAM_MAX; Nouvel_indice_flood < 0 -> 0; true -> Nouvel_indice_flood end,
+                     date_derniere_connexion = now()
+                  },
+                  % est-ce que l'auteur à trop floodé ?
+                  if Auteur#user.indice_flood =/= ?INDICE_SPAM_MAX, Auteur_maj#user.indice_flood =:= ?INDICE_SPAM_MAX, Delta =< ?DUREE_BLOCAGE_SPAM ->
+                     mnesia:write(Auteur#user{indice_flood = Auteur_maj#user.indice_flood}),
+                     nouveau_message_sys("''" ++ Auteur#user.pseudo ++ if Auteur#user.login =/= [] -> " (" ++ Auteur#user.login ++ ")"; true -> "" end ++ "'' est bloqué pour " ++ integer_to_list(trunc(?DUREE_BLOCAGE_SPAM / 1000)) ++ " secondes pour cause de flood.");
+                  Auteur#user.indice_flood =:= ?INDICE_SPAM_MAX, Delta =< ?DUREE_BLOCAGE_SPAM ->
+                     {erreur, "Bloqué pour cause de flood"};
+                  true ->     
+                     mnesia:write(Auteur_maj),
+                     Id = nouvel_id(minichat),
+                     inserer_reponses(Id, Repond_A),
+                     mnesia:write(#minichat{id=Id, auteur_id=Auteur#user.id, date=now(), pseudo=Auteur#user.pseudo, contenu=Mess}),
+                     Id
+                  end
+            end;
+         _ ->
+            {erreur, "L'auteur du message est introuvable"}
       end
    end,
    resultat_transaction(mnesia:transaction(F)).
@@ -528,9 +539,9 @@ messages(N, P) ->
       end,
       R = qlc:next_answers(C, N),
       qlc:delete_cursor(C),
-      lists:reverse(R)
+      R
    end,
-   resultat_transaction(mnesia:transaction(F)).
+   lists:reverse(resultat_transaction(mnesia:transaction(F))).
 
 
 % Renvoie les messages manquants pour la page P en sachant qu'il y a N message