Chapril/xmpp.chapril.org-ejabberd
25
1
Fork 0
mirror of https://github.com/processone/ejabberd.git synced 2024-11-28 16:34:13 +01:00
Code Releases Activity

Do not check the second SASL challenge

Browse Source
This commit is contained in:
Evgeniy Khramtsov 2013-06-27 04:22:24 +10:00
parent 42a9e4f4cf
commit 3631301304
1 changed files with 6 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
test/suite.erl
View File

@ -223,9 +223,6 @@ sasl_new(<<"DIGEST-MD5">>, User, Server, Password) ->
MyResponse = response(User, Password, Nonce, AuthzId, MyResponse = response(User, Password, Nonce, AuthzId,
Realm, CNonce, DigestURI, NC, QOP, Realm, CNonce, DigestURI, NC, QOP,
<<"AUTHENTICATE">>), <<"AUTHENTICATE">>),
ServerResponse = response(User, Password, Nonce,
AuthzId, Realm, CNonce, DigestURI,
NC, QOP, <<"">>),
Resp = <<"username=\"", User/binary, "\",realm=\"", Resp = <<"username=\"", User/binary, "\",realm=\"",
Realm/binary, "\",nonce=\"", Nonce/binary, Realm/binary, "\",nonce=\"", Nonce/binary,
"\",cnonce=\"", CNonce/binary, "\",nc=", NC/binary, "\",cnonce=\"", CNonce/binary, "\",nc=", NC/binary,
@ -236,18 +233,12 @@ sasl_new(<<"DIGEST-MD5">>, User, Server, Password) ->
fun (ServerIn2) -> fun (ServerIn2) ->
case cyrsasl_digest:parse(ServerIn2) of case cyrsasl_digest:parse(ServerIn2) of
bad -> {error, <<"Invalid SASL challenge">>}; bad -> {error, <<"Invalid SASL challenge">>};
KeyVals2 -> _KeyVals2 ->
RspAuth = xml:get_attr_s(<<"rspauth">>,
KeyVals2),
if RspAuth == ServerResponse ->
{<<"">>, {<<"">>,
fun (_) -> fun (_) ->
{error, {error,
<<"Invalid SASL challenge">>} <<"Invalid SASL challenge">>}
end}; end}
true ->
{error, <<"Invalid SASL challenge">>}
end
end end
end} end}
end end