#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use Ernad::Erimp;
use Krichel::File;

my $date_base_file;
my $date_base;

my $dbf_1=$ARGV[0] // '';
##  first argument
if(not -f $dbf_1) {
  print "I need a file as the first argument\n";
  exit;
}
my $dbf_2=$ARGV[1] // '';
if(not -f $dbf_2) {
  print "I need a file as the second argument\n";
}

$dbf_1=~m/(\d{4}-\d{2}-\d{2})/;
my $d_1=$1;
$dbf_1=~m/(\d{4}-\d{2}-\d{2})/;
my $d_2=$1;

my $db_1= Krichel::File::load( $dbf_1 );
my $db_2= Krichel::File::load( $dbf_2 );

my @p_1=keys %$db_1;
my @p_2=keys %$db_2;

my $n_1=scalar @p_1;
my $n_2=scalar @p_2;

if($n_1 > $n_2) {
  print "file of date $d_1 has $n_1 papers. file of date $d_2 has $n_2\n";
  exit;
}

my @added;
foreach my $h (@p_2) {
  if($db_1->{$h}) {
    next;
  }
  push(@added,$h);
}

## exit;
use List::Util qw(shuffle);

open(O,"> /tmp/missing");
foreach my $h (shuffle @added) {
  my $s="grep $h ~/ernad/var/nep/reports/nep-all/source/us/*.amf.xml > /dev/null";
  my $out=system($s); # or next;
  #print "$out\n";
  if(not $out) {
    next;
  }
  print O "$h\n";
}
close O;



exit;