MOD maj TODO
[euphorik.git] / tools / start_tv.erl
1 #!/usr/bin/env escript
2 % coding: utf-8
3
4 main(_) ->
5 net_kernel:start([tv, shortnames]),
6 Yaws = yaws@flynux,
7 io:format("Connexion à Yaws : ~p~n", [net_adm:ping(Yaws)]),
8 mnesia:start(),
9 mnesia:change_config(extra_db_nodes, nodes()),
10 tv:start(),
11 receive
12 _Fin -> ok
13 end.