main([Node_name]) when Node_name =:= "yaws"; Node_name =:= "yaws_dev" ->
Node = list_to_atom(Node_name ++ atom_to_list(hote())),
net_kernel:start([flynux, shortnames]),
- io:format("rechargement des modules..~n"),
+ io:format("reloading modules...~n"),
rpc:call(Node, euphorik_daemon, reload_euphorik, []),
if Node_name =:= "yaws_dev" -> copy_database(Node);
true -> true
end,
- io:format("mise à jour de la BD..~n"),
+ io:format("updating database...~n"),
rpc:call(Node, euphorik_bd_admin, update, []);
main(_) ->
io:format("Usage: update_server.erl <node-name>"),
halt(1).
+create_database_directory() ->
+ % Create the directory "var/database" if it doesn't exist.
+ {ok, Files_in_root} = file:list_dir("."),
+ Var_exists = lists:any(fun(Name) -> Name =:= "var" end, Files_in_root),
+ if not Var_exists ->
+ file:make_dir("var");
+ true -> ok
+ end,
+ {ok, Files_in_var} = file:list_dir("var"),
+ Database_exists = lists:any(fun(Name) -> Name =:= "database" end, Files_in_var),
+ if not Database_exists ->
+ file:make_dir("var/database");
+ true -> ok
+ end.
+
% Copy the datbase from the production to pre production.
copy_database(Node) ->
io:format("Copying production database to pre-production node~n"),