#!usr/bin/perl

my $debug = 1;

sub mysystem {
  my ($cmd) = @_;
  if ($debug) {
    print $cmd ,"\n";
  } else {
    system $cmd;
  }
}

system("hostname") if ($debug);
my $nodes = $ENV{'PBS_NODEFILE'};
my $jungleDir = "/mnt/data/jungle_workspace";
my $logFile  = "$jungleDir/Log/Log";
my $logNum   = "0000";

open my $fd,"<",$nodes or die("can't read file $nodes $!");

while (<$fd>) {
  chop ;
  unshift(@nodes,$_); 
} 

chdir $jungleDir;

my $nodeNum = $#nodes;
mysystem("cd $jungleDir; ruby scripts/tree.rb $nodeNum > scripts/tree.dot");
mkdir "$logfile/$logNum";
mysystem("ssh $nodes[0] \"cd $jungleDir/$logNum;java -cp ../../build/libs/Alice.jar alice.topology.manager.TopologyManager -conf ../../scripts/tree.dot -p 10000 --noKeepAlive > $logFile$logNum\" &");
$logNum++;
sleep 10;
for my $i (1..($#nodes-1)) {
  mysystem("ssh $nodes[$i] \"cd $jungleDir/$logNum;java -Dlogfile.name=${Logfile}java$lognum -jar ../../build/libs/logupdateTest-1.1.jar -host $nodes[0] -p 10003 -port 10000  --noKeepAlive > $logFile$logNum\" & ");
  $logNum++;
}

sleep 10;
mysystem("ssh $nodes[$#nodes] \"cd $jungleDir/$logNum;java -Dlogfile.name=${Logfile}java$lognum -jar build/libs/logupdateTest-1.1.jar -host $nodes[0] -p 10003 -port 10000  -write --noKeepAlive > $logFile$logNum\" &" );
sleep 30;