#!/usr/bin/perl

use strict;
use warnings;

# use lib qw(/home/ernad/ernad/perl);

use File::Basename;

use Ernad::Erimp;
use Ernad::Rss;
use Ernad::ReportState;

my $impna=$ARGV[0] // '';
if(not $impna) {
  die "no impna";
}
our $e=Ernad::Erimp->new({'impna'=>$impna});

my $repcode=$ARGV[1] // '';

if(not $repcode) {
  my @reports=$e->list_repcodes();
  foreach my $repcode (@reports) {
    print $repcode;
    ## 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($repcode eq $e->{'conf'}->{'allport_repcode'}) {
      next;
    }
    &make_rss_for_report($repcode);
  }
}
else {
  &make_rss_for_report($repcode);
}

sub make_rss_for_report {
  my $repcode=shift;
  my $reports_dir=$e->{'dir'}->{'reports'};
  my $path_dir=$reports_dir.'/'.$repcode;
  if(not -d $path_dir) {
    die "no such directory: '$path_dir'";
  }
  my $state='sent';
  my $last=(`ls -t $path_dir/$state/*.amf.xml | head -1`);
  chomp $last;
  $last=basename($last);

  ## create report state
  my $rs= bless( {
                  'path' => "$path_dir/",
                  'file' => $last,
                  'stage' => $state,
                  'e' => $e,
                  'repcode' => $repcode
                 }, 'Ernad::ReportState' );

  my $out= Ernad::Rss::make_rss($rs);
}