--- trunk/run.pl 2007/12/23 22:06:08 1084 +++ trunk/run.pl 2008/08/02 15:11:06 1098 @@ -349,6 +349,23 @@ $log->info("database $database doesn't have inputs defined"); } ); + if ( -e 'out/debug' ) { # fixme flag? + my $out; + foreach my $i ( @inputs ) { + warn dump( $i ); + next unless defined $i->{normalize}; + warn dump( $i->{normalize} ); + foreach my $normalize ( @{ $i->{normalize} } ) { + my $path = $normalize->{path}; + $out .= qq/\n##\n## $path\n##\n\n/; + $out .= read_file( $path ); + } + } + my $all = "out/debug/all-normalize.pl"; + write_file( $all, $out ); + warn "### all normalize for this input saved to: $all"; + }; + foreach my $input (@inputs) { my $input_name = $input->{name} || $log->logdie("input without a name isn't valid: ",dump($input));