tmp
authorMichal Sojka <sojkam1@fel.cvut.cz>
Thu, 27 Feb 2014 12:32:17 +0000 (13:32 +0100)
committerMichal Sojka <sojkam1@fel.cvut.cz>
Thu, 27 Feb 2014 12:32:17 +0000 (13:32 +0100)
continuous/gw-setup/run.pl

index 068c5dd..f1bfe33 100755 (executable)
@@ -2,10 +2,12 @@
 
 use FindBin;
 
+# Create startup script in ramdisk
 my $S99 = "$FindBin::Bin/initramfs/etc/init.d/S99benchmark";
 system("rm -f $S99");
 system("cat > $S99; chmod +x $S99") unless -t STDIN;
 
+# Boot gateway
 my $boot;
 my $pid = &run_boot;
 $|=1;
@@ -16,6 +18,7 @@ while (<$boot>){
 }
 die "Boot failed" unless $ready;
 
+# Measure latencies
 my $latester=<<'EOF';
 rm -f tmp-stat.txt
 echo "Starting latester"
@@ -34,13 +37,14 @@ my $status = system((qw(ssh -T glab), $latester));
 kill('TERM', -$pid);
 exit($status >> 8);
 
+# Helper functions
 sub kill_boot() { kill('TERM', -$pid) if defined $pid; }
 sub run_boot()
 {
     # die("No boot command") if ($#ARGV eq -1);
-    my $bootcmd = "'".join("' '", @ARGV)."'";
+    my $bootcmd = "'".join("' '", @ARGV)."'";
 
-    my $bootcmd = "$FindBin::Bin/boot";
+    $bootcmd ||= "$FindBin::Bin/boot";
 
     $SIG{INT} = sub { kill_boot(); exit; };