* src/ejabberd_ctl.erl: Web Admin and Ad-hoc admin: dump only

persistent tables (EJAB-678)

SVN Revision: 1387

diff --git a/ChangeLog b/ChangeLog
index 7f14754c4092c9ec6793c313ed3c8874034dec8b..2582a8a5570d73d7c58fe33e30b0168974fcdb40 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2008-06-29  Badlop  <badlop@process-one.net>
 
+       * src/ejabberd_ctl.erl: Web Admin and Ad-hoc admin: dump only
+       persistent tables (EJAB-678)
+
        * src/mod_pubsub/node_pep.erl: Complain if mod_caps disabled and
        mod_pubsub has PEP plugin enabled (EJAB-677)
 

diff --git a/src/ejabberd_ctl.erl b/src/ejabberd_ctl.erl
index e5be354263759df8e2dffe68bd5d4284df3caab3..ae4b64fba7feec573c987dd0eb7bd23dd9f3ac1e 100644 (file)
--- a/src/ejabberd_ctl.erl
+++ b/src/ejabberd_ctl.erl
@@ -30,6 +30,7 @@
 -export([start/0,
         init/0,
         process/1,
+        dump_to_textfile/1,
         register_commands/3,
         register_commands/4,
         unregister_commands/3,

diff --git a/src/mod_configure.erl b/src/mod_configure.erl
index 625e380cd86dae36d28c002728c2e691a71dc090..e012794dd58fedb899b314923046570102d861f7 100644 (file)
--- a/src/mod_configure.erl
+++ b/src/mod_configure.erl
@@ -1416,7 +1416,7 @@ set_form(_From, _Host, ["running nodes", ENode, "backup", "textfile"], _Lang, XD
                false ->
                    {error, ?ERR_BAD_REQUEST};
                {value, {_, [String]}} ->
-                   case rpc:call(Node, mnesia, dump_to_textfile, [String]) of
+                   case rpc:call(Node, ejabberd_ctl, dump_to_textfile, [String]) of
                        {badrpc, _Reason} ->
                            {error, ?ERR_INTERNAL_SERVER_ERROR};
                        {error, _Reason} ->

diff --git a/src/web/ejabberd_web_admin.erl b/src/web/ejabberd_web_admin.erl
index 25ea9d237fa4a00fc87f3dfef447e2715db85d85..8decd53e8ee2e6a85a8375fe25871dd9157c7cec 100644 (file)
--- a/src/web/ejabberd_web_admin.erl
+++ b/src/web/ejabberd_web_admin.erl
@@ -2022,7 +2022,7 @@ node_backup_parse_query(Node, Query) ->
                                          rpc:call(Node, mnesia,
                                                   install_fallback, [Path]);
                                      "dump" ->
-                                         rpc:call(Node, mnesia,
+                                         rpc:call(Node, ejabberd_ctl,
                                                   dump_to_textfile, [Path]);
                                      "load" ->
                                          rpc:call(Node, mnesia,