#!/usr/bin/perl

use strict;
use warnings;

use Getopt::Std;

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

#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;
}

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

my $issue_doc=Ernad::IssueState::state_summary_doc($repcode,$e);

print $issue_doc;