#!/usr/bin/perl

use strict;
use warnings;

use Ernad::Common;
use Ernad::Erimp;
use Ernad::Dates;

my $verbose=1;
if(not $verbose) {
  $verbose=0;
}

my $impna=$ARGV[0] // '';
if(not $impna) {
  print "I need an impna to continue.\n";
  exit;
}

my $days_back=$ARGV[1] // 365;

my $today=&Ernad::Dates::today();

my $e=Ernad::Erimp->new({'impna'=>$impna}) // '';
if(not $e) {
  print "I don't know about the impna '$impna'\n";
  exit;
}

my $allport=$e->get_allport_repcode() // '';
if(not $allport) {
  print "Fixme. I can't deal with erimps without allport\n";
}

my $rerc=$e->{'report'}->{$allport};
#my $dir= $rerc->{'dir'}->{'unsorted'};
my $dir= $rerc->{'dir'}->{'sent'};

my $handles;
foreach my $file (`ls $dir`) {
  chomp $file;
  my $fufi="$dir/$file";
  my $issuedate=$e->{'f'}->issuedate($file) or next;
  my $ago=&Ernad::Dates::diff_dates($issuedate,$today);
  if($ago>$days_back) {
    next;
  }
  my $handles_lines=$e->{'t'}->t($fufi,'show_handles','chars');
  foreach my $handle (split(/\n/,$handles_lines)) {
    $handles->{$handle}=1;
  }
}

my $count_papers=scalar keys %$handles;
my $average=int(7*$count_papers/$days_back);

print "$average\n";