-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
\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
\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
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
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
% 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
_ ->\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
% 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
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
\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
{\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