#!/usr/bin/perl

use strict;
use warnings;

use Carp qw(confess);
use Data::Dumper;
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, $e);
&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;
}

$e=Ernad::Erimp->new({'impna'=> $impna, 'verbose'=>3});
my $rifs=&Ernad::Play::rifs('closed',$repcode,$issuedate);
foreach my $rif (@$rifs) {
  if($do_cache) {
    my $issuedate=$e->{'f'}->issuedate($rif);
    my $cache_dir=$e->{'report'}->{$repcode}->{'dir'}->{'cache'};
    my $cache_file="$cache_dir/created/$issuedate.html";
    if(-f $cache_file) {
      unlink($cache_file);
    }
  }
  if($rif=~m|\.gz$|) {
    next;
  }
  system("/bin/gzip $rif");
}