diff options
| author | Alexey Shchepin <alexey@process-one.net> | 2008-02-14 05:23:16 +0000 |
|---|---|---|
| committer | Alexey Shchepin <alexey@process-one.net> | 2008-02-14 05:23:16 +0000 |
| commit | aa22e20e0a5d2cd503df218f6e29af4abe59687d (patch) | |
| tree | 27fce53c5eac0aa942ec56ff15221887d9242655 /src | |
| parent | * src/mod_roster.erl: Removed the ancient Psi roster workaround (diff) | |
* src/cyrsasl_digest.erl: Unquote backslash in DIGEST-MD5 quoted
strings (EJAB-304)
SVN Revision: 1190
Diffstat (limited to 'src')
| -rw-r--r-- | src/cyrsasl_digest.erl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/cyrsasl_digest.erl b/src/cyrsasl_digest.erl index 1dfd54931..190695176 100644 --- a/src/cyrsasl_digest.erl +++ b/src/cyrsasl_digest.erl @@ -87,15 +87,17 @@ parse1([], [], T) -> parse1([], _S, _T) -> bad. -parse2([$" | Cs], Key, Val, Ts) -> +parse2([$\" | Cs], Key, Val, Ts) -> parse3(Cs, Key, Val, Ts); parse2([C | Cs], Key, Val, Ts) -> parse4(Cs, Key, [C | Val], Ts); parse2([], _, _, _) -> bad. -parse3([$" | Cs], Key, Val, Ts) -> +parse3([$\" | Cs], Key, Val, Ts) -> parse4(Cs, Key, Val, Ts); +parse3([$\\, C | Cs], Key, Val, Ts) -> + parse3(Cs, Key, [C | Val], Ts); parse3([C | Cs], Key, Val, Ts) -> parse3(Cs, Key, [C | Val], Ts); parse3([], _, _, _) -> |