#!/usr/bin/perl

use strict;
use warnings;

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

use Ernad::Args;
use Ernad::Erimp;

#my %o;
#&Getopt::Std::getopts('adb', \%o);
#my $do_add = $o{'a'} // 0;
#my $do_delete = $o{'d'} // 0;
##my $do_build = $o{'b'} // 0;

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

$e=Ernad::Erimp->new({'impna'=> $impna, 'verbose'=>3});
if(not $repcode) {
  print "I don't see your recode\n";
  exit;
}

my $out=$e->{'r'}->enable($repcode);

## when we don't have seeds, we don't do what follows
if($e->{'conf'}->{'no_seeds'}) {
  exit;
}

## FixMe. This should be done with a call to the seeds module
my $sidconf_dir=$e->{'dir'}->{'etc'}.'/'.$e->{'const'}->{'seed_dir'};
my $sid_infile=$sidconf_dir."/$repcode.txt";
if(not -f $sid_infile) {
  print "HELP! I have no seeds configuration $sid_infile.\n";
}

__END__;