% 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}]
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,