From cd7beb9492ebc75fe63d99c066ffc183f3e37b95 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Wed, 27 Jul 2011 13:19:53 +0200
Subject: [PATCH] External auth should call storage auth only when cache is
 enabled

---
 src/ejabberd_auth_external.erl | 28 ++++++++++++++++++++++++----
 1 file changed, 24 insertions(+), 4 deletions(-)

diff --git a/src/ejabberd_auth_external.erl b/src/ejabberd_auth_external.erl
index 6fc9e1a02..9a7af075c 100644
--- a/src/ejabberd_auth_external.erl
+++ b/src/ejabberd_auth_external.erl
@@ -146,19 +146,39 @@ dirty_get_registered_users() ->
     ejabberd_auth_storage:dirty_get_registered_users().
 
 get_vh_registered_users(Server) ->
-    ejabberd_auth_storage:get_vh_registered_users(Server).
+    case check_cache_last_options(Server) of
+	cache ->
+	    ejabberd_auth_storage:get_vh_registered_users(Server);
+	no_cache ->
+	    []
+    end.
 
 get_vh_registered_users(Server, Data)  ->
-    ejabberd_auth_storage:get_vh_registered_users(Server, Data).
+    case check_cache_last_options(Server) of
+	cache ->
+	    ejabberd_auth_storage:get_vh_registered_users(Server, Data);
+	no_cache ->
+	    []
+    end.
 
 %% @spec (Server) -> nil()
 %%     Server = string()
 
 get_vh_registered_users_number(Server) ->
-    ejabberd_auth_storage:get_vh_registered_users_number(Server).
+    case check_cache_last_options(Server) of
+	cache ->
+	    ejabberd_auth_storage:get_vh_registered_users_number(Server);
+	no_cache ->
+	    0
+    end.
 
 get_vh_registered_users_number(Server, Data) ->
-    ejabberd_auth_storage:get_vh_registered_users_number(Server, Data).
+    case check_cache_last_options(Server) of
+	cache ->
+	    ejabberd_auth_storage:get_vh_registered_users_number(Server, Data);
+	no_cache ->
+	    0
+    end.
 
 %% @spec (User, Server) -> bool()
 %%     User = string()