* 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 b7973e8d0e9ab2478e556687ecfc337e4b4764b4..5226fe079ed119fd5c7330fd8c2bdde1ca046213 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 7cb36141d25253dd0ab1cb8fee1ab02d0000bfca..9a84b592e05c1dd187db5792a6ede5668da0a9de 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 abc1ac871c75b7843bb4ec058bf6ad49c9881ec2..d133fa14d9a3ca776b520700288a44ba9a38dced 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,