prevent from calling get_vh_registered_users/2 when not available

SVN Revision: 1870

diff --git a/ChangeLog b/ChangeLog
index 7f56c26f0416c5a95feafa131d43b49a4f953643..c8c2c575e6edede3b6668c63a506029d7f9f20a5 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2009-02-13  Christophe Romain <christophe.romain@process-one.net>
+
+       * src/ejabberd_auth.erl: prevent from calling
+       get_vh_registered_users/2 when not available
+
 2009-01-13  Badlop  <badlop@process-one.net>
 
        * doc/release_notes_2.0.3.txt: Minor changes

diff --git a/src/ejabberd_auth.erl b/src/ejabberd_auth.erl
index b6c11290c60697bfd16d8bc8d7ab164d7f4d53b2..8578142e08171b462af5aa20b2b539e18f2afb76 100644 (file)
--- a/src/ejabberd_auth.erl
+++ b/src/ejabberd_auth.erl
@@ -187,7 +187,13 @@ get_vh_registered_users(Server) ->
 get_vh_registered_users(Server, Opts) ->
     lists:flatmap(
       fun(M) ->
-             M:get_vh_registered_users(Server, Opts)
+               case erlang:function_exported(
+                      M, get_vh_registered_users, 2) of
+                   true ->
+                       M:get_vh_registered_users(Server, Opts);
+                   false ->
+                       M:get_vh_registered_users(Server)
+               end
       end, auth_modules(Server)).
 
 get_vh_registered_users_number(Server) ->