6 |
use warnings; |
use warnings; |
7 |
use Carp; |
use Carp; |
8 |
|
|
|
use Plucene::Simple; |
|
9 |
use Mail::Box::Manager; |
use Mail::Box::Manager; |
10 |
use Config::IniFiles; |
use Config::IniFiles; |
11 |
|
use MWS_plucene; |
12 |
|
|
13 |
require Exporter; |
require Exporter; |
14 |
|
|
36 |
|
|
37 |
my $index_file = $self->{config}->val('global', 'index') || croak "can't find [index] section in config file with path of index"; |
my $index_file = $self->{config}->val('global', 'index') || croak "can't find [index] section in config file with path of index"; |
38 |
|
|
39 |
$self->{index} = Plucene::Simple->open($index_file) || croak "can't open index '$index_file': $!"; |
$self->{index} = $self->open_index($index_file); |
40 |
|
|
41 |
$self->{mgr} = Mail::Box::Manager->new; |
$self->{mgr} = Mail::Box::Manager->new; |
42 |
|
|
78 |
|
|
79 |
my $s = shift || carp "search called without argument!"; |
my $s = shift || carp "search called without argument!"; |
80 |
|
|
81 |
my @index_ids = $self->{index}->search($s); |
my @index_ids = $self->search_index($s); |
82 |
|
|
83 |
$self->{'index_ids'} = \@index_ids; |
$self->{'index_ids'} = \@index_ids; |
84 |
|
|