#!/usr/bin/perl

use strict;
use warnings;

use Carp qw(confess);

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

our ($impna, $e, $repcode, $in_file, $issuedate);
&Ernad::Args::parse();
if(not $impna) {
  print "I need an impna\n";
  exit;
}
if(not $issuedate) {
  $issuedate=&Ernad::Dates::today();
}

$e=Ernad::Erimp->new({'impna'=> $impna, 'verbose'=>3});

if($e->{'testing'}) {
  print "You should not run me on your testing machine.\n";
  exit;
}

foreach my $repcode (@{$e->{'r'}->list()}) {
  $e->{'r'}->setup($repcode);
  my $rerc=$e->{'report'}->{$repcode};
  my $ps_dir=$rerc->{'dir'}->{'presorted'};
  my $glob="$ps_dir/$issuedate".'_*';
  my @files=glob($glob);
  if(scalar @files) {
    next;
  }
  print "I don't have a $issuedate issue for $repcode.\n";
}


__END__;