144 |
|
|
145 |
my $sql = $context ? $sql_context : $sql_message; |
my $sql = $context ? $sql_context : $sql_message; |
146 |
|
|
147 |
$sql .= " where message ilike ? " if ($args->{search}); |
$sql .= " where message ilike ? or nick ilike ? " if ($args->{search}); |
148 |
$sql .= " order by log.time desc"; |
$sql .= " order by log.time desc"; |
149 |
$sql .= " limit " . $args->{limit}; |
$sql .= " limit " . $args->{limit}; |
150 |
|
|
152 |
if (my $search = $args->{search}) { |
if (my $search = $args->{search}) { |
153 |
$search =~ s/^\s+//; |
$search =~ s/^\s+//; |
154 |
$search =~ s/\s+$//; |
$search =~ s/\s+$//; |
155 |
$sth->execute( '%' . $search . '%' ); |
$sth->execute( ( '%' . $search . '%' ) x 2 ); |
156 |
warn "search for '$search' returned ", $sth->rows, " results ", $context || '', "\n"; |
warn "search for '$search' returned ", $sth->rows, " results ", $context || '', "\n"; |
157 |
} else { |
} else { |
158 |
$sth->execute(); |
$sth->execute(); |