#!/usr/bin/perl 

use strict;
use warnings;

###########################################################
#
# The script uploads tasks for evaluation mvsm_serv for 
# server-groups and send report about results to administrator 
# after one day of evaluation.
# The script should be set in crontab just after the targets 
# are closed. 
#
###########################################################

use lib qw(Core Classes);
use TargetsManager;
use LocalConfiguration;
use PredictionsManager;
use GroupsManager;
use Email;

use TarballsForQAManager;


my $manager = new TarballsForQAManager();
#FOR DEBUGGING
#my @targets = $manager->get_targets_check_evaluation();
#my @targets = $manager->get_targets_for_evaluation();
#foreach my $target(@targets){
#print $target->{NAME}."\n";
#}
#$manager->check_evaluation();

#$manager->send_for_evaluation();

#exit;
# END FOR DEBUGGING

#--------------------------------------
# send tasks for evaluations
#--------------------------------------
$manager->send_for_evaluation();


#--------------------------------------
# check results of evaluation 
#--------------------------------------

my $loop = 0;
while(0 == $manager->check_evaluation() && $loop < 3){
  $loop++;
  sleep(10800); # sleep 3 hours and check once again
}