Chapril/xmpp.chapril.org-ejabberd
25
1
Fork 0
mirror of https://github.com/processone/ejabberd.git synced 2024-12-24 17:29:28 +01:00
Code Releases Activity

Fix list parameters in sql queries on pgsql

Browse Source
This commit is contained in:
Paweł Chmielowski 2020-02-27 11:09:44 +01:00
parent d0e93f9219
commit df47e2a93f
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/ejabberd_sql.erl
View File

@ -253,7 +253,7 @@ to_list(EscapeFun, Val) ->
to_array(EscapeFun, Val) -> to_array(EscapeFun, Val) ->
Escaped = lists:join(<<",">>, lists:map(EscapeFun, Val)), Escaped = lists:join(<<",">>, lists:map(EscapeFun, Val)),
[<<"{">>, Escaped, <<"}">>]. lists:flatten([<<"{">>, Escaped, <<"}">>]).
to_string_literal(odbc, S) -> to_string_literal(odbc, S) ->
<<"'", (escape(S))/binary, "'">>; <<"'", (escape(S))/binary, "'">>;
@ -776,11 +776,13 @@ pgsql_prepare(SQLQuery, State) ->
like_escape = fun() -> escape end}, like_escape = fun() -> escape end},
{RArgs, _} = {RArgs, _} =
lists:foldl( lists:foldl(
fun(arg, {Acc, I}) -> fun(arg, {Acc, I}) ->
{[<<$$, (integer_to_binary(I))/binary>> | Acc], I + 1}; {[<<$$, (integer_to_binary(I))/binary>> | Acc], I + 1};
(escape, {Acc, I}) -> (escape, {Acc, I}) ->
{[<<"">> | Acc], I} {[<<"">> | Acc], I};
end, {[], 1}, (SQLQuery#sql_query.args)(Escape)), (List, {Acc, I}) when is_list(List) ->
{[<<$$, (integer_to_binary(I))/binary>> | Acc], I + 1}
end, {[], 1}, (SQLQuery#sql_query.args)(Escape)),
Args = lists:reverse(RArgs), Args = lists:reverse(RArgs),
%N = length((SQLQuery#sql_query.args)(Escape)), %N = length((SQLQuery#sql_query.args)(Escape)),
%Args = [<<$$, (integer_to_binary(I))/binary>> || I <- lists:seq(1, N)], %Args = [<<$$, (integer_to_binary(I))/binary>> || I <- lists:seq(1, N)],