From: Greg Burri Date: Sat, 14 Jun 2008 21:21:44 +0000 (+0000) Subject: ADD script pour lancer tv (visualisation des tables mnesia) X-Git-Tag: 1.1.0~129 X-Git-Url: http://git.euphorik.ch/index.cgi?a=commitdiff_plain;h=67eb1489d015aa31a28a8bc2dbe571ef8512ba09;p=euphorik.git ADD script pour lancer tv (visualisation des tables mnesia) --- diff --git a/modules/erl/euphorik_bd_update.erl b/modules/erl/euphorik_bd_update.erl index a0456bc..14a85c9 100644 --- a/modules/erl/euphorik_bd_update.erl +++ b/modules/erl/euphorik_bd_update.erl @@ -56,7 +56,7 @@ update() -> % attention : il est nécessaire de se trouver dans une transaction. update(?VERSION_BD) -> fini; update(Version) -> - case mnesia:backup(mnesia:system_info(directory) ++ "/backup" ++ integer_to_list(Version)) of + case mnesia:backup(fichier_backup(Version)) of ok -> case patch(Version) of ok -> @@ -120,5 +120,9 @@ patch_1_traiter_message(M, Racine) -> % 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(mnesia:system_info(directory) ++ "/backup" ++ integer_to_list(N)). + mnesia:restore(fichier_backup(N), []). + +% Renvoie le fichier (avec le chemin) correspondant à la version Version. +fichier_backup(Version) -> + mnesia:system_info(directory) ++ "/backups/backup" ++ integer_to_list(Version). diff --git a/tools/start_tv.erl b/tools/start_tv.erl new file mode 100755 index 0000000..67b6744 --- /dev/null +++ b/tools/start_tv.erl @@ -0,0 +1,13 @@ +#!/usr/bin/env escript +% coding: utf-8 + +main(_) -> + net_kernel:start([tv, shortnames]), + Yaws = yaws@flynux, + io:format("Connexion à Yaws : ~p~n", [net_adm:ping(Yaws)]), + mnesia:start(), + mnesia:change_config(extra_db_nodes, nodes()), + tv:start(), + receive + _Fin -> ok + end.