diff options
author | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2013-06-26 22:22:24 +0400 |
---|---|---|
committer | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2013-06-27 09:36:31 +0400 |
commit | 36313013045a7478b40550258417eb6c8ab0451f (patch) | |
tree | b12a87e563d7c65f962c3ee84f55dbad6d6bf7d8 /test | |
parent | 42a9e4f4cfb932772a3af8cecaca8e0b34227567 (diff) |
Do not check the second SASL challenge
Diffstat (limited to 'test')
-rw-r--r-- | test/suite.erl | 21 |
1 files changed, 6 insertions, 15 deletions
diff --git a/test/suite.erl b/test/suite.erl index 4520e55cf..7df512cfb 100644 --- a/test/suite.erl +++ b/test/suite.erl @@ -223,9 +223,6 @@ sasl_new(<<"DIGEST-MD5">>, User, Server, Password) -> MyResponse = response(User, Password, Nonce, AuthzId, Realm, CNonce, DigestURI, NC, QOP, <<"AUTHENTICATE">>), - ServerResponse = response(User, Password, Nonce, - AuthzId, Realm, CNonce, DigestURI, - NC, QOP, <<"">>), Resp = <<"username=\"", User/binary, "\",realm=\"", Realm/binary, "\",nonce=\"", Nonce/binary, "\",cnonce=\"", CNonce/binary, "\",nc=", NC/binary, @@ -236,18 +233,12 @@ sasl_new(<<"DIGEST-MD5">>, User, Server, Password) -> fun (ServerIn2) -> case cyrsasl_digest:parse(ServerIn2) of bad -> {error, <<"Invalid SASL challenge">>}; - KeyVals2 -> - RspAuth = xml:get_attr_s(<<"rspauth">>, - KeyVals2), - if RspAuth == ServerResponse -> - {<<"">>, - fun (_) -> - {error, - <<"Invalid SASL challenge">>} - end}; - true -> - {error, <<"Invalid SASL challenge">>} - end + _KeyVals2 -> + {<<"">>, + fun (_) -> + {error, + <<"Invalid SASL challenge">>} + end} end end} end |