#!/usr/bin/perl

use strict;
use warnings;

use Getopt::Std;

use Ernad::Args;
#use Ernad::Play;
use Ernad::Erimp;

#my %o;
#&Getopt::Std::getopts('c', \%o);
#our $do_cache = $o{'c'} // 0;

our ($in_file, $impna, $repcode, $issuedate);
&Ernad::Args::parse();
if(not $impna) {
  print "I don't have a impna.\n";
  exit;
}
if(not $repcode) {
  print "I don't have a repcode.\n";
  exit;
}

our $e=Ernad::Erimp->new({'impna' => $impna,
                         'verbose' => 10});
if($e->{'r'}) {
  $e->{'r'}->load($repcode);
}
my $last_issuedate=$issuedate;
if(not $issuedate) {
  $e->echo(__LINE__,"I find the last issuedate");
  $last_issuedate=$e->{'p'}->last_worked_on_issuedate($repcode);
  $e->echo(__LINE__,"It is $last_issuedate.");
}
elsif(not $issuedate=~m|^\d{4}-\d{2}-\d{2}$|) {
  print "I don't like your issuedate $issuedate\n";
  exit;
}
$e->clear_work($repcode,$last_issuedate);

print "FixMe: I have not cleared the vadoc!\n";

exit;