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


use Getopt::Long;
use Switch;


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

use LocalConfiguration;

use QADiff2bestManager;
use QADiff2bestUploadManager;


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

#my $results_manager = new QADiff2bestManager();
my $resultsupload_manager = new QADiff2bestUploadManager();

sub upload {
    my @dirs = ();
    opendir D, $RESULT_DIR; 
    while (defined(my $d = readdir(D))){
	if ($d =~ m/^\./) { next; }
	if (-d "$RESULT_DIR/$d" && $d =~ m/^A.QA1/){
		push @dirs, $d;
	}
    }
    closedir D;

    foreach my $d (sort @dirs){
	my $indir = "$RESULT_DIR/$d";
	opendir I, $indir;
	while(defined(my $f = readdir(I))){
		if ($f =~ m/^\./) {next;}
		if ($f =~ m/difbest/ ){
			$resultsupload_manager->upload_results($f, $indir);
		}
	}
	closedir(I);
    }
}

upload();

exit(0);
1;