ADD betterjs qui regroupe les améliorations ajoutés à javascript (each, etc..)

[euphorik.git] / modules / erl / euphorik_bd.erl

diff --git a/modules/erl/euphorik_bd.erl b/modules/erl/euphorik_bd.erl
index 904fc0a..196a26e 100755 (executable)
--- a/modules/erl/euphorik_bd.erl
+++ b/modules/erl/euphorik_bd.erl
@@ -31,15 +31,11 @@
    update_date_derniere_connexion/1,\r
    update_ip/2,\r
    update_pseudo_user/2,\r
    update_date_derniere_connexion/1,\r
    update_ip/2,\r
    update_pseudo_user/2,\r

-   print_users/0,\r
-   print_users/1,\r
-   print_user/1,\r

    user_by_cookie/1,   \r
    user_by_id/1,   \r
    user_by_login/1,\r
    user_by_login_password/2,\r
    user_by_mess/1,\r
    user_by_cookie/1,   \r
    user_by_id/1,   \r
    user_by_login/1,\r
    user_by_login_password/2,\r
    user_by_mess/1,\r

-   toggle_ek_master/1,\r

    css_from_user_cookie/1,\r
    is_ek_master_from_cookie/1,\r
    \r
    css_from_user_cookie/1,\r
    is_ek_master_from_cookie/1,\r
    \r


@@ -104,7 +100,7 @@ nouveau_user(Cookie, Profile) ->
 nouveau_user(Login, Password, Cookie, Profile) ->\r
    F = fun() ->\r
       Id = nouvel_id(user),\r
 nouveau_user(Login, Password, Cookie, Profile) ->\r
    F = fun() ->\r
       Id = nouvel_id(user),\r

-      User = #user{id = Id, cookie = Cookie, login = Login, password = Password, date_creation = now(), date_derniere_connexion = now(), profile = Profile#profile{pseudo = login}},\r
+      User = #user{id = Id, cookie = Cookie, login = Login, password = Password, date_creation = now(), date_derniere_connexion = now(), profile = Profile#profile{pseudo = Login}},\r

       mnesia:write(User),\r
       User\r
    end,\r
       mnesia:write(User),\r
       User\r
    end,\r


@@ -176,76 +172,7 @@ update_pseudo_user(UserId, Pseudo) ->
           end\r
       end\r
    ).\r
           end\r
       end\r
    ).\r

-   \r
-   \r
-% Affiche N user trié par leur date de dernière connexion.\r
-% Opt est une liste d'option d'affichage :\r
-%  * ekmaster : n'affiche que les admins\r
-print_users(N, Opt) ->\r
-   AfficheQueLesEkMaster = lists:any(fun(O) -> O =:= ekmaster end, Opt),\r
-   resultat_transaction(mnesia:transaction(fun() ->\r
-      C = cursor(\r
-         qlc:keysort(\r
-            #user.date_derniere_connexion, \r
-            if AfficheQueLesEkMaster ->\r
-               q([E || E <- mnesia:table(user), E#user.ek_master =:= true]);\r
-            true ->\r
-               q([E || E <- mnesia:table(user)])\r
-            end,\r
-            [{order, descending}]\r
-         ),\r
-         [{tmpdir, ?KEY_SORT_TEMP_DIR}]\r
-      ),\r
-      Users = qlc:next_answers(C, N),\r
-      lists:foreach(\r
-         fun(U) ->\r
-            print_user(U)\r
-         end,\r
-         Users\r
-      ),\r
-      qlc:delete_cursor(C)\r
-   end)).\r
-   \r
-   \r
-% Affiche tous les users.\r
-print_users(Opt) ->\r
-   print_users(all_remaining, Opt).\r
-\r
-% Affiche tous les users.\r
-print_users() ->\r
-   print_users(all_remaining, []).\r
-   \r
-print_user(User) when is_record(User, user) ->\r
-   #user{id = Id, profile = #profile{pseudo = Pseudo}, login = Login, ek_master = Ek_master, date_derniere_connexion = Date, last_ip = IP} = User,\r
-   {{Annee, Mois, Jour}, {Heure, Min, _}} = calendar:now_to_local_time(Date),\r
-   io:format(\r
-      % id        pseudo     (login)        IP  Jour  Mois   Année  Heure Minute\r
-      "~4w : ~10.10..s(~10.10..s) ~s ~2w.~2.2.0w.~w - ~2wh~2.2.0w~n",\r
-      [  \r
-         Id,\r
-         if Ek_master -> "*"; true -> "" end ++ Pseudo,\r
-         Login,\r
-         euphorik_common:serialize_ip(IP),\r
-         Jour, Mois, Annee, Heure, Min\r
-      ]\r
-   );\r
-% Affichage d'un user en fonction de son login\r
-print_user(Login) when is_list(Login) ->\r
-   case user_by_login(Login) of\r
-      {ok, User} ->\r
-         print_user(User);\r
-      _ ->\r
-         {erreur, "Login pas trouvé : " ++ Login}\r
-   end;\r
-% Affichage d'un user en fonction de son id\r
-print_user(Id) when is_integer(Id) -> \r
-   case user_by_id(Id) of \r
-      {ok, User} ->\r
-         print_user(User);\r
-      _ ->\r
-         {erreur, "Id pas trouvé : " ++ integer_to_list(Id)}\r
-   end.\r
-   \r
+  \r

 \r
 % Est-ce qu'un utilisateur existe en fonction de son cookie ?\r
 % Renvoie {ok, User} ou erreur\r
 \r
 % Est-ce qu'un utilisateur existe en fonction de son cookie ?\r
 % Renvoie {ok, User} ou erreur\r


@@ -282,19 +209,6 @@ user_by_login(Login) ->
       end\r
    )).\r
    \r
       end\r
    )).\r
    \r

-   \r
-toggle_ek_master(User_id) ->\r
-   resultat_transaction(mnesia:transaction(\r
-      fun() ->\r
-         Users = e(q([E || E <- mnesia:table(user), E#user.id =:= User_id]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]),\r
-         case Users of\r
-            [User] ->\r
-               mnesia:write(User#user{ek_master = not User#user.ek_master});\r
-            _ -> erreur\r
-         end\r
-      end\r
-   )).\r
-   \r

 \r
 % Renvoie une chaine représentant le cookie ou undefined si pas trouvé.\r
 css_from_user_cookie(Cookie) ->\r
 \r
 % Renvoie une chaine représentant le cookie ou undefined si pas trouvé.\r
 css_from_user_cookie(Cookie) ->\r