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

use Getopt::Long;
use Switch;

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

use LocalConfiguration;

use QA2aseManager;
use QA2aseUploadManager;


my $casp_version = uc($LOCAL_CONFIG->{CASP_VERSION});
my $RESULT_DIR = "/local/$casp_version/RESULTS/QA_analysis";

my $resultsupload_manager = new QA2aseUploadManager();


sub upload_ase {
    my @dirs ;
    opendir D, "$RESULT_DIR";
    while(my $d = readdir(D)){
	if ($d =~ m/^QA2.ASE.*stage[2]/){
		push @dirs, $d;
	}
    }
    closedir(D);
    foreach my $d (@dirs){
	my $dir = "$RESULT_DIR/$d";
	my $file = "QA2.ASE_score.2.csv";
#	print "$dir/$file";
	$resultsupload_manager->load($file, $dir);
	last;
    }
}

upload_ase();


exit(0);
1;