#!/usr/bin/perl

use strict;
use warnings;

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

use Ernad::Export;
use Krichel::File;

my %options;
&getopts('o', \%options);
my $do_overwrite=$options{'o'} // 0;

my $rif=$ARGV[0];
if(not $rif) {
  confess "I need a rif here.";
}
if(not -f $rif) {
  confess "I can't open the rif $rif.";
}

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

#&Ernad::Discover::parse($rif,$Ernad::Constant::c->{'sent_dir'});
my $rix=Krichel::File::load($rif);
&Ernad::Export::public_amf_from_rix($rif,$rix,$repcode,$issuedate,$e);