#!/usr/bin/perl -w

my $hostlist = `cat ./host.list`;
chomp($hostlist);
my $key = `echo \$RANDOM`;
chomp($key);

print "Start back ends ...\n";

my @hosts = split(/\n/, $hostlist);
my $id = 0;
foreach my $host (@hosts) {
    print "export SCI_JOB_KEY=$key; export SCI_USE_EXTLAUNCHER=yes; export SCI_CLIENT_ID=$id; ./dsh_be\n";
    system("export SCI_JOB_KEY=$key; export SCI_USE_EXTLAUNCHER=yes; export SCI_CLIENT_ID=$id; ./dsh_be &");
    $id = $id + 1;
}

print "export SCI_JOB_KEY=$key; export SCI_USE_EXTLAUNCHER=yes; export SCI_CLIENT_ID=$id; ./dsh_be\n";
system("export SCI_JOB_KEY=$key; export SCI_USE_EXTLAUNCHER=yes; export SCI_CLIENT_ID=$id; ./dsh_be &");

print "Wait 5 seconds ...\n";
sleep(5);

print "Start front end ...\n";
print "export SCI_JOB_KEY=$key; export SCI_USE_EXTLAUNCHER=yes; ./ddsh_fe\n";
system("export SCI_JOB_KEY=$key; export SCI_USE_EXTLAUNCHER=yes; ./ddsh_fe");