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)); |