X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=tools%2Fupdate_server.erl;h=72686b1f4686581fc1be4e94580cac6f0192e044;hp=42117728c26dc0af2bd34a8628eb8b4c5bb2ef1a;hb=0fd41878c239877c274bd2bf58caf65b24977e52;hpb=cb02531d4a4b217997db3fdfe2661af18c576ddd diff --git a/tools/update_server.erl b/tools/update_server.erl index 4211772..72686b1 100755 --- a/tools/update_server.erl +++ b/tools/update_server.erl @@ -11,7 +11,7 @@ hote() -> % 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"), @@ -35,4 +35,3 @@ copier_bd(Node) -> 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