X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_bd.erl;h=196a26e25f94cdccce7f651e79c41c7fdfe0a8a0;hp=904fc0a42bb154e2c61c472b746f690ec929c38e;hb=4dfbbcf0f54cb3eb70856ea404d9ecef6aec5e26;hpb=d1e6f8e7c86f1ee75e854266463541ffedb916c9

diff --git a/modules/erl/euphorik_bd.erl b/modules/erl/euphorik_bd.erl
index 904fc0a..196a26e 100755
--- a/modules/erl/euphorik_bd.erl
+++ b/modules/erl/euphorik_bd.erl
@@ -31,15 +31,11 @@
    update_date_derniere_connexion/1,
    update_ip/2,
    update_pseudo_user/2,
-   print_users/0,
-   print_users/1,
-   print_user/1,
    user_by_cookie/1,   
    user_by_id/1,   
    user_by_login/1,
    user_by_login_password/2,
    user_by_mess/1,
-   toggle_ek_master/1,
    css_from_user_cookie/1,
    is_ek_master_from_cookie/1,
    
@@ -104,7 +100,7 @@ nouveau_user(Cookie, Profile) ->
 nouveau_user(Login, Password, Cookie, Profile) ->
    F = fun() ->
       Id = nouvel_id(user),
-      User = #user{id = Id, cookie = Cookie, login = Login, password = Password, date_creation = now(), date_derniere_connexion = now(), profile = Profile#profile{pseudo = login}},
+      User = #user{id = Id, cookie = Cookie, login = Login, password = Password, date_creation = now(), date_derniere_connexion = now(), profile = Profile#profile{pseudo = Login}},
       mnesia:write(User),
       User
    end,
@@ -176,76 +172,7 @@ update_pseudo_user(UserId, Pseudo) ->
           end
       end
    ).
-   
-   
-% Affiche N user trié par leur date de dernière connexion.
-% 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, 
-            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}]
-      ),
-      Users = qlc:next_answers(C, N),
-      lists:foreach(
-         fun(U) ->
-            print_user(U)
-         end,
-         Users
-      ),
-      qlc:delete_cursor(C)
-   end)).
-   
-   
-% Affiche tous les users.
-print_users(Opt) ->
-   print_users(all_remaining, Opt).
-
-% Affiche tous les users.
-print_users() ->
-   print_users(all_remaining, []).
-   
-print_user(User) when is_record(User, user) ->
-   #user{id = Id, profile = #profile{pseudo = Pseudo}, login = Login, ek_master = Ek_master, date_derniere_connexion = Date, last_ip = IP} = User,
-   {{Annee, Mois, Jour}, {Heure, Min, _}} = calendar:now_to_local_time(Date),
-   io:format(
-      % id        pseudo     (login)        IP  Jour  Mois   Année  Heure Minute
-      "~4w : ~10.10..s(~10.10..s) ~s ~2w.~2.2.0w.~w - ~2wh~2.2.0w~n",
-      [  
-         Id,
-         if Ek_master -> "*"; true -> "" end ++ Pseudo,
-         Login,
-         euphorik_common:serialize_ip(IP),
-         Jour, Mois, Annee, Heure, Min
-      ]
-   );
-% Affichage d'un user en fonction de son login
-print_user(Login) when is_list(Login) ->
-   case user_by_login(Login) of
-      {ok, User} ->
-         print_user(User);
-      _ ->
-         {erreur, "Login pas trouvé : " ++ Login}
-   end;
-% Affichage d'un user en fonction de son id
-print_user(Id) when is_integer(Id) -> 
-   case user_by_id(Id) of 
-      {ok, User} ->
-         print_user(User);
-      _ ->
-         {erreur, "Id pas trouvé : " ++ integer_to_list(Id)}
-   end.
-   
+  
 
 % Est-ce qu'un utilisateur existe en fonction de son cookie ?
 % Renvoie {ok, User} ou erreur
@@ -282,19 +209,6 @@ user_by_login(Login) ->
       end
    )).
    
-   
-toggle_ek_master(User_id) ->
-   resultat_transaction(mnesia:transaction(
-      fun() ->
-         Users = e(q([E || E <- mnesia:table(user), E#user.id =:= User_id]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]),
-         case Users of
-            [User] ->
-               mnesia:write(User#user{ek_master = not User#user.ek_master});
-            _ -> erreur
-         end
-      end
-   )).
-   
 
 % Renvoie une chaine représentant le cookie ou undefined si pas trouvé.
 css_from_user_cookie(Cookie) ->