% 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" ->
+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, mnesia, restore, [Fichier2, [{default_op, recreate_tables}]]),
rpc:call(yaws@overnux, file, delete, [Fichier]),
rpc:call(Node, file, delete, [Fichier2]).
-
\ No newline at end of file