Use os:getenv to get HOME; if variable is undefined use default values.
SVN Revision: 2773
This commit is contained in:
parent
325e67f4cb
commit
7b244652f1
|
@ -1947,7 +1947,13 @@ get_node(global, Node, ["db"], Query, Lang) ->
|
|||
end;
|
||||
|
||||
get_node(global, Node, ["backup"], Query, Lang) ->
|
||||
{ok, HomeDir, _} = regexp:sub(filename:nativename(os:cmd("echo $HOME")), "\n", ""),
|
||||
HomeDirRaw = case {os:getenv("HOME"), os:type()} of
|
||||
{EnvHome, _} when is_list(EnvHome) -> EnvHome;
|
||||
{false, win32} -> "C:/";
|
||||
{false, {win32, _Osname}} -> "C:/";
|
||||
{false, _} -> "/tmp/"
|
||||
end,
|
||||
HomeDir = filename:nativename(HomeDirRaw),
|
||||
ResS = case node_backup_parse_query(Node, Query) of
|
||||
nothing -> [];
|
||||
ok -> [?XREST("Submitted")];
|
||||
|
|
Loading…
Reference in New Issue