#!/usr/bin/perl

use strict;
use warnings;

use Carp qw(confess);
use Data::Dumper;
use File::Path;
use Getopt::Std;
use POSIX qw(ceil);
use XML::LibXML;

use Ernad::Erimp;
#use Ernad::Common;
use Ernad::Dates;
#use Ernad::Sort;
#use Ernad::Generate;
use Ernad::Yanabino;

binmode(STDOUT,":utf8");


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

our $e=Ernad::Erimp->new({'impna'=>$impna});

my $new_date=$ARGV[1] // confess "I need a new date as an argument.";
my $old_date=$ARGV[2] // confess "I need an old date as an argument.";

my $piles_dir=$e->{'dir'}->{'pile'} // die "I don't see the pile_dir.";

my $new_dir="$piles_dir/$new_date";
if(not -d $new_dir) {
  confess "I don't see your new_dir $new_dir";
}

my $old_dir="$piles_dir/$old_date";
if(not -d $old_dir) {
  confess "I don't see your old_dir $old_dir";
}

if(not &Ernad::Dates::diff_dates($old_date,$new_date) > 0) {
  print "You have to give me the new date first.\n";
  exit;
}

my $add_dir="$piles_dir/new";

foreach my $add_bana (`ls $add_dir`) {
  chomp $add_bana;
  if(&Ernad::Dates::diff_dates($old_date,$add_bana) > 0) {
    # print "$add_bana\n";
  }
}

print "This script serves no purpose. Just move $new_dir out of the way.\n";


exit;