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

use Digest::MD5 qw(md5 md5_hex md5_base64);
use MIME::Parser;
use MIME::Entity;
use MIME::Body;
use Getopt::Long;


use lib qw(Core);
use lib qw(Classes);
use ImagesManager;
use ResultsManager;
use ResultsUploadManager;

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 $resultsupload_manager = new ResultsUploadManager();

my $TARGET = "T0389";
my $protein_pdb = '/data/CASP9/TARGETS/'.$TARGET.'.pdb';
my $output_small_str_image_png = '/data/CASP9/PLOTS/STR/'.$TARGET.'.small.png'; #structure image
my $images_manager = new ImagesManager();


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

############# end
#exit(0);

############# JOIN LGA 4 A results with ACE
#$resultsupload_manager->join_lga_with_ace("/data/CASP9/RESULTS", $TARGET);
############# JOIN end

#exit(0);
#return 1;

##### UPLOAD RANK 
#$resultsupload_manager->upload_rank($TARGET);
#exit(0);



############## MAMMOTH UPLOAD
#$directory = "/data/CASP9/RESULTS/MAMMOTH/$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_mammoth($file_name, $directory);
#	print "File #" . $count_files . "\n";
#}

#exit(0);



############################################################################################ IMMAGES (small) for result targets page
#### GENERATE STRUCTURE IMAGE
$images_manager->protein_image($protein_pdb, $output_small_str_image_png, 74, 74);
#### GENERATE GDT IMAGE
$resultsupload_manager->generate_gdt_images($TARGET);
#### GENERATE AL IMAGES
$resultsupload_manager->generate_al_small_images($TARGET);

exit(0);