* src/cyrsasl_digest.erl: Unquote backslash in DIGEST-MD5 quoted

strings (EJAB-304)

SVN Revision: 1190
This commit is contained in:
Alexey Shchepin 2008-02-14 05:23:16 +00:00
parent 08a4392fa9
commit aa22e20e0a
2 changed files with 7 additions and 2 deletions

View File

@ -1,5 +1,8 @@
2008-02-14 Alexey Shchepin <alexey@process-one.net>
* src/cyrsasl_digest.erl: Unquote backslash in DIGEST-MD5 quoted
strings (EJAB-304)
* src/mod_roster.erl: Removed the ancient Psi roster workaround
* src/mod_roster_odbc.erl: Likewise

View File

@ -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([], _, _, _) ->