diff options
author | Alexey Shchepin <alexey@process-one.net> | 2003-03-12 19:48:05 +0000 |
---|---|---|
committer | Alexey Shchepin <alexey@process-one.net> | 2003-03-12 19:48:05 +0000 |
commit | 8b26ac9e970e5256ec278a0f38656d93e53070c5 (patch) | |
tree | 832509e464018adddd46c824622472ec4b20a62c /src/ejabberd_auth.erl | |
parent | * src/cyrsasl*.erl: SASL support (currently support only PLAIN (diff) |
* src/ejabberd_s2s_out.erl: Fixed ports leak
* src/ejabberd_listener.erl: Likewise
* src/ejabberd_c2s.erl: Fixes for SASL support
* src/cyrsasl.erl: Fixes
* src/cyrsasl_digest.erl: DIGEST-MD5 SASL mechanism support
SVN Revision: 87
Diffstat (limited to 'src/ejabberd_auth.erl')
-rw-r--r-- | src/ejabberd_auth.erl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/ejabberd_auth.erl b/src/ejabberd_auth.erl index efe9e407b..e080b8028 100644 --- a/src/ejabberd_auth.erl +++ b/src/ejabberd_auth.erl @@ -19,6 +19,7 @@ check_password/4, try_register/2, dirty_get_registered_users/0, + get_password/1, get_password_s/1, is_user_exists/1, remove_user/1, @@ -166,6 +167,15 @@ try_register(User, Password) -> dirty_get_registered_users() -> mnesia:dirty_all_keys(passwd). +get_password(User) -> + LUser = jlib:tolower(User), + case catch mnesia:dirty_read(passwd, LUser) of + [#passwd{password = Password}] -> + Password; + _ -> + false + end. + get_password_s(User) -> LUser = jlib:tolower(User), case catch mnesia:dirty_read(passwd, LUser) of |