#!/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::Class;

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

my @repcodes_to_do;
if($repcode) {
  push(@repcodes_to_do, $repcode);
}
else {
  @repcodes_to_do=@{$e->{'r'}->list()};
}

my $do_for_real=1;

my $t=Ernad::Presort::Class->new({'e'=>$e});
foreach my $repcode (@repcodes_to_do) {
  $t->clear_files($repcode,$do_for_real);
}



__END__;