#!/usr/bin/perl
use strict;
use warnings;

use Digest::MD5 qw(md5 md5_hex md5_base64);
use MIME::Parser;
use MIME::Entity;
use MIME::Body;
use Getopt::Long;

use lib qw(../Core);
use lib qw(../Classes);

use Configuration;
use LocalConfiguration;

use Submission;
use Logger;

my $SCRIPTNAME = 'resubmit_messages_for_submissions.pl';

my $logger = new Logger();

my $input_file = '';
my $directory ='';

my $isparams = GetOptions(
	"file|f=s"         => \$input_file,
	"dir|d=s"         => \$directory
);

#my $INPUT;
#open($INPUT, $input_file);

if(!defined($directory)) {
    die("Directory parameter required!");
}

#temporary added
$directory = "messages_to_resubmit";

my @FILES_LIST = ();
if(open(FILE_list_of_results, "/bin/ls " . $directory. "/* |")) {
            @FILES_LIST = <FILE_list_of_results>;
            close (FILE_list_of_results);
}
    
my $count_results = 0;

# iterate result
foreach my $line (@FILES_LIST) {
	$count_results ++;
	# save original email message to file
	my $test_log = sprintf("%s.log", $SCRIPTNAME);
	my $email_body ='';
	$line =~ /$directory\/(.*)/;
	my $file_name = $1;
	
	my $command = sprintf("./submissions.pl --file=%s ", $line);
	system($command);
	if(open(LOG, sprintf(">> %s", $test_log))) {
		print(LOG $count_results);
		print(LOG " ");
		print(LOG $command);
		print(LOG '\n'); 
		close(LOG);
	}	
}