mirror of
https://github.com/processone/ejabberd.git
synced 2024-10-27 15:02:14 +01:00
Use os:getenv to get HOME; if variable is undefined use default values.
SVN Revision: 2772
This commit is contained in:
parent
3173d9167f
commit
2a05ca5f2b
@ -1980,7 +1980,13 @@ get_node(global, Node, ["db"], Query, Lang) ->
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
get_node(global, Node, ["backup"], Query, Lang) ->
|
get_node(global, Node, ["backup"], Query, Lang) ->
|
||||||
HomeDir = re:replace(filename:nativename(os:cmd("echo $HOME")), "\n", "", [{return, list}]),
|
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
|
ResS = case node_backup_parse_query(Node, Query) of
|
||||||
nothing -> [];
|
nothing -> [];
|
||||||
ok -> [?XREST("Submitted")];
|
ok -> [?XREST("Submitted")];
|
||||||
|
Loading…
Reference in New Issue
Block a user