#!/usr/bin/perl

use strict;
use warnings;

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

my $targetsManager = new TargetsManager();
my $predManager = new PredictionsManager();

my @targets = $targetsManager->targetsExpiredForServersToday();

foreach my $t (@targets){
   print $t->{NAME}."\n";
#   next;
   my $file = sprintf("/local/CASP13/%s_groups-server.txt", $t->{NAME});
   my @codes = $predManager->get_servers_for_target($t->{NAME});
   if (scalar(@codes) > 0){
	open F, "> $file";
	foreach my $code (@codes){
		print F $code."\n";
#		print $code."\n";
   	}
	close F;
	sleep (1);
	foreach my $serv (qw(malbec21 malbec22 pinot2)){
	  if ($serv =~ m/malbec/){
		my $json = `ssh -n casp\@bystra 'ssh -f -n $serv rsync -az -e ssh casp\@predictioncenter.org:$file /local/CASP13/'`;
#		my $json = "ssh -n casp\@bystra 'ssh -f -n $serv rsync -az -e ssh  casp@predictioncenter.org:$file /local/CASP13/'";
#		print $json."\n";
	  } elsif ($serv =~ m/pinot/){
		my $json = `rsync -az -e ssh $file casp\@$serv:/local/CASP13/`;
	  }
        }
	sleep (15);
	if (-f $file){
		unlink($file) or warn "Could not unlink $file: $!";;
	}
   }	
}