jacob.eva
/
ejabberd-contrib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Backward compatibility for ejabberd 16.x

This commit is contained in:
Marcin Baran 2017-04-19 09:47:47 +02:00
parent 5359c2a0dd
commit 4f2b61ad6e
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ejabberd_auth_http/src/ejabberd_auth_http.erl
View File

@ -16,6 +16,7 @@
-export([start/1, -export([start/1,
set_password/3, set_password/3,
check_password/4, check_password/4,
check_password/3,
check_password/6, check_password/6,
try_register/3, try_register/3,
dirty_get_registered_users/0, dirty_get_registered_users/0,
@ -81,6 +82,18 @@ check_password(LUser, _AuthzId, LServer, Password) ->
{ok, true} =:= verify_scram_password(LUser, LServer, Password) {ok, true} =:= verify_scram_password(LUser, LServer, Password)
end. end.
-spec check_password(ejabberd:luser(), ejabberd:lserver(), binary()) -> boolean().
check_password(LUser, LServer, Password) ->
case scram2:enabled(LServer) of
false ->
case make_req(get, <<"check_password">>, LUser, LServer, Password) of
{ok, <<"true">>} -> true;
_ -> false
end;
true ->
{ok, true} =:= verify_scram_password(LUser, LServer, Password)
end.
-spec check_password(ejabberd:luser(), binary(), ejabberd:lserver(), binary(), binary(), fun()) -> boolean(). -spec check_password(ejabberd:luser(), binary(), ejabberd:lserver(), binary(), binary(), fun()) -> boolean().
check_password(LUser, _AuthzId, LServer, Password, Digest, DigestGen) -> check_password(LUser, _AuthzId, LServer, Password, Digest, DigestGen) ->
case make_req(get, <<"get_password">>, LUser, LServer, <<"">>) of case make_req(get, <<"get_password">>, LUser, LServer, <<"">>) of