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

use Digest::MD5 qw(md5 md5_hex md5_base64);
use Getopt::Long;

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

use Configuration;
use LocalConfiguration;
use GroupsManager;
use Submission;
use Logger;
use Email;

my $SCRIPTNAME = 'resubmission.pl';

my $logger = new Logger();

my $input_file = '';
my $skip = '';
my $sender_email = '';
my $uid = '';

my $isparams = GetOptions(
	"file|f=s"         => \$input_file,
	"sender|sender=s" => \$sender_email,
	"uid|uid=s" => \$uid,
	"skip|skiped=s" => \$skip
);

### SUBMISSION.PM verifies if the prediction is in the proper 

		$logger->info($SCRIPTNAME, sprintf("Prediction before resubmission! uid: %s, File: %s", $uid, $input_file));
		my $submission = new Submission($sender_email, $input_file, 'webform', 0, $uid, "target_validation");
		$logger->info($SCRIPTNAME, sprintf("Prediction before processing! Email: %s, File: %s", $sender_email, $input_file));
		my $result = $submission->process();

if($result) {
	$logger->info($SCRIPTNAME, sprintf("Prediction was resubmitted successfully! Email: %s, File: %s", $sender_email, $input_file));
	#$submission->notification_success("Submission ACCEPTED");
} else {
	$logger->warning($SCRIPTNAME, sprintf("Prediction resubmittion failed! Email: %s, File: %s", $sender_email, $input_file));
}