X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=tools%2Fstart_tv.erl;fp=tools%2Fstart_tv.erl;h=67b6744c3d225dacf0c657022f86ad48f43838ed;hp=0000000000000000000000000000000000000000;hb=67eb1489d015aa31a28a8bc2dbe571ef8512ba09;hpb=fe508652111984ab4f2707a36d5ced39aaaf5cac

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.