#!/usr/bin/perl

use strict;
use warnings;

use Carp qw(confess);
use Data::Dumper;
use Getopt::Std;

use Ernad::Indat::Issue;
use Ernad::Indat::Sborn;
use Ernad::Pages;
use Ernad::Erimp;

our $e;

my %o;
&Getopt::Std::getopts('c', \%o);
my $do_compile = $o{'c'} // 0;

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

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

my $i=Ernad::Indat::Issue->new();
$i->compile_all('do_random');


my $ii=Ernad::Indat::Issue->new();
$ii->sborn('complete');
$ii->sborn('in_labor');

foreach my $what ('in_labor','complete') {
  my $s=Ernad::Indat::Sborn->new();
  $s->show($what);
}

exit;


my $is=Ernad::Indat::Sborn->new();
$is->show('in_labor');

#exit;

exit;
#my $i=Ernad::Indat::Issue->new();
#$i->sborn('in_labor','2018-06-03');


#exit;

my $issuedate=$ARGV[1];
# // confess "I only work on an issue right now";
if($do_compile) {
  my $i=Ernad::Indat::Issue->new();
  if($issuedate) {
    $i->compile($issuedate);
  }
  else {
    $i->compile_all('do_random');
  }
  exit;
}

#my $i=Ernad::Indat::Issue->new();
#$i->load('2018-06-03');
#$i->delay('snore','class','created');
#$i->delay('labor','created','sent');
#print Dumper $i->{'d'}->{'about'};
###
#exit;
###

#my $issuedate=$ARGV[1] // confess "I only work on an issue right now";
#my $i=Ernad::Indat::Issue->new({'issuedate'=>$issuedate});
#my $i=Ernad::Indat->new();
#$i->extract_issues();


__END__;