13 |
use WebPAC::Store 0.03; |
use WebPAC::Store 0.03; |
14 |
use WebPAC::Normalize::XML; |
use WebPAC::Normalize::XML; |
15 |
use WebPAC::Output::TT; |
use WebPAC::Output::TT; |
16 |
use WebPAC::Output::Estraier 0.05; |
use WebPAC::Output::Estraier 0.08; |
17 |
use YAML qw/LoadFile/; |
use YAML qw/LoadFile/; |
18 |
use Getopt::Long; |
use Getopt::Long; |
19 |
use File::Path; |
use File::Path; |
81 |
|
|
82 |
my $est_config = $config->{hyperestraier} || $log->logdie("can't find 'hyperestraier' part in confguration"); |
my $est_config = $config->{hyperestraier} || $log->logdie("can't find 'hyperestraier' part in confguration"); |
83 |
$est_config->{database} = $database; |
$est_config->{database} = $database; |
84 |
|
$est_config->{clean} = $clean; |
85 |
|
|
86 |
my $est = new WebPAC::Output::Estraier( |
my $est = new WebPAC::Output::Estraier( %{ $est_config } ); |
|
%{ $est_config }, |
|
|
); |
|
|
|
|
|
if ($clean) { |
|
|
$log->warn("creating new empty index $database"); |
|
|
$est->master( action => 'nodedel', name => $database ); |
|
|
$est->master( action => 'nodeadd', name => $database, label => $database ); |
|
|
} |
|
87 |
|
|
88 |
# |
# |
89 |
# now WebPAC::Store |
# now WebPAC::Store |