--- trunk/run.pl 2005/12/05 17:48:23 221 +++ trunk/run.pl 2005/12/06 16:40:18 233 @@ -28,29 +28,20 @@ while (my ($database, $db_config) = each %{ $config->{databases} }) { - my $type = lc($db_config->{input}->{type}); - - die "I know only how to handle input type isis, not '$type'!\n" unless ($type eq 'isis'); - my $abs_path = abs_path($0); $abs_path =~ s#/[^/]*$#/#; - my $lookup = new WebPAC::Lookup( - lookup_file => $db_config->{input}->{lookup}, - ); - my $db_path = $config->{webpac}->{db_path} . '/' . $database; - - my $log = $lookup->_get_logger; - $log->info("working on $database in $db_path"); - my $db = new WebPAC::Store( path => $db_path, database => $database, debug => 1, ); + my $log = $db->_get_logger; + $log->info("working on $database in $db_path"); + my $est_config = $config->{hyperestraier} || $log->logdie("can't find 'hyperestraier' part in confguration"); $est_config->{database} = $database; @@ -72,6 +63,15 @@ } foreach my $input (@inputs) { + + my $type = lc($input->{type}); + + die "I know only how to handle input type isis, not '$type'!\n" unless ($type eq 'isis'); + + my $lookup = new WebPAC::Lookup( + lookup_file => $input->{lookup}, + ); + $log->info("working on input $input->{path} [$input->{type}]"); my $isis = new WebPAC::Input::ISIS(