9 |
use WebPAC::Common 0.02; |
use WebPAC::Common 0.02; |
10 |
use WebPAC::Parser 0.04; |
use WebPAC::Parser 0.04; |
11 |
use WebPAC::Input 0.13; |
use WebPAC::Input 0.13; |
12 |
use WebPAC::Store 0.10; |
use WebPAC::Store 0.11; |
13 |
use WebPAC::Normalize 0.11; |
use WebPAC::Normalize 0.11; |
14 |
use WebPAC::Output::TT; |
use WebPAC::Output::TT; |
15 |
use WebPAC::Validate 0.06; |
use WebPAC::Validate 0.06; |
285 |
my $abs_path = abs_path($0); |
my $abs_path = abs_path($0); |
286 |
$abs_path =~ s#/[^/]*$#/#; |
$abs_path =~ s#/[^/]*$#/#; |
287 |
|
|
288 |
my $db_path = $config->get('webpac')->{db_path} . '/' . $database; |
my $db_path = $config->webpac('db_path'); |
289 |
|
|
290 |
if ($clean) { |
if ($clean) { |
291 |
$log->info("creating new database '$database' in $db_path"); |
$log->info("creating new database '$database' in $db_path"); |
296 |
|
|
297 |
my $store = new WebPAC::Store( |
my $store = new WebPAC::Store( |
298 |
path => $db_path, |
path => $db_path, |
|
database => $database, |
|
299 |
debug => $debug, |
debug => $debug, |
300 |
); |
); |
301 |
|
|
394 |
$log->debug("created following lookups: ", dump( $lookup_data )); |
$log->debug("created following lookups: ", dump( $lookup_data )); |
395 |
|
|
396 |
foreach my $key (keys %{ $lookup_data->{$database}->{$input_name} }) { |
foreach my $key (keys %{ $lookup_data->{$database}->{$input_name} }) { |
397 |
$store->save_lookup( $database, $input_name, $key, $lookup_data->{$database}->{$input_name}->{$key} ); |
$store->save_lookup( |
398 |
|
database => $database, |
399 |
|
input => $input_name, |
400 |
|
key => $key, |
401 |
|
data => $lookup_data->{$database}->{$input_name}->{$key}, |
402 |
|
); |
403 |
} |
} |
404 |
} |
} |
405 |
|
|
476 |
); |
); |
477 |
|
|
478 |
$store->save_ds( |
$store->save_ds( |
479 |
|
database => $database, |
480 |
|
input => $input_name, |
481 |
id => $mfn, |
id => $mfn, |
482 |
ds => $ds, |
ds => $ds, |
|
prefix => $input_name, |
|
483 |
) if ($ds && !$stats); |
) if ($ds && !$stats); |
484 |
|
|
485 |
$indexer->add( |
$indexer->add( |