Skip to content

GitLab

Commit 441a97eb authored by Jonathon Duerig's avatar Jonathon Duerig
Browse files
Options

Added an option so that gather-dest waits for the send-command to finish.

parent e1efdccc
Hide whitespace changes
Inline Side-by-side
Showing with 10 additions and 6 deletions
pelab/bw-bottleneck/gather-dest.pl
View file @ 441a97eb
......@@ -28,7 +28,13 @@ sub startProgram
{
my $dest = $_[0];
my $command = $_[1];
my $string = "/usr/testbed/bin/tevc -e $project/$exp now node-$source-to-node-$dest start";
my $wait = $_[2];
my $string = "/usr/testbed/bin/tevc ";
if ($wait != 0)
{
String = $string . '-w ';
}
my $string = $string."-e $project/$exp now node-$source-to-node-$dest start";
if ($command ne "")
{
$string = $string." COMMAND='".$command."'";
......@@ -48,14 +54,12 @@ sub runTest
my $dest1 = $_[0];
my $dest2 = $_[1];
my $i = 0;
startProgram($dest1, "sh /bw-bottleneck/run-server.sh $serverPort /bw-bottleneck dump-$source-$dest1-$dest2.dump");
startProgram($dest2, "sh /bw-bottleneck/run-server.sh $serverPort /bw-bottleneck dump-$source-$dest1-$dest2.dump");
startProgram($dest1, "sh /bw-bottleneck/run-server.sh $serverPort /bw-bottleneck dump-$source-$dest1-$dest2.dump", 0);
startProgram($dest2, "sh /bw-bottleneck/run-server.sh $serverPort /bw-bottleneck dump-$source-$dest1-$dest2.dump", 0);
sleep(2);
startProgram("client", "sh /bw-bottleneck/run-client.sh node-$dest1.$exp.$project.emulab.net node-$dest2.$exp.$project.emulab.net $serverPort /bw-bottleneck dump-$source-$dest1-$dest2.dump $duration");
sleep($duration);
startProgram("client", "sh /bw-bottleneck/run-client.sh node-$dest1.$exp.$project.emulab.net node-$dest2.$exp.$project.emulab.net $serverPort /bw-bottleneck dump-$source-$dest1-$dest2.dump $duration", 1);
stopProgram($dest1);
stopProgram($dest2);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment