* src/gen_mod.erl: When ejabberd is kindly stopped, don't forget

modules configuration (EJAB-706)
* src/ejabberd_app.erl: Likewise

SVN Revision: 1497

diff --git a/ChangeLog b/ChangeLog
index a1e4252ef863d4c0e14a17474054ccce5fde6956..b3ba28949e8b8547891cccb7d31496bc71016c10 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2008-07-30  Badlop  <badlop@process-one.net>
 
+       * src/gen_mod.erl: When ejabberd is kindly stopped, don't forget
+       modules configuration (EJAB-706)
+       * src/ejabberd_app.erl: Likewise
+
        * src/msgs/uk.msg: Fix: each string in a single line
        * src/msgs/wa.msg: Likewise
 

diff --git a/src/ejabberd_app.erl b/src/ejabberd_app.erl
index 4c12069d1cd9b83a054f6f4e99154ba04f199c1d..38035710d6bca1f9888824b5b7870ed5b96fafb0 100644 (file)
--- a/src/ejabberd_app.erl
+++ b/src/ejabberd_app.erl
@@ -153,7 +153,7 @@ stop_modules() ->
                  Modules ->
                      lists:foreach(
                        fun({Module, _Args}) ->
-                               gen_mod:stop_module(Host, Module)
+                               gen_mod:stop_module_keep_config(Host, Module)
                        end, Modules)
              end
       end, ?MYHOSTS).

diff --git a/src/gen_mod.erl b/src/gen_mod.erl
index 29fbb1104ce10df793dd5c07d7f13ffb58fe8f4d..4333729eee8097e401d5e74e36da607bec810659 100644 (file)
--- a/src/gen_mod.erl
+++ b/src/gen_mod.erl
@@ -72,22 +72,34 @@ start_module(Host, Module, Opts) ->
            ok
     end.
 
+%% @doc Stop the module in a host, and forget its configuration.
 stop_module(Host, Module) ->
+    case stop_module_keep_config(Host, Module) of
+       error ->
+           error;
+       ok ->
+           del_module_mnesia(Host, Module)
+    end.
+
+%% @doc Stop the module in a host, but keep its configuration.
+%% As the module configuration is kept in the Mnesia local_config table,
+%% when ejabberd is restarted the module will be started again.
+%% This function is useful when ejabberd is being stopped
+%% and it stops all modules.
+stop_module_keep_config(Host, Module) ->
     case catch Module:stop(Host) of
        {'EXIT', Reason} ->
-           ?ERROR_MSG("~p", [Reason]);
+           ?ERROR_MSG("~p", [Reason]),
+           error;
        {wait, ProcList} when is_list(ProcList) ->
            lists:foreach(fun wait_for_process/1, ProcList),
-           del_module_mnesia(Host, Module),
            ets:delete(ejabberd_modules, {Module, Host}),
            ok;
        {wait, Process} ->
            wait_for_process(Process),
-           del_module_mnesia(Host, Module),
            ets:delete(ejabberd_modules, {Module, Host}),
            ok;
        _ ->
-           del_module_mnesia(Host, Module),
            ets:delete(ejabberd_modules, {Module, Host}),
            ok
     end.