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

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

use ResultsUploadManager;

my $results_upload_manager = new ResultsUploadManager();

my $targets_dir = '/shared/bystra/data/CASP9/TARGETS/';
my $target = 'T0387';

my $lga_rotated_dir = '/shared/prediction_5/workspace/RESULTS/CASP9/5A/ROTATED';
my $lga_rotated_target_dir = sprintf("%s/%s/", $lga_rotated_dir, $target);

my @models = ();

if(open(MODELS, sprintf("ls -1 %s |", $lga_rotated_target_dir))) {
    while(<MODELS>) {
        chomp;
        push(@models, $_);
    }
    
    close(MODELS);
}

my $models_count = scalar(@models);

for(my $i = 0; $i < $models_count; $i++) {
    $results_upload_manager->upload_al_alignment($targets_dir, sprintf("%s.pdb", $target), $lga_rotated_target_dir, $models[$i]);
}

print 1;