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 (file)
--- 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) ->
 % 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 ->
       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) ->
 % 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 (executable)
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.