#uri{host = Host, path = Path}.
build() ->
- % 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,
% Build all the Erlang modules.
cmd("make", [], "modules").