-export([
version_bd/0,
update/0,
+ backup/1,
restore/1
]).
-import(qlc, [e/2, q/1, cursor/2]).
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, Pseudo, Login, Password, Email, Date_creation, Date_derniere_connexion, Css, Nick_format, View_times, View_tooltips, light, reverse, Indice_flood, lists:map(fun({R, _}) -> {R, false} end, Conversations), Ek_master, Last_ip}
+ {user, Id, Cookie, Pseudo, Login, Password, Email, Date_creation, Date_derniere_connexion, patch1_transforme_css(Css), Nick_format, View_times, View_tooltips, light, reverse, Indice_flood, lists:map(fun({R, _}) -> {R, false} end, Conversations), Ek_master, Last_ip}
end,
record_info(fields, user),
user
%patch(2) ->
+% 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(
euphorik_bd:enfants(M#minichat.id)
).
+% crée un backup dont le nom est fournit dans le repertoire backups qui se trouve dans le repertoire de la BD.
+backup(Nom) ->
+ mnesia:backup(mnesia:system_info(directory) ++ "/backups/" ++ Nom).
+
% Reviens à une version précédente de la base de données
% (les données insérées durant les versions plus récentes sont perdues)
restore(N) ->
- mnesia:restore(fichier_backup(N), []).
+ mnesia:restore(fichier_backup(N), [{default_op, recreate_tables}]).
-% Renvoie le fichier (avec le chemin) correspondant à la version Version.
+% Renvoie le fichier (avec le chemin) correspondant à la version Version, par exemple : "/var/euphorik/BD/backups/backup1"
fichier_backup(Version) ->
- mnesia:system_info(directory) ++ "/backups/backup" ++ integer_to_list(Version).
+ mnesia:system_info(directory) ++ "/backups/" ++ if is_integer(Version) -> "backup" ++ integer_to_list(Version); true -> Version end.