#!/usr/bin/perl

use strict;
use warnings;

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

use Ernad::Args;
use Ernad::Erimp;
use Ernad::Presort::Predi;

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

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

## fixme:: unclear why this is [1]
my $papid=$ARGV[1] // '';

if(not $repcode) {
  print "I don't see your repcode.\n";
  exit;
}
if(not $issuedate) {
  print "I don't see your issuedate.\n";
  exit;
}
my $p=Ernad::Presort::Predi->new({'e'=>$e});

$p->type($papid);

exit;

__END__;