* 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>
|
2005-08-07 Alexey Shchepin <alexey@sevcom.net>
|
||||||
|
|
||||||
* src/msgs/pl.msg: Updated (thanks to Andrew Smyk)
|
* src/msgs/pl.msg: Updated (thanks to Andrew Smyk)
|
||||||
|
|
|
@ -77,6 +77,10 @@ parse(S) ->
|
||||||
|
|
||||||
parse1([$= | Cs], S, Ts) ->
|
parse1([$= | Cs], S, Ts) ->
|
||||||
parse2(Cs, lists:reverse(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([C | Cs], S, Ts) ->
|
||||||
parse1(Cs, [C | S], Ts);
|
parse1(Cs, [C | S], Ts);
|
||||||
parse1([], [], T) ->
|
parse1([], [], T) ->
|
||||||
|
@ -100,6 +104,8 @@ parse3([], _, _, _) ->
|
||||||
|
|
||||||
parse4([$, | Cs], Key, Val, Ts) ->
|
parse4([$, | Cs], Key, Val, Ts) ->
|
||||||
parse1(Cs, "", [{Key, lists:reverse(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([C | Cs], Key, Val, Ts) ->
|
||||||
parse4(Cs, Key, [C | Val], Ts);
|
parse4(Cs, Key, [C | Val], Ts);
|
||||||
parse4([], Key, Val, Ts) ->
|
parse4([], Key, Val, Ts) ->
|
||||||
|
|
Loading…
Reference in New Issue