#!/usr/bin/perl

use strict;
use warnings;

use lib qw(Classes);
use ZscoresManager;

my $DEBUG = 1;

if (! defined($ARGV[0])){
   &usage();
}

my $path_target = $ARGV[0];
if (! -e $path_target){
   &usage();
}
my $target;
my $domain;
if ($path_target =~ m/(T[0acspx][0-9]{3})-D([1-6]{1}).GrishinScores\.(best|first)\.csv$/){
	$target = $1;
	$domain = $2;
} elsif ($path_target =~ m/(T[acspx][0-9]{3}).GrishinScores\.(best|first)\.csv$/){
        $target = $1;
} else {
	&usage();
}


my $manager = new ZscoresManager();

$manager->uploadGrishinTenS("$path_target");


exit;




sub usage{
    print "\n=========\nUSAGE: $0 <TARGET-DOMAIN>\n=========\n\n";
    print "$0 /local/CASP11/tmp_Grishin/T0759-D1.GrishinScores.best.csv\n";
    exit;
}