27 |
|
|
28 |
=cut |
=cut |
29 |
|
|
30 |
use MWS::SWISH; |
#use MWS::SWISH; |
31 |
#use MWS::Plucene; |
use MWS::Plucene; |
32 |
use Data::Dumper; |
use Data::Dumper; |
33 |
use Date::Parse; |
use Date::Parse; |
34 |
use POSIX qw(strftime); |
use POSIX qw(strftime); |
50 |
exit 1; |
exit 1; |
51 |
} |
} |
52 |
|
|
53 |
my $mws = MWS::SWISH->new(config_file => $config_file); |
#my $mws = MWS::SWISH->new(config_file => $config_file); |
54 |
#my $mws = MWS::Plucene->new(config_file => $config_file); |
my $mws = MWS::Indexer->new(config_file => $config_file); |
55 |
|
|
56 |
$mws->create_index if (! $recursive); |
$mws->create_index if (! $recursive); |
57 |
|
|