MOD séparation logique du profile des utilisateurs dans la BD

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

diff --git a/modules/erl/euphorik_bd.erl b/modules/erl/euphorik_bd.erl
index f5fa258..904fc0a 100755 (executable)
--- a/modules/erl/euphorik_bd.erl
+++ b/modules/erl/euphorik_bd.erl
@@ -25,9 +25,9 @@
 -module(euphorik_bd).\r
 -export([   \r
    % users :\r
-   nouveau_user/3,\r
+   nouveau_user/2,\r
    nouveau_user/4,\r
-   set_profile/1,\r
+   set_profile/4,\r
    update_date_derniere_connexion/1,\r
    update_ip/2,\r
    update_pseudo_user/2,\r
@@ -90,11 +90,10 @@
 \r
 \r
 % Ajoute un nouveau user et le renvoie\r
-% User_infos représente le profile de l'utilisateur, il est possibe qu'il soit vide\r
-nouveau_user(Pseudo, Cookie, User_infos) ->\r
+nouveau_user(Cookie, Profile) ->\r
    F = fun() ->\r
       Id = nouvel_id(user),\r
-      User = User_infos#user{id = Id, cookie = Cookie, pseudo = Pseudo, date_creation = now(), date_derniere_connexion = now()},\r
+      User = #user{id = Id, cookie = Cookie, date_creation = now(), date_derniere_connexion = now(), profile = Profile},\r
       mnesia:write(User),\r
       User\r
    end,\r
@@ -102,32 +101,31 @@ nouveau_user(Pseudo, Cookie, User_infos) ->
   \r
   \r
 % Ajoute un nouveau user et le renvoie\r
-% User_infos représente le profile de l'utilisateur, il est possibe qu'il soit vide\r
-nouveau_user(Login, Password, Cookie, User_infos) ->\r
+nouveau_user(Login, Password, Cookie, Profile) ->\r
    F = fun() ->\r
       Id = nouvel_id(user),\r
-      User = User_infos#user{id = Id, cookie = Cookie, pseudo = Login, login = Login, password = Password, date_creation = now(), date_derniere_connexion = now()},\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
   resultat_transaction(mnesia:transaction(F)).\r
   \r
 \r
-% Définit les données d'une utilisateur.\r
-set_profile(User) ->\r
+% Définit les données du profile d'une utilisateur.\r
+set_profile(Cookie, Login, Password, Profile) ->\r
    resultat_transaction(mnesia:transaction(\r
       fun() ->\r
-         case user_by_cookie(User#user.cookie) of\r
+         case user_by_cookie(Cookie) of\r
             {ok, User_existant} ->\r
-               case user_by_login(User#user.login) of\r
-                  {ok, U} when User#user.login =/= [], U#user.id =/= User_existant#user.id ->\r
+               case user_by_login(Login) of\r
+                  {ok, U} when Login =/= [], U#user.id =/= User_existant#user.id ->\r
                      login_deja_pris;\r
                   _ ->\r
                      mnesia:write(\r
-                        User#user{\r
-                           id = User_existant#user.id,\r
-                           login = if User_existant#user.login =:= [] -> User#user.login; true -> User_existant#user.login end, % on ne peut pas changer de login sauf si on en a pas !\r
-                           password = if User#user.password =:= [] -> User_existant#user.password; true -> User#user.password end\r
+                        User_existant#user{\r
+                           login = if User_existant#user.login =:= [] -> Login; true -> User_existant#user.login end, % on ne peut pas changer de login sauf si on en a pas !\r
+                           password = if Password =:= [] -> User_existant#user.password; true -> Password end,\r
+                           profile = Profile\r
                         }\r
                      ),\r
                      ok\r
@@ -171,8 +169,8 @@ update_pseudo_user(UserId, Pseudo) ->
    mnesia:transaction(\r
       fun() ->      \r
          case mnesia:wread({user, UserId}) of\r
-            [User] when User#user.pseudo =/= Pseudo ->\r
-               mnesia:write(User#user{pseudo = Pseudo});\r
+            [#user{profile = Profile} = User] when Profile#profile.pseudo =/= Pseudo ->\r
+               mnesia:write(User#user{profile = Profile#profile { pseudo = Pseudo } });\r
             _ ->\r
                mnesia:abort("update_pseudo_user: User inconnu ou pseudo deja à jour")\r
           end\r
@@ -218,7 +216,7 @@ print_users() ->
    print_users(all_remaining, []).\r
    \r
 print_user(User) when is_record(User, user) ->\r
-   #user{id = Id, pseudo = Pseudo, login = Login, ek_master = Ek_master, date_derniere_connexion = Date, last_ip = IP} = 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
@@ -301,8 +299,8 @@ toggle_ek_master(User_id) ->
 % Renvoie une chaine représentant le cookie ou undefined si pas trouvé.\r
 css_from_user_cookie(Cookie) ->\r
    case user_by_cookie(Cookie) of \r
-      {ok, User} ->\r
-         User#user.css;\r
+      {ok, #user{profile = Profile}} ->\r
+         Profile#profile.css;\r
       _ ->\r
          undefined\r
    end.\r
@@ -364,7 +362,7 @@ nouveau_message(Mess, Auteur_id, Repond_A_ids) ->
          _ ->\r
             % est-ce que l'auteur existe ?\r
             case e(q([E || E <- mnesia:table(user), E#user.id =:= Auteur_id]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]) of\r
-               [Auteur] ->\r
+               [#user{profile = Profile} = Auteur] ->\r
                   if length(Repond_a) =/= length(Repond_A_ids) ->\r
                         {erreur, "Un ou plusieurs messages introuvable"};\r
                      true ->\r
@@ -378,7 +376,7 @@ nouveau_message(Mess, Auteur_id, Repond_A_ids) ->
                         % est-ce que l'auteur à trop floodé ?\r
                         if Auteur#user.indice_flood =/= ?INDICE_SPAM_MAX, Auteur_maj#user.indice_flood =:= ?INDICE_SPAM_MAX, Delta =< ?DUREE_BLOCAGE_SPAM ->\r
                            mnesia:write(Auteur#user{indice_flood = Auteur_maj#user.indice_flood}),\r
-                           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.");\r
+                           nouveau_message_sys("''" ++ Profile#profile.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.");\r
                         Auteur#user.indice_flood =:= ?INDICE_SPAM_MAX, Delta =< ?DUREE_BLOCAGE_SPAM ->\r
                            {erreur, "Bloqué pour cause de flood"};\r
                         true ->     \r
@@ -389,7 +387,7 @@ nouveau_message(Mess, Auteur_id, Repond_A_ids) ->
                               id = Id,\r
                               auteur_id = Auteur#user.id,\r
                               date = now(),\r
-                              pseudo = Auteur#user.pseudo,\r
+                              pseudo = Profile#profile.pseudo,\r
                               contenu = Mess,\r
                               racine_id = if Racine_id =:= undefined -> Id; true -> Racine_id end\r
                            }),\r
@@ -419,11 +417,11 @@ nouveau_message_sys(Mess) ->
 \r
 % Création d'un message système lié à un troll.\r
 nouveau_message_sys(Mess, Troll_id) ->\r
-   {ok, Root} = user_by_id(0),\r
+   {ok, #user{profile = Profile}} = user_by_id(0),\r
    resultat_transaction(mnesia:transaction(\r
       fun() ->\r
          Id = nouvel_id(minichat),\r
-         mnesia:write(#minichat{id=Id, auteur_id=0, date=now(), pseudo=Root#user.pseudo, contenu=Mess, troll_id=Troll_id, racine_id=Id}),\r
+         mnesia:write(#minichat{id = Id, auteur_id = 0, date = now(), pseudo = Profile#profile.pseudo, contenu = Mess, troll_id = Troll_id, racine_id = Id}),\r
          Id\r
       end\r
    )).\r
@@ -623,7 +621,7 @@ list_ban() ->
             {\r
                IP#ip_table.ip,\r
                delta_date_minute(date_plus_minutes(IP#ip_table.ban, IP#ip_table.ban_duration), Now),\r
-               e(q([{U#user.pseudo, U#user.login} || U <- mnesia:table(user), U#user.last_ip =:= IP#ip_table.ip]), [{tmpdir, ?KEY_SORT_TEMP_DIR}])\r
+               e(q([{Profile#profile.pseudo, U#user.login} || #user{profile = Profile} = U <- mnesia:table(user), U#user.last_ip =:= IP#ip_table.ip]), [{tmpdir, ?KEY_SORT_TEMP_DIR}])\r
             } ||\r
             IP <- mnesia:table(ip_table),\r
             if IP#ip_table.ban =:= undefined -> false; true -> date_plus_minutes(IP#ip_table.ban, IP#ip_table.ban_duration) > Now end\r