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

use Digest::MD5 qw(md5 md5_hex md5_base64);
use Getopt::Long;


use lib qw(Core);
use lib qw(Classes);
use ResultsManager;
use ResultsTargetManager;
use ResultsUploadManager;
use String;
use Logger;

my $SCRIPTNAME = 'upload_results.pl';

#my $logger = new Logger();

my $directory = "";
my @FILES_LIST = ();
my $count_files = 0;


my $results_manager = new ResultsManager();
my $results_target_manager = new ResultsTargetManager();
my $resultsupload_manager = new ResultsUploadManager();

my $TARGET = "T0543";

my @targets = $results_target_manager->get_result_targets();

for(my $i = 0; $i < scalar(@targets); $i++) {
	$TARGET = @targets[$i]->{NAME};
	if ($TARGET ne "T0594") {
	    next;
	}
	############## RMS-CA 4A LGA PREDICTIONS 
	$directory = "/data/CASP9/RESULTS/LGA/4A/DATA/$TARGET";
	@FILES_LIST = ();
	if(open(FILE_list_of_results, "/bin/ls " . $directory. "/* |")) {
		@FILES_LIST = <FILE_list_of_results>;
		close (FILE_list_of_results);
	}
	$count_files = 0;
	foreach my $line (@FILES_LIST) {
		$count_files ++;	
		$line =~ /$directory\/(.*)/;
		my $file_name = $1;	
		$resultsupload_manager->upload_lga_rms_ca($file_name, $directory, 4);
#		print "File #" . $count_files . "\n";
	}
	$directory = "/data/CASP9/RESULTS/ACE/$TARGET";
	@FILES_LIST = ();
	if(open(FILE_list_of_results, "/bin/ls " . $directory. "/* |")) {
		@FILES_LIST = <FILE_list_of_results>;
		close (FILE_list_of_results);
	}
	$count_files = 0;
	foreach my $line (@FILES_LIST) {
		$count_files ++;	
		$line =~ /$directory\/(.*)/;
		my $file_name = $1;	
	#	$resultsupload_manager->upload_ace($file_name, $directory);
#		print "File #" . $count_files . "\n";
	}
	print " TARGET: " . $TARGET . " \n";
	###}
#	exit(0);
}


#$resultsupload_manager->generate_gdt_images($TARGET);
############# end
exit(0);