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=850c3e8482f4b893d807067044ace0f101487925;hp=0000000000000000000000000000000000000000;hb=64ef87442b933d47f4dbc9dfec9a5a16e522c375;hpb=e56ca5b899d3b39c76a9056077729c04c695666b

diff --git a/tools/mise_en_prod.erl b/tools/mise_en_prod.erl
new file mode 100755
index 0000000..850c3e8
--- /dev/null
+++ b/tools/mise_en_prod.erl
@@ -0,0 +1,16 @@
+#!/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.
+
+main(_) -> 
+   net_kernel:start([flynux, shortnames]),
+   io:format("recharchement des modules..~n"),
+   _Pid = spawn_link(yaws@flynux, euphorik_daemon, reload_euphorik, []),
+   receive
+      {'EXIT', _, _} ->
+         io:format("mise à jour de la BD..~n"),
+         spawn(yaws@flynux, euphorik_bd, update, [])
+   end.
+