X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=tools%2Fmise_en_prod.erl;fp=tools%2Fmise_en_prod.erl;h=0000000000000000000000000000000000000000;hp=933aceb3cbb8b8592304c8f3c876a6e955a45043;hb=82aea119013e63c3d4864baea690c84f56890008;hpb=6d3135b870db381965b197af7d282a99f52e43d8

diff --git a/tools/mise_en_prod.erl b/tools/mise_en_prod.erl
deleted file mode 100755
index 933aceb..0000000
--- a/tools/mise_en_prod.erl
+++ /dev/null
@@ -1,43 +0,0 @@
-#!/usr/bin/env escript
-% coding: utf-8
-
-% Executé sur le serveur après la copie des fichiers lors de la mise en production.
-% Recharge les modules de euphorik et met à jour la BD.
-% TODO : construire le nom du noeud en fonction du nom de l'host
-
-hote() ->
-   '@overnux'.
-
-% le premier argument est le nom du noeud est peut valoir :
-% - yaws : noeud de production
-% - yaws_dev : noeud de pre-production
-main([Nom_node]) when Nom_node =:= "yaws"; Nom_node =:= "yaws_dev" -> 
-   Node = list_to_atom(Nom_node ++ atom_to_list(hote())),
-   net_kernel:start([flynux, shortnames]),
-   io:format("rechargement des modules..~n"),
-   rpc:call(Node, euphorik_daemon, reload_euphorik, []),
-   if Nom_node =:= "yaws_dev" -> copier_bd(Node);
-      true -> true
-   end,
-   io:format("mise à jour de la BD..~n"),
-   rpc:call(Node, euphorik_bd_admin, update, []);
-main(_) ->
-   io:format("Usage : mise_en_prod.erl <node>"),
-   halt(1).
-
-% Copie la bd du noeud de production
-copier_bd(Node) ->
-   io:format("Copie de la BD de production vers le noeude pre-production~n"),
-   Fichier = "/tmp/backup_ek_tmp",
-   Fichier2 = "/tmp/backup_ek_tmp2",
-   rpc:call(yaws@overnux, mnesia, backup, [Fichier]),
-   rpc:call(Node, euphorik_bd_admin, change_node_name, [yaws@overnux, yaws_dev@overnux, Fichier, Fichier2]),
-   rpc:call(Node, mnesia, restore, [Fichier2, [{default_op, recreate_tables}]]),
-   rpc:call(yaws@overnux, file, delete, [Fichier]),
-   rpc:call(Node, file, delete, [Fichier2]).
-   
-   
-   
-   
-   
-