#!/usr/bin/perl

use strict;
use warnings;

###########################################################
#
# The script creates files for Tc and Tp  targets.
#
#
###########################################################


use lib qw(Classes);
use ContactGuidedTargetsManager;

my $DEBUG = 0;


my $manager = new ContactGuidedTargetsManager();

my @targets = $manager->get_targets_for_today();

if($DEBUG){
#  HOT FIX
  @targets = ();
  print scalar(@targets)."\n";
  push @targets, {
#  	NAME => 'T0148',
#	NUMBER_OF_AA => 183
  };
  print scalar(@targets)."\n";
}

foreach my $t (@targets){
	if($DEBUG){
#		print $t->{NAME}."\n";
#		print $t->{NUMBER_OF_AA}."\n";
#		$manager->createTarBallTp($t);
#		$manager->createTarBallTc($t);
	} else {
#		$manager->createTarBallTp($t);
#		$manager->createTarBallTc($t);
		$manager->createTarballAllPredsForTp($t);
	}
}