25
1
mirror of https://github.com/processone/ejabberd.git synced 2024-12-02 16:37:52 +01:00

* src/web/ejabberd_http.erl (parse_auth): Allow password that

include colon character (EJAB-522)

SVN Revision: 1322
This commit is contained in:
Badlop 2008-05-12 17:56:27 +00:00
parent d75577fa34
commit a96cf33df3
2 changed files with 13 additions and 5 deletions

View File

@ -1,3 +1,8 @@
2008-05-12 Badlop <badlop@process-one.net>
* src/web/ejabberd_http.erl (parse_auth): Allow password that
include colon character (EJAB-522)
2008-04-30 Christophe Romain <christophe.romain@process-one.net> 2008-04-30 Christophe Romain <christophe.romain@process-one.net>
* src/mod_caps.erl: XEP-0115 patch (EJAB-618) * src/mod_caps.erl: XEP-0115 patch (EJAB-618)

View File

@ -635,11 +635,14 @@ parse_auth(_Orig = "Basic " ++ Auth64) ->
{error, _Err} -> {error, _Err} ->
undefined; undefined;
Auth -> Auth ->
case string:tokens(Auth, ":") of %% Auth should be a string with the format: user@server:password
[User, Pass] -> %% Note that password can contain additional characters '@' and ':'
{User, Pass}; case string:chr(Auth, $:) of
_ -> 0 ->
undefined undefined;
SplitIndex ->
{User, [$: | Pass]} = lists:split(SplitIndex-1, Auth),
{User, Pass}
end end
end; end;
parse_auth(_) -> parse_auth(_) ->