/[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 956 by dpavlin, Fri Nov 2 10:54:42 2007 UTC revision 969 by dpavlin, Fri Nov 2 14:28:43 2007 UTC
# Line 133  GetOptions( Line 133  GetOptions(
133          "clean" => \$clean,          "clean" => \$clean,
134          "one=s" => \$only_filter,          "one=s" => \$only_filter,
135          "only=s" => \$only_filter,          "only=s" => \$only_filter,
136          "config" => \$config_path,          "config=s" => \$config_path,
137          "debug+" => \$debug,          "debug+" => \$debug,
138          "stats" => \$stats,          "stats" => \$stats,
139          "validate=s" => \$validate_path,          "validate=s" => \$validate_path,
# Line 311  foreach my $database ( sort keys %{ $con Line 311  foreach my $database ( sort keys %{ $con
311    
312          foreach my $output ( @outputs ) {          foreach my $output ( @outputs ) {
313    
314  warn '## output = ',dump( $output );  #warn '## output = ',dump( $output );
315    
316                  my $module = $output->{module} || $log->logdie("need module in output section of $database");                  my $module = $output->{module} || $log->logdie("need module in output section of $database");
317                  $module = 'WebPAC::Output::' . $module unless $module =~ m/::/;                  $module = 'WebPAC::Output::' . $module unless $module =~ m/::/;
# Line 347  warn '## output = ',dump( $output ); Line 347  warn '## output = ',dump( $output );
347    
348                  my $type = lc($input->{type});                  my $type = lc($input->{type});
349    
350                  die "I know only how to handle input types ", join(",", $config->webpac('inputs') ), " not '$type'!\n" unless (grep(/$type/, $config->webpac('inputs')));                  # FIXME check if input module exists
351                    my $input_module = $input->{module};
352    
353                  my $input_module = $config->webpac('inputs')->{$type};                  if ( ! $input_module ) {
354                            if ( grep(/$type/, $config->webpac('inputs')) ) {
355                                    $input_module = $config->webpac('inputs')->{$type};
356                            } else {
357                                    $log->logdie("I know only how to handle input types ", join(",", $config->webpac('inputs') ), " not '$type'!" );
358                            }
359                    }
360    
361                  my @lookups = $parser->have_lookup_create($database, $input);                  my @lookups = $parser->have_lookup_create($database, $input);
362    
Legend:
Removed from v.956  
changed lines
  Added in v.969
  ViewVC Help
Powered by ViewVC 1.1.26