diff options
author | Yorhel <git@yorhel.nl> | 2020-07-29 11:08:03 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2020-07-29 11:13:14 +0200 |
commit | 32b502511709afd45503779d5a1c38a1ada0f09c (patch) | |
tree | 88fcd97965eecca8a391bea81ff518b2d84a1b7f /lib/VNWeb/Discussions | |
parent | daef605046269bcad26525c87d3e9a653db532c6 (diff) |
SQL: Fix escaping of backslash in LIKE patterns
Diffstat (limited to 'lib/VNWeb/Discussions')
-rw-r--r-- | lib/VNWeb/Discussions/Elm.pm | 2 | ||||
-rw-r--r-- | lib/VNWeb/Discussions/Search.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lib/VNWeb/Discussions/Elm.pm b/lib/VNWeb/Discussions/Elm.pm index 77944926..81fe7a9b 100644 --- a/lib/VNWeb/Discussions/Elm.pm +++ b/lib/VNWeb/Discussions/Elm.pm @@ -9,7 +9,7 @@ elm_api Boards => undef, { }, sub { return elm_Unauth if !auth->permBoard; my $q = shift->{search}; - my $qs = $q =~ s/[%_]//gr; + my $qs = sql_like $q; my sub subq { my($prio, $where) = @_; diff --git a/lib/VNWeb/Discussions/Search.pm b/lib/VNWeb/Discussions/Search.pm index 6b56b47b..73deba04 100644 --- a/lib/VNWeb/Discussions/Search.pm +++ b/lib/VNWeb/Discussions/Search.pm @@ -125,7 +125,7 @@ sub threads_ { my $where = sql_and $filt->{b}->@* < keys %BOARD_TYPE ? sql('t.id IN(SELECT tid FROM threads_boards WHERE type IN', $filt->{b}, ')') : (), - map sql('t.title ilike', \('%'.($_ =~ s/%//gr).'%')), grep length($_) > 0, split /[ -,._]/, $filt->{bq}; + map sql('t.title ilike', \('%'.sql_like($_).'%')), grep length($_) > 0, split /[ ,._-]/, $filt->{bq}; noresults_ if !threadlist_ where => $where, |