Chapril/xmpp.chapril.org-ejabberd
24
1
Fork 0
mirror of https://github.com/processone/ejabberd.git synced 2024-09-27 14:30:55 +02:00
Code Releases Activity

Use os:getenv to get HOME; if variable is undefined use default values.

Browse Source 
SVN Revision: 2772
This commit is contained in:
Badlop 2009-12-03 15:58:19 +00:00
parent 3173d9167f
commit 2a05ca5f2b
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/web/ejabberd_web_admin.erl
View File

@ -1980,7 +1980,13 @@ get_node(global, Node, ["db"], Query, Lang) ->
end;
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
nothing -> [];
ok -> [?XREST("Submitted")];