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;
}
die "Boot failed" unless $ready;
+# Measure latencies
my $latester=<<'EOF';
rm -f tmp-stat.txt
echo "Starting 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; };