/[webpac2]/trunk/run.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/run.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 698 by dpavlin, Mon Sep 25 11:14:53 2006 UTC revision 706 by dpavlin, Mon Sep 25 14:06:49 2006 UTC
# Line 8  use lib './lib'; Line 8  use lib './lib';
8    
9  use WebPAC::Common 0.02;  use WebPAC::Common 0.02;
10  use WebPAC::Parser 0.04;  use WebPAC::Parser 0.04;
 use WebPAC::Lookup 0.03;  
11  use WebPAC::Input 0.11;  use WebPAC::Input 0.11;
12  use WebPAC::Store 0.03;  use WebPAC::Store 0.03;
13  use WebPAC::Normalize 0.11;  use WebPAC::Normalize 0.11;
# Line 316  while (my ($database, $db_config) = each Line 315  while (my ($database, $db_config) = each
315    
316                  my $input_module = $config->webpac('inputs')->{$type};                  my $input_module = $config->webpac('inputs')->{$type};
317    
318                    my @lookups = $parser->have_lookup_create($database, $input);
319    
320                  $log->info("working on input '$input->{name}' in $input->{path} [type: $input->{type}] using $input_module",                  $log->info("working on input '$input->{name}' in $input->{path} [type: $input->{type}] using $input_module",
321                          $input->{lookup} ? "lookup '$input->{lookup}'" : ""                          @lookups ? "lookup ".join(", ", @lookups) : ""
322                  );                  );
323    
324    warn "lookups = ", dump( @lookups );
325    
326                  if ($stats) {                  if ($stats) {
327                          # disable modification of records if --stats is in use                          # disable modification of records if --stats is in use
328                          delete($input->{modify_records});                          delete($input->{modify_records});
329                          delete($input->{modify_file});                          delete($input->{modify_file});
330                  }                  }
331    
332                  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} );
333                    warn "depends on: ", dump( $parser->depends($database, $input->{name}) );
334                    warn "lookup_create_rules = ", dump( $parser->lookup_create_rules($database, $input->{name}) );
335                    warn "parser->_lookup_create = ", dump( $parser->{_lookup_create} );
336    
337                  my $lookup;                  my $lookup;
338    
# Line 346  while (my ($database, $db_config) = each Line 352  while (my ($database, $db_config) = each
352                  );                  );
353                  $log->logdie("can't create input using $input_module") unless ($input);                  $log->logdie("can't create input using $input_module") unless ($input);
354    
355                    if (defined( $input->{lookup} )) {
356                            $log->warn("$database/", $input->{name}, " has depriciated lookup definition, removing it...");
357                            delete( $input->{lookup} );
358                    }
359    
360                  my $maxmfn = $input_db->open(                  my $maxmfn = $input_db->open(
361                          path => $input->{path},                          path => $input->{path},
362                          code_page => $input->{encoding},        # database encoding                          code_page => $input->{encoding},        # database encoding
Legend:
Removed from v.698  
changed lines
  Added in v.706
  ViewVC Help
Powered by ViewVC 1.1.26