| 349 |
$log->info("database $database doesn't have inputs defined"); |
$log->info("database $database doesn't have inputs defined"); |
| 350 |
} ); |
} ); |
| 351 |
|
|
| 352 |
|
if ( -e 'out/debug' ) { # fixme flag? |
| 353 |
|
my $out; |
| 354 |
|
foreach my $i ( @inputs ) { |
| 355 |
|
warn dump( $i ); |
| 356 |
|
next unless defined $i->{normalize}; |
| 357 |
|
warn dump( $i->{normalize} ); |
| 358 |
|
foreach my $normalize ( @{ $i->{normalize} } ) { |
| 359 |
|
my $path = $normalize->{path}; |
| 360 |
|
$out .= qq/\n##\n## $path\n##\n\n/; |
| 361 |
|
$out .= read_file( $path ); |
| 362 |
|
} |
| 363 |
|
} |
| 364 |
|
my $all = "out/debug/all-normalize.pl"; |
| 365 |
|
write_file( $all, $out ); |
| 366 |
|
warn "### all normalize for this input saved to: $all"; |
| 367 |
|
}; |
| 368 |
|
|
| 369 |
foreach my $input (@inputs) { |
foreach my $input (@inputs) { |
| 370 |
|
|
| 371 |
my $input_name = $input->{name} || $log->logdie("input without a name isn't valid: ",dump($input)); |
my $input_name = $input->{name} || $log->logdie("input without a name isn't valid: ",dump($input)); |
Parent Directory
| 
Revision Log
| 
Patch