#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use Ernad::Erimp;

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

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

if(not $issuedate=~m|^\d{4}-\d{2}-\d{2}$|) {
  print "I can't deal with your date $issuedate.\n";
  exit;
}

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

my $rerc=$e->{'report'}->{$repcode} // '';
if(not $rerc) {
  print "I have no clue about the report $repcode.\n";
  exit;
}

my $path=$rerc->{'path'};
my $s="find $path -name '$issuedate*' -delete";
print "$s\n";
system($s);

my $webvault_dir=$e->{'dir'}->{'web'}.'/'.$e->{'conf'}->{'mailvault_dir'} // '';
if(-d $webvault_dir) {
  my $s="rm $webvault_dir/$issuedate*";
  print "$s\n";
  system($s);
}

my $r="release $impna $repcode";
system($r);

exit;