From d4316558de1dd00fdfd0075c3931ca2f4b3ba5d2 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Thu, 5 Aug 2010 00:49:19 +0200
Subject: When an obsolete ODBC module is starting, switch to the normal one

---
 src/gen_mod.erl | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'src/gen_mod.erl')

diff --git a/src/gen_mod.erl b/src/gen_mod.erl
index 6e7a8fed0..d13b348d0 100644
--- a/src/gen_mod.erl
+++ b/src/gen_mod.erl
@@ -63,6 +63,19 @@ start() ->
 
 
 start_module(Host, Module, Opts) ->
+    MTokens = string:tokens(atom_to_list(Module), "_"),
+    case lists:split(length(MTokens) - 1, MTokens) of
+	{ModulePlainList, ["odbc"]} ->
+	    Module2 = list_to_atom(string:join(ModulePlainList, "_")),
+	    ?WARNING_MSG("The module ~p is obsolete. Replace it with ~p and "
+			 "add the option {backend, odbc}",
+			 [Module, Module2]),
+	    start_module2(Host, Module2, [{backend, odbc} | Opts]);
+	_ ->
+	    start_module2(Host, Module, Opts)
+    end.
+
+start_module2(Host, Module, Opts) ->
     set_module_opts_mnesia(Host, Module, Opts),
     ets:insert(ejabberd_modules,
 	       #ejabberd_module{module_host = {Module, Host},
-- 
cgit v1.2.3