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_dev@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.