25
1
mirror of https://github.com/processone/ejabberd.git synced 2024-11-24 16:23:40 +01:00

* src/cyrsasl_digest.erl: Fixed challenge/response parsing (thanks

to Martin Pokorny)

SVN Revision: 405
This commit is contained in:
Alexey Shchepin 2005-08-10 23:29:16 +00:00
parent 9085e7f022
commit ee3551db4b
2 changed files with 11 additions and 0 deletions

View File

@ -1,3 +1,8 @@
2005-08-11 Alexey Shchepin <alexey@sevcom.net>
* src/cyrsasl_digest.erl: Fixed challenge/response parsing (thanks
to Martin Pokorny)
2005-08-07 Alexey Shchepin <alexey@sevcom.net>
* src/msgs/pl.msg: Updated (thanks to Andrew Smyk)

View File

@ -77,6 +77,10 @@ parse(S) ->
parse1([$= | Cs], S, Ts) ->
parse2(Cs, lists:reverse(S), "", Ts);
parse1([$, | Cs], [], Ts) ->
parse1(Cs, [], Ts);
parse1([$\s | Cs], [], Ts) ->
parse1(Cs, [], Ts);
parse1([C | Cs], S, Ts) ->
parse1(Cs, [C | S], Ts);
parse1([], [], T) ->
@ -100,6 +104,8 @@ parse3([], _, _, _) ->
parse4([$, | Cs], Key, Val, Ts) ->
parse1(Cs, "", [{Key, lists:reverse(Val)} | Ts]);
parse4([$\s | Cs], Key, Val, Ts) ->
parse4(Cs, Key, Val, Ts);
parse4([C | Cs], Key, Val, Ts) ->
parse4(Cs, Key, [C | Val], Ts);
parse4([], Key, Val, Ts) ->