8 |
use SWISH; |
use SWISH; |
9 |
use Text::Iconv; |
use Text::Iconv; |
10 |
use DBI; |
use DBI; |
11 |
|
use Config::IniFiles; |
12 |
|
|
13 |
use lib '..'; |
use lib '..'; |
14 |
use index_DBI; |
use index_DBI; |
27 |
|
|
28 |
my $from_utf8 = Text::Iconv->new('UTF8', $CHARSET); |
my $from_utf8 = Text::Iconv->new('UTF8', $CHARSET); |
29 |
|
|
30 |
|
# read global.conf configuration |
31 |
|
my $cfg_global = new Config::IniFiles( -file => '../global.conf' ) || die "can't open 'global.conf'"; |
32 |
|
|
33 |
|
|
34 |
sub setup { |
sub setup { |
35 |
my $self = shift; |
my $self = shift; |
36 |
$self->tmpl_path($TEMPLATE_PATH); |
$self->tmpl_path($TEMPLATE_PATH); |
95 |
$s.= ($s) ? "and " : ""; |
$s.= ($s) ? "and " : ""; |
96 |
$s.="not " if ($1 eq "-"); |
$s.="not " if ($1 eq "-"); |
97 |
$s.="$2* "; |
$s.="$2* "; |
98 |
|
} elsif (m/(and|or|not)/i) { |
99 |
|
$s.="$_ "; |
100 |
} else { |
} else { |
101 |
$s.="$_* "; |
$s.="$_* "; |
102 |
} |
} |
199 |
|
|
200 |
my $html; |
my $html; |
201 |
|
|
202 |
my $index = new index_DBI(); |
my $index = new index_DBI( |
203 |
|
$cfg_global->val('global', 'dbi_dbd'), |
204 |
|
$cfg_global->val('global', 'dbi_dsn'), |
205 |
|
$cfg_global->val('global', 'dbi_user'), |
206 |
|
$cfg_global->val('global', 'dbi_passwd') || '' |
207 |
|
); |
208 |
|
|
209 |
my $total = $index->check($field); |
my $total = $index->check($field); |
210 |
if (! $total) { |
if (! $total) { |