/[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 924 by dpavlin, Wed Oct 31 00:26:45 2007 UTC revision 936 by dpavlin, Wed Oct 31 12:14:03 2007 UTC
# Line 318  warn '## output = ',dump( $output ); Line 318  warn '## output = ',dump( $output );
318                    
319                  $log->debug("loading output module $module");                  $log->debug("loading output module $module");
320                  eval "require $module";                  eval "require $module";
321            
322                    # add database to arugemnts for output filter
323                  $output->{database} = $database;                  $output->{database} = $database;
324    
325                  $log->debug("calling $module->new(",dump( $output ),")");                  $log->debug("calling $module->new(",dump( $output ),")");
# Line 508  warn '## output = ',dump( $output ); Line 509  warn '## output = ',dump( $output );
509                  }                  }
510    
511    
512                    # setup input name for all output filters
513                    foreach my $out ( @output_modules ) {
514                            if ( $out->can('input') ) {
515                                    $out->input( $input_name );
516                            } else {
517                                    $log->warn("output filter $out doesn't support input name");
518                            }
519                    }
520    
521    
522                  foreach my $pos ( 0 ... $input_db->size ) {                  foreach my $pos ( 0 ... $input_db->size ) {
523    
524                          my $row = $input_db->fetch || next;                          my $row = $input_db->fetch || next;
Legend:
Removed from v.924  
changed lines
  Added in v.936
  ViewVC Help
Powered by ViewVC 1.1.26