#!/usr/bin/perl

use strict;
use warnings;

use Carp qw(confess);
use Data::Dumper;
use Getopt::Std;
use Ernad::Args;
use Ernad::Erimp;
# use Ernad::FileInfo;
use Ernad::Play;

my %o;
&Getopt::Std::getopts('s:dm:', \%o);

## set some maximum files to do
my $do_max=$o{'m'} // 0;

my $do_sleep=$o{'s'} // 10;

my $do_delete=$o{'d'};

our ($impna, $e, $repcode, $in_file);
&Ernad::Args::parse();

if(not $do_delete) {
  print "I don't see your -d, I will not delete.\n";
}


if(not $impna) {
  print "I don't see your impna\n";
  exit;
}

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

if($do_delete) {
  my $indat_dir=$e->{'dir'}->{'indat'};
  system("rm $indat_dir/*");
  system("rm $indat_dir/issues/*");
  system("rm $indat_dir/issues/complete/*");
  system("find $indat_dir/vypot/ -type f -delete");
}

my $sents=&Ernad::Play::sent_by_shoti('file');

my $count_files=0;
my $err_file="/tmp/replay_indat.err";
foreach my $file (@$sents) {
  my $s="vypot_indat $file";
  system("$s 2> $err_file");
  if(-s $err_file) {
    print "Look at the $err_file for\n'$s'\n";
    exit;
  }
  $count_files++;
  if($do_max and $count_files >= $do_max) {
    exit;
  }
  print "I ran '$s'\n";
  print "I sleep $do_sleep.\n";
  sleep $do_sleep;
}

__END__;