Small refactoring

SVN Revision: 2867

diff --git a/src/ejabberd_auth_anonymous.erl b/src/ejabberd_auth_anonymous.erl
index 05b9c98f5df2261529788a6e2f7c49976f57b205..2a445f34e12845d83156bd0fcd50c8f365a35278 100644 (file)
--- a/src/ejabberd_auth_anonymous.erl
+++ b/src/ejabberd_auth_anonymous.erl
@@ -79,7 +79,7 @@ allow_anonymous(Host) ->
 %% anonymous protocol can be: sasl_anon|login_anon|both
 is_sasl_anonymous_enabled(Host) ->
     case allow_anonymous(Host) of
-       false -> false;     
+       false -> false;
        true ->
            case anonymous_protocol(Host) of
                sasl_anon -> true;
@@ -97,7 +97,7 @@ is_login_anonymous_enabled(Host) ->
        true  ->
            case anonymous_protocol(Host) of
                login_anon -> true;
-               both       -> true;             
+               both       -> true;
                _Other     -> false
            end
     end.
@@ -115,10 +115,8 @@ anonymous_protocol(Host) ->
 %% Return true if multiple connections have been allowed in the config file
 %% defaults to false
 allow_multiple_connections(Host) ->
-    case ejabberd_config:get_local_option({allow_multiple_connections, Host}) of
-       true -> true;
-       _Other -> false
-    end.
+    ejabberd_config:get_local_option(
+      {allow_multiple_connections, Host}) =:= true.
 
 %% Check if user exist in the anonymus database
 anonymous_user_exist(User, Server) ->
@@ -176,7 +174,7 @@ check_password(User, Server, Password) ->
 check_password(User, Server, _Password, _Digest, _DigestGen) ->
     %% We refuse login for registered accounts (They cannot logged but
     %% they however are "reserved")
-    case ejabberd_auth:is_user_exists_in_other_modules(?MODULE, 
+    case ejabberd_auth:is_user_exists_in_other_modules(?MODULE,
                                                       User, Server) of
        %% If user exists in other module, reject anonnymous authentication
        true  -> false;
@@ -248,4 +246,3 @@ remove_user(_User, _Server, _Password) ->
 
 plain_password_required() ->
     false.
-