#!/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";
   my $file = sprintf("/local/CASPCOMMONS/%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 malbec23)){
		my $json = `ssh -n casp\@bystra 'ssh -f -n $serv rsync -az -e ssh casp\@predictioncenter.org:$file /local/CASPCOMMONS/'`;
#		my $json = "ssh -n casp\@bystra 'ssh -f -n $serv rsync -az -e ssh  casp@predictioncenter.org:$file /local/CASPCOMMONS/'";
#		print $json."\n";
        }
	sleep (15);
	if (-f $file){
		unlink($file) or warn "Could not unlink $file: $!";;
	}
   }	
}