my @search_fields = qw(Title Description);
my $type = param('type'); ($type = 'keyword') if ($type !~ /^keyword|phrase$/);
my $bool = param('bool'); ($bool = 'and') if ($bool !~ /^and|or$/);
my $cs = param('cs'); ($cs = 0) if ($cs !~ /^0|1$/);
my $ww = param('ww'); ($ww = 0) if ($ww !~ /^0|1$/);
my $page = param('page'); $page ||= 1;
my $max = 100;
my $offset = (($page - 1) * $max) unless ($page <= 1); $offset ||= 0;
my @terms;
($type eq 'phrase') ? (@terms = param('query')) : (@terms = split /\s/, param('query'));
my $where;
foreach my $term (@terms) {
$where .= " (";
foreach my $field (@search_fields) {
if (param('ww')) {
$where .= " $field regexp '" . '[[:<:]]' . $term . '[[:>:]]' . "' or";
} else {
$where .= qq| binary| if (param('cs'));
$where .= qq| $field like '%$term%' or|;
}
}
$where =~ s/or$//;
$where .= ") $bool\n";
}
chomp($where);
$where =~ s/$bool$//;