326 |
delete($input->{modify_file}); |
delete($input->{modify_file}); |
327 |
} |
} |
328 |
|
|
329 |
warn "depends on: ", dump( $parser->depends($database, $input->{name}), $parser->{depends}, $parser->lookup_create_rules($database, $input->{name}), $parser->{_lookup_create} ); |
warn "parser->depends = ", dump( $parser->{depends} ); |
330 |
|
warn "depends on: ", dump( $parser->depends($database, $input->{name}) ); |
331 |
|
warn "lookup_create_rules = ", dump( $parser->lookup_create_rules($database, $input->{name}) ); |
332 |
|
warn "parser->_lookup_create = ", dump( $parser->{_lookup_create} ); |
333 |
|
|
334 |
my $lookup; |
my $lookup; |
335 |
|
|
349 |
); |
); |
350 |
$log->logdie("can't create input using $input_module") unless ($input); |
$log->logdie("can't create input using $input_module") unless ($input); |
351 |
|
|
352 |
|
if (defined( $input->{lookup} )) { |
353 |
|
$log->warn("$database/", $input->{name}, " has depriciated lookup definition, removing it..."); |
354 |
|
delete( $input->{lookup} ); |
355 |
|
} |
356 |
|
|
357 |
my $maxmfn = $input_db->open( |
my $maxmfn = $input_db->open( |
358 |
path => $input->{path}, |
path => $input->{path}, |
359 |
code_page => $input->{encoding}, # database encoding |
code_page => $input->{encoding}, # database encoding |