mirror of
https://github.com/processone/ejabberd.git
synced 2024-12-12 17:01:52 +01:00
* src/cyrsasl_digest.erl: Fixed challenge/response parsing (thanks
to Martin Pokorny) SVN Revision: 405
This commit is contained in:
parent
9085e7f022
commit
ee3551db4b
@ -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)
|
||||
|
@ -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) ->
|
||||
|
Loading…
Reference in New Issue
Block a user