#!/usr/bin/perl

## make sure we can run this from bims via sudo
use lib qw(/home/ernad/ernad/perl /home/ernad/usr/share/perl /home/ernad/lib/perl);

use strict;
use warnings;

use Carp qw(cluck longmess shortmess croak confess);
use Data::Dumper;
use Getopt::Std;

use Ernad::Args;
#use Ernad::Indat::Report;
use Ernad::Common;
use Ernad::Store;
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});

my $i=Ernad::Indat::Report->new();

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

if($do_delete) {
  $i->remove($repcode);
  exit;
}

if($do_add) {
  $i->add($repcode);
  exit;
}


__END__;