summaryrefslogtreecommitdiff
path: root/src/ejabberd_auth.erl
diff options
context:
space:
mode:
authorAlexey Shchepin <alexey@process-one.net>2003-01-21 20:36:55 +0000
committerAlexey Shchepin <alexey@process-one.net>2003-01-21 20:36:55 +0000
commitf0427ecab55b393cdc368c6f8b2bb0ae2d8cf07c (patch)
treebf151a7c8bd4b4964a6095dceda261dca48c29e5 /src/ejabberd_auth.erl
parent*** empty log message *** (diff)
*** empty log message ***
SVN Revision: 46
Diffstat (limited to '')
-rw-r--r--src/ejabberd_auth.erl10
1 files changed, 10 insertions, 0 deletions
diff --git a/src/ejabberd_auth.erl b/src/ejabberd_auth.erl
index 7e0aa428..809d3dfd 100644
--- a/src/ejabberd_auth.erl
+++ b/src/ejabberd_auth.erl
@@ -22,6 +22,7 @@
check_password/4,
try_register/2,
dirty_get_registered_users/0,
+ get_password_s/1,
is_user_exists/1]).
%% gen_server callbacks
@@ -163,6 +164,15 @@ try_register(User, Password) ->
dirty_get_registered_users() ->
mnesia:dirty_all_keys(passwd).
+get_password_s(User) ->
+ LUser = jlib:tolower(User),
+ case catch mnesia:dirty_read(passwd, LUser) of
+ [#passwd{password = Password}] ->
+ Password;
+ _ ->
+ []
+ end.
+
is_user_exists(User) ->
LUser = jlib:tolower(User),
F = fun() ->