#!/usr/bin/perl

### launcher emitter_machine emitter_port collector_machine collector_port w_machine*

$emachine = shift @ARGV;
$eport    = shift @ARGV;
$cmachine = shift @ARGV;
$cport    = shift @ARGV;

open FD, ">machines.used" or die "Cannot open log file";
system("ssh $emachine \"\( cd FarmSocket\; make emitter\; ./emitter $eport \)\" & ");
print FD "$emachine\n";
sleep(5);
system("ssh $cmachine \"\( cd FarmSocket\; make collector\; ./collector $cport \)\" & ");
print FD "$cmachine\n";
sleep(5);

foreach $w (@ARGV) {
  system("ssh $w \"\( cd FarmSocket\; make worker\; ./worker $emachine $eport $cmachine $cport \)\" & ");
  print FD "$w\n";

}
close FD;
exit;