#!/usr/bin/perl

use lib qw(/home/ernad/ernad/perl /home/ernad/usr/share/perl /home/ernad/lib/perl);
use strict;
use warnings;

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

use Ernad::Args;
use Ernad::Indat::Add;
use Ernad::Common;
use Ernad::Store;
use Ernad::Erimp;

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

if($in_file) {
  my $file=$in_file;
  if(not -f $file) {
    print "I don't see $file.";
    exit;
  }
  my $impna=&Ernad::FileInfo::impna($file,'do_strict');
  $e=Ernad::Erimp->new({'impna'=> $impna, 'verbose'=>3});
  my $i=Ernad::Indat::Add->new();
  $i->clear();
  my $return=$i->file($file);
  if($return) {
    $i->save($file);
  }
}
else {
  if(not $impna) {
    print "I need an impna here.\n";
    exit;
  }
  $e=Ernad::Erimp->new({'impna'=> $impna, 'verbose'=>3});
  my $i=Ernad::Indat::Add->new();
  my $do_save=0;
  my $namf_dir=$e->{'dir'}->{'namf'};
  foreach my $file (`ls $namf_dir/*.amf.xml.gz`) {
    $i->clear();
    chomp $file;
    ## check if we have to save
    $do_save+=$i->file($file);
    if($do_save) {
      $i->save();
    }
  }
}

__END__;