aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBadlop <badlop@process-one.net>2009-12-02 23:26:28 +0000
committerBadlop <badlop@process-one.net>2009-12-02 23:26:28 +0000
commit325e67f4cb71c9a01c3386259ca861a13c911825 (patch)
tree44f58ea51c5e94634d6986b0946da4310ffad090
parentIQ sent to resource not connected, return service-unavailable instead of reci... (diff)
Use old regexp instead re in 2.x for pre-R12B-4 compatibility.
SVN Revision: 2771
-rw-r--r--src/web/ejabberd_web_admin.erl2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/web/ejabberd_web_admin.erl b/src/web/ejabberd_web_admin.erl
index 7ef793a36..d6461b2c0 100644
--- a/src/web/ejabberd_web_admin.erl
+++ b/src/web/ejabberd_web_admin.erl
@@ -1947,7 +1947,7 @@ 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}]),
+ {ok, HomeDir, _} = regexp:sub(filename:nativename(os:cmd("echo $HOME")), "\n", ""),
ResS = case node_backup_parse_query(Node, Query) of
nothing -> [];
ok -> [?XREST("Submitted")];