X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=tools%2Fupdate_server.erl;h=10b899b46be7bda73a0ecef59a448dc293c1d473;hp=b375c0e850eb959211965bc8b1c6eda98219cb6d;hb=HEAD;hpb=dc70eed10d6eb26660d02fe8b18eebb2836ef9de

diff --git a/tools/update_server.erl b/tools/update_server.erl
index b375c0e..10b899b 100755
--- a/tools/update_server.erl
+++ b/tools/update_server.erl
@@ -13,17 +13,32 @@ hote() ->
 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"),