25
1
mirror of https://github.com/processone/ejabberd.git synced 2024-11-28 16:34:13 +01:00

* 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> 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.erl: Removed the ancient Psi roster workaround
* src/mod_roster_odbc.erl: Likewise * src/mod_roster_odbc.erl: Likewise

View File

@ -87,15 +87,17 @@ parse1([], [], T) ->
parse1([], _S, _T) -> parse1([], _S, _T) ->
bad. bad.
parse2([$" | Cs], Key, Val, Ts) -> parse2([$\" | Cs], Key, Val, Ts) ->
parse3(Cs, Key, Val, Ts); parse3(Cs, Key, Val, Ts);
parse2([C | Cs], Key, Val, Ts) -> parse2([C | Cs], Key, Val, Ts) ->
parse4(Cs, Key, [C | Val], Ts); parse4(Cs, Key, [C | Val], Ts);
parse2([], _, _, _) -> parse2([], _, _, _) ->
bad. bad.
parse3([$" | Cs], Key, Val, Ts) -> parse3([$\" | Cs], Key, Val, Ts) ->
parse4(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([C | Cs], Key, Val, Ts) ->
parse3(Cs, Key, [C | Val], Ts); parse3(Cs, Key, [C | Val], Ts);
parse3([], _, _, _) -> parse3([], _, _, _) ->