#!/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 Sys::RunAlone;
use Getopt::Std;

use Ernad::Args;
use Ernad::Presort::Ranfi;
use Ernad::Presort::Dates;
use Ernad::Presort;

#my %options;
#&getopts('utfx:r:nv:', \%options);

#my $do_only_unsorted=$options{'u'} // '';

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

$e=Ernad::Erimp->new({'impna'=> $impna, 'verbose'=>3});

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

## ranfis
my $r=Ernad::Presort::Ranfi->new({'e'=>$e});
$r->update_for_report($e->get_allport_repcode());



__END__;