#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use List::Util qw(shuffle);
use Sys::RunAlone;

use Ernad::Erimp;

my $impna = $ARGV[0] // '';
if(not $impna) {
  print "I need an impna\n";
  exit;
}
##
my $issuedate=$ARGV[1] // '';
if(not $issuedate) {
  print "I need an issuedate\n";
  exit;
}


our $e=Ernad::Erimp->new({'impna'=>$impna,
                          'verbose'=>2})
  // die "I don't know about this impna $impna";

#my @repcodes=shuffle $e->get_curpu_repcodes();
#push(@repcodes,shuffle $e->get_curse_repcodes());
my @repcodes=$e->list_repcodes();
foreach my $repcode (@repcodes) {
  ## This is a temporary check to skip the allport
  if(not $e->{'conf'}) {
    die "I need this here.";
  }
  ## this is temporary, as list_repcodes may have the allport
  if($e->{'conf'}->{'allport_repcode'} and $repcode eq $e->{'conf'}->{'allport_repcode'}) {
    next;
  }
  if($e->{'r'}) {
    $e->{'r'}->load($repcode);
  }
  if($e->{'s'}->is_futile($repcode,$issuedate)) {
    print "$repcode is futile\n";
    next;
  }
  else {
    my $dir;
    my $gone;
    $dir=$e->{'report'}->{$repcode}->{'dir'}->{'unsorted'};
    $gone="$dir/*$issuedate*";
    unlink(glob($gone));
    print "gone is $gone\n";
    $dir=$e->{'report'}->{$repcode}->{'dir'}->{'presorted'};
    $gone="$dir/*$issuedate*";
    unlink(glob($gone));
    print "gone is $gone\n";
  }
}

__END__;