#!/usr/bin/perl

use strict;
use warnings;

use Carp qw(cluck longmess shortmess croak confess);
use Getopt::Std;
use Data::Dumper;

use Ernad::Common;
use Ernad::Constant;
use Ernad::Rss;
use Ernad::Email;
use Ernad::Erimp;
use Krichel::File;

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

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;
}
my $sent=$Ernad::Constant::c->{'sent_dir'};
if(not $in_file=~m|/$sent/|) {
  print "Your rif $in_file is not a sent file.";
  exit;
}

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

my $rerc=$e->{'report'}->{$repcode};
#my $issuedate=&Ernad::Common::find_issuedate_from_file($rif);
my $issuedate=$e->{'f'}->issuedate($rif);
my $mailvault_dir=$e->{'conf'}->{'mailvault_dir'} or die;
my $save_email=$e->{'dir'}->{'web'}.'/'.$mailvault_dir.'/'.$repcode.'/'.$issuedate;
my $mail_file="$save_email.mail";
if (-f $mail_file and not $do_over) {
  $e->echo(__LINE__,"I found the mail_file $mail_file. I will not remail.");
  exit;
}
## let's check if we have a from address
my $editor_email=$rerc->{'editor_email'} or die "no editor email";
my $rix= &Krichel::File::load($rif);
my $email_file=Ernad::Email::prepare_email($rix,'issue',$save_email);
&Ernad::Email::send_email($email_file);