From 325e67f4cb71c9a01c3386259ca861a13c911825 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Wed, 2 Dec 2009 23:26:28 +0000
Subject: [PATCH] Use old regexp instead re in 2.x for pre-R12B-4
 compatibility.

SVN Revision: 2771
---
 src/web/ejabberd_web_admin.erl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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")];