connect/0,
connect/1,
reset/0,
+ update/0,
% users :
nouveau_user/2,
nouveau_user/3,
- set_profile/9,
+ set_profile/11,
update_date_derniere_connexion/1,
update_ip/2,
update_pseudo_user/2,
user_by_login_password/2,
user_by_mess/1,
toggle_ek_master/1,
+ css_from_user_cookie/1,
% messages :
nouveau_message/3,
{attributes, record_info(fields, counter)},
{disc_copies, [node()]}
]),
+ mnesia:create_table(proprietes, [
+ {attributes, record_info(fields, proprietes)},
+ {disc_copies, [node()]}
+ ]),
mnesia:create_table(minichat, [
{attributes, record_info(fields, minichat)},
{index, [auteur_id, troll_id]},
mnesia:clear_table(troll),
mnesia:clear_table(ip_table),\r
% crée l'utilisateur root\r
- mnesia:transaction(fun() ->\r
+ mnesia:transaction(fun() ->
+ mnesia:write(#proprietes{nom = version, valeur = ?VERSION_BD}),\r
User = #user{id = 0, pseudo = "Sys", login = "Sys", date_creation = now(), date_derniere_connexion = now(), ek_master = true},\r
mnesia:write(User),\r
User\r
end).
+% Met à jour la bd, compare ?VERSION_BD avec la version dans la table 'proprietes'
+% et exécute les patchs nécessaires.
+update() ->
+ mnesia:transaction(
+ fun() ->
+ case mnesia:read({proprietes, version}) of
+ [#proprietes{nom = Version}] ->
+ update(Version);
+ _ ->
+ erreur
+ end
+ end
+ ).
+
+
+% Mise à jour de la BD.
+% attention : il est nécessaire de se trouver dans une transaction.
+update(?VERSION_BD) -> fini;
+update(Version) ->
+ patch(Version),
+ update(Version + 1).
+
+
+% Applique une modification de la BD pour passer d'une version à la suivante.
+% 1 -> 2
+patch(1) ->
+ ok.
+% 2 -> 3
+%patch(2) ->
+
+
% Ajoute un nouveau user et le renvoie
nouveau_user(Pseudo, Cookie) ->
F = fun() ->
% Mise à par Cookie les autres peuvent être undefined ce qui veut dire qu'ils ne seront pas modifié.
-set_profile(Cookie, Login, Password, Pseudo, Email, Css, Nick_format, Page_principale, Conversations) ->
+set_profile(Cookie, Login, Password, Pseudo, Email, Css, Nick_format, View_times, View_tooltips, Page_principale, Conversations) ->
if Nick_format =:= nick; Nick_format =:= login; Nick_format =:= nick_login ->
resultat_transaction(mnesia:transaction(
fun() ->
case user_by_cookie(Cookie) of
- {ok, User} ->
+ {ok, User} ->
case user_by_login(Login) of
{ok, U} when Login =/= [], U#user.id =/= User#user.id ->
login_deja_pris;
email = if is_list(Email) -> Email; true -> User#user.email end,
css = if is_list(Css) -> Css; true -> User#user.css end,
nick_format = Nick_format,
+ view_times = View_times,
+ view_tooltips = View_tooltips,
page_principale = if is_integer(Page_principale), Page_principale > 0 -> Page_principale; true -> User#user.page_principale end,
conversations = if is_list(Conversations) -> Conversations; true -> User#user.conversations end
},
end
)).
+
+% Renvoie une chaine représentant le cookie ou undefined si pas trouvé.
+css_from_user_cookie(Cookie) ->
+ case user_by_cookie(Cookie) of
+ {ok, User} ->
+ User#user.css;
+ _ ->
+ undefined
+ end.
+
+
+
user_by_login_password(Login, Password) ->
resultat_transaction(mnesia:transaction(
fun() ->