From a689aa5acc6d5565c2685cbc93cf709da8b70c4d Mon Sep 17 00:00:00 2001
From: "mcafee%netscape.com" <mcafee%netscape.com>
Date: Fri, 12 Oct 2001 00:02:32 +0000
Subject: [PATCH] usage, allow for different exe names, e.g. mozilla or
 netscape or galeon

---
 tools/performance/startup/startup-unix.pl | 39 ++++++++++++++---------
 1 file changed, 24 insertions(+), 15 deletions(-)

diff --git a/tools/performance/startup/startup-unix.pl b/tools/performance/startup/startup-unix.pl
index 697607be1d3..bb2dbde9267 100755
--- a/tools/performance/startup/startup-unix.pl
+++ b/tools/performance/startup/startup-unix.pl
@@ -2,7 +2,14 @@
 
 #
 # Script to time mozilla startup.
+# Feeds in start time as url argument, startup-test.html
+# takes this arg and computes the time difference.
+# So something like this happens:
 #
+# mozilla file:/foo/startup-test.html?begin=T
+#   where T = ms since 1970, e.g.:
+# mozilla file:/foo/startup-test.html?begin=999456977124
+# 
 
 require 5.003;
 
@@ -11,20 +18,22 @@ require "gettime.pl";
 use strict;
 use Cwd;
 
-# 
-# mozilla file:/foo/startup-test.html?begin=T
-#   where T = seconds since 1970, e.g.:
-# mozilla file:/foo/startup-test.html?begin=999456977000
-# 
-
-{
-	# Build up command string.
-	my $cwd = Cwd::getcwd();
-	my $time = Time::PossiblyHiRes::getTime();
-	my $cmd = "mozilla \"file:$cwd/startup-test.html?begin=" . $time . "\"";	
-	print "cmd = $cmd\n";
-
-	# Run the command.
-	exec $cmd;
+sub PrintUsage {
+  die <<END_USAGE
+  usage: startup-unix.pl <exe>
+END_USAGE
+}
+
+{
+  PrintUsage() if $#ARGV != 0;
+
+  # Build up command string.
+  my $cwd = Cwd::getcwd();
+  my $time = Time::PossiblyHiRes::getTime();
+  my $cmd = "@ARGV[0] \"file:$cwd/startup-test.html?begin=" . $time . "\"";	
+  print "cmd = $cmd\n";
+  
+  # Run the command.
+  exec $cmd;
 }