#!/usr/bin/perl

use strict;
use warnings;

use Ernad::Common;
use Ernad::Erimp;
use Ernad::Notify;



our ($impna, $e, $repcode, $in_file);
my $in_file=$ARGV[0];
if(not $in_file) {
  print "I need a rif here.\n";
  exit;
}
if(not -f $in_file) {
  print "I can't open the rif $in_file\n";
  exit;
}

our ($impna, $e, $repcode, $in_file);
&Ernad::Args::parse();
our $e=Ernad::Erimp->new({'impna'=> $impna, 'verbose'=>3});

#my $ps_rif = $ARGV[0];
#if(not $ps_rif) {
#  print "You didn't give me a rif\n";
#  exit;
#}
#if(not $ps_rif) {
#  print "I don't see your rif $ps_rif\n";
#  exit;
#}

#my $impna=&Ernad::Common::find_impna_from_file($ps_rif);
#our $e=Ernad::Erimp->new({'impna'=> $impna, 'verbose'=>3});

&Ernad::Notify::notify($e,$in_file);