From: Greg Burri Date: Fri, 3 Oct 2008 07:23:34 +0000 (+0000) Subject: FIX #81 (pas fini) X-Git-Tag: 1.1.3~25 X-Git-Url: http://git.euphorik.ch/index.cgi?a=commitdiff_plain;h=e1bca2f5335f66a1a869bbc57e3346514e628558;p=euphorik.git FIX #81 (pas fini) --- diff --git a/modules/erl/euphorik_bd_admin.erl b/modules/erl/euphorik_bd_admin.erl index 616ac4d..d9e9cc7 100644 --- a/modules/erl/euphorik_bd_admin.erl +++ b/modules/erl/euphorik_bd_admin.erl @@ -205,7 +205,28 @@ update(Version) -> % crée un backup avant l'application du patch % dans BD/backups nommé "backup" où et le numéro de la version. % 1 -> 2 -patch(1) -> +patch(1) -> + % Prend un chemin vers la feuille de style de type "css/1/euphorik.css" + % et renvoie "styles/1/euphorik.css" + Transforme_css = fun(F) -> + case F of + "css" ++ Reste -> "styles" ++ Reste; + _ -> F + end + end, + Traiter_message = fun(M, Racine) -> + F = fun(F, M2) -> % seul moyen à ma connaissance pour faire de la récursion dans une lambda fonction, voir : http://www.nabble.com/Auto-generated-functions-td15279499.html + % met à jour la racine de chaque message qui répond à M + lists:foreach( + fun(M3) -> + mnesia:write(M2#minichat{racine_id = Racine}), + F(F, M3) + end, + euphorik_bd:enfants(M#minichat.id) + ) + end, + F(F, M, Racine) + end, mnesia:create_table(texte, [ {attributes, record_info(fields, texte)}, {disc_copies, [node()]} @@ -215,7 +236,7 @@ patch(1) -> mnesia:transform_table( user, fun({user, Id, Cookie, Pseudo, Login, Password, Email, Date_creation, Date_derniere_connexion, Css, Nick_format, View_times, View_tooltips, Indice_flood, _Page_principale, Conversations, Ek_master, Last_ip}) -> - {user, Id, Cookie, Login, Password, {profile, Pseudo, Email, patch1_transforme_css(Css), Nick_format, View_times, View_tooltips, light, reverse, lists:map(fun({R, _}) -> {R, false} end, Conversations)}, Date_creation, Date_derniere_connexion, Indice_flood, Ek_master, Last_ip} + {user, Id, Cookie, Login, Password, {profile, Pseudo, Email, Transforme_css(Css), Nick_format, View_times, View_tooltips, light, reverse, lists:map(fun({R, _}) -> {R, false} end, Conversations)}, Date_creation, Date_derniere_connexion, Indice_flood, Ek_master, Last_ip} end, record_info(fields, user), user @@ -233,31 +254,30 @@ patch(1) -> % met à jour les enfants des racines % idéalement : utiliser un cursor mais je crois qu'il n'est pas possible de faire des modifs en itérant en même temps avec un cursor, a voir.. Messages = e(q([M || M <- mnesia:table(minichat), euphorik_bd:parents(M#minichat.id) =:= []]), [{tmpdir, ?KEY_SORT_TEMP_DIR}]), - lists:foreach(fun(M) -> patch_1_traiter_message(M, M#minichat.id) end, Messages) + lists:foreach(fun(M) -> Traiter_message(M, M#minichat.id) end, Messages) end ) of {aborted, Raison} -> {erreur, Raison}; {atomic, _} -> ok - end. - - -% Prend un chemin vers la feuille de style de type "css/1/euphorik.css" -% et renvoie "styles/1/euphorik.css" -patch1_transforme_css("css" ++ Reste) -> - "styles" ++ Reste; -patch1_transforme_css(F) -> - F. - - -patch_1_traiter_message(M, Racine) -> - % met à jour la racine de chaque message qui répond à M - lists:foreach( - fun(M2) -> - mnesia:write(M2#minichat{racine_id = Racine}), - patch_1_traiter_message(M2, Racine) - end, - euphorik_bd:enfants(M#minichat.id) - ). + end; +% 2 -> 3 +patch(2) -> + % traitement de la table troll + mnesia:transform_table( + troll, + fun({troll, Id_troll, Id_user, Date_create, Date_post, Content}) -> + % recherche le message associé s'il existe + Id_minichat = case mnesia:index_read(minichat, Id_troll, 7) of + [#minichat{id = Id}] -> Id; + _ -> undefined + end, + {troll, Id_troll, Id_user, Id_minichat, Date_create, Date_post, Content} + end, + record_info(fields, troll), + user + ) + TODO... + % crée un backup dont le nom est fournit dans le repertoire backups qui se trouve dans le repertoire de la BD. %backup(Nom) -> diff --git a/modules/include/euphorik_bd.hrl b/modules/include/euphorik_bd.hrl index 6713830..ae69459 100755 --- a/modules/include/euphorik_bd.hrl +++ b/modules/include/euphorik_bd.hrl @@ -19,7 +19,7 @@ % Version de la BD --define(VERSION_BD, 2). +-define(VERSION_BD, 3). -define(TABLES, [counter, proprietes, minichat, reponse_minichat, user, ip_table, troll]). @@ -55,7 +55,6 @@ date, % erlang:now() pseudo, % chaine de caractère contenu, % chaine de caractère - troll_id = undefined, % l'id du troll associé correspondant racine_id = undefined % la racine, par défaut correspond à l'id du message }). @@ -69,7 +68,6 @@ }). - -record(profile, % attention : pas une table ! { pseudo = [], % string() @@ -81,7 +79,9 @@ ostentatious_master = light, % peut valoir invisible, light ou heavy. seulement pour ek_master chat_order = reverse, % peut valoir chrono ou reverse conversations = [] % [{integer(), bool}], la liste des messages correspondant au conversation {racine, reduite?} - }). + }). + + -record(user, { id, @@ -113,7 +113,8 @@ -record(troll, { id, - id_user, + id_user, + id_minichat = undefined, % l'id du message associé date_create, % erlang:now() date_post = undefined, % date à laquelle le troll est affiché sur la page principale. undefined initialement puis erlang:now() quand affiché content % chaine de caractère