#!/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::Indat::Otria;
# 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 $impna) {
  print "I don't see your impna\n";
  exit;
}

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

my $o=Ernad::Indat::Otria->new();
$o->update();


__END__;