#!/usr/bin/perl -w

use strict;
use warnings;

###########################################################
#
# Script upload tasks for evaluation system (to db evaluations)
# of mvsm preddictions of all servers 
#
###########################################################



use lib qw(Core);
use lib qw(Classes);
 
use Exporter;
use LocalConfiguration;
use TargetsManager;


my $SCRIPTNAME = 'upload_tasks_mvsm_serv.pl';

my $targets_manager = new TargetsManager();

my $target;

if(defined($ARGV[0]) and $ARGV[0] =~ m/T[0-9]{4}/){
  $target = $ARGV[0];
}else{
  print "The first argument should be valid regular target's name\n";
  exit;
}

my $pred_dir = sprintf("%s/%s", $LOCAL_CONFIG->{DATA_SERV_MODELS_DIR} ,$target);
if(!-d $pred_dir){
  print "The directory with predictions $pred_dir doesn't exist\n";
  exit;
}

my $target_id = $targets_manager->get_id_by_name($target);

# check if target is expired for server predictions
if(! $targets_manager->is_expired($target_id, "server")){
  print "Target $target hasn't expired for server predictions yet\n";
  exit;
}

my $res_dir = $LOCAL_CONFIG->{RESULTS_DIR}."/MVSM_SERV/DATA/".$target;
if(-d $res_dir){
    print "Directory with results $res_dir exists. Probably you would like to delete it?\n";
    exit;
}

system(sprintf("cd /local/Projects/Perl/casp13/src/scripts/evaluation_scripts/ ;  ./rsync_upload.sh '%s' '%s' '%s' '%s' > /tmp/log.log", $target, 'mvsm_serv', '*', ''));