-% Copie la bd du noeud de production
-copier_bd(Node) ->
- io:format("Copie de la BD de production vers le noeude pre-production~n"),
- Fichier = "/tmp/backup_ek_tmp",
- Fichier2 = "/tmp/backup_ek_tmp2",
- rpc:call(yaws@overnux, mnesia, backup, [Fichier]),
- rpc:call(Node, euphorik_bd_admin, change_node_name, [yaws@overnux, yaws_dev@overnux, Fichier, Fichier2]),
- 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
+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"),
+ File = "/tmp/backup_ek_tmp",
+ File2 = "/tmp/backup_ek_tmp2",
+ rpc:call(yaws@overnux, mnesia, backup, [File]),
+ rpc:call(Node, euphorik_bd_admin, change_node_name, [yaws@overnux, yaws_dev@overnux, File, File2]),
+ rpc:call(Node, mnesia, restore, [File2, [{default_op, recreate_tables}]]),
+ rpc:call(yaws@overnux, file, delete, [File]),
+ rpc:call(Node, file, delete, [File2]).