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

use Getopt::Long;
use Switch;

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

use LocalConfiguration;

use EMAEstimateManager;
use EMAEstimateUploadManager;


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

my $resultsupload_manager = new EMAEstimateUploadManager();


sub upload_ema_estimate {
    my @files ;
    opendir D, "$RESULT_DIR";
    while(my $f = readdir(D)){
	#if ($f =~ m/^C.*QA/){
	if ($f =~ m/^C\d{4}[dx]\dQA/){
		push @files, $f;
		#last;
	}
    }
    closedir(D);
    foreach my $file (sort @files){
	print "== $file ==\n";
	$resultsupload_manager->load($file, $RESULT_DIR);
	#last;
    }
}

upload_ema_estimate();

exit(0);
1;