run-standalone 381 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
#!/usr/bin/perl -w -T

($level, $runpath, $varpath, $logpath, $hosts, $nodes) = @ARGV;

open HOSTS, ">hosts.txt";
@hostList = split(",", $hosts);
print HOSTS join("\n", @hostList);
close HOSTS;

if (! defined($nodes)) {
	$nodes = $hosts;
}

$command = "pssh -h hosts.txt -o out -e err -t 3000 sh $runpath/standalone.sh $level $runpath $varpath $logpath $nodes";

system($command);