diff options
| author | Alexey Shchepin <alexey@process-one.net> | 2005-08-10 23:29:16 +0000 |
|---|---|---|
| committer | Alexey Shchepin <alexey@process-one.net> | 2005-08-10 23:29:16 +0000 |
| commit | ee3551db4b08ffd140a91f80318924f43f13bef1 (patch) | |
| tree | 35cfeba9433c5393e106804c998abf40c1b2067d /src | |
| parent | * src/msgs/pl.msg: Updated (thanks to Andrew Smyk) (diff) | |
* src/cyrsasl_digest.erl: Fixed challenge/response parsing (thanks
to Martin Pokorny)
SVN Revision: 405
Diffstat (limited to 'src')
| -rw-r--r-- | src/cyrsasl_digest.erl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/cyrsasl_digest.erl b/src/cyrsasl_digest.erl index 7851dfabe..fbd543312 100644 --- a/src/cyrsasl_digest.erl +++ b/src/cyrsasl_digest.erl @@ -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) -> |