#!/usr/bin/perl

use strict;
use warnings;

use Carp qw(confess);
use Data::Dumper;
use Getopt::Std;

use Ernad::Args;
use Ernad::Erimp;

our ($impna, $e, $repcode, $in_file, $issuedate);
&Ernad::Args::parse();
$e=Ernad::Erimp->new({'impna'=> $impna, 'verbose'=>3});

my $reports_dir=$e->{'dir'}->{'reports'};

foreach my $file (`find $reports_dir`) {
  chomp $file;
  my $repcode=$e->{'f'}->repcode($file) // next;
  if(not $e->{'r'}->is_it_enabled($repcode)) {
    next;
  }
  my $rerc=$e->{'report'}->{$repcode} // $e->{'r'}->setup($repcode)
    // confess "I can't get to $repcode.";
  my $issuedate=$e->{'f'}->issuedate($file) // next;
  if($e->{'s'}->is_futile($repcode, $issuedate)) {
    next;
  }
  if(not $file=~m|/source/|) {
    next;
  }
  print "file: $file\n";
}




__END__;