Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-11-26 06:11:37 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Better usage message. Ability to take args.

Browse Source
This commit is contained in:
dp%netscape.com 2001-11-09 19:16:04 +00:00
parent e2ceae0e2f
commit 0d257cc179
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tools/performance/startup/startup-unix.pl
View File

@ -28,19 +28,23 @@ use Cwd;
sub PrintUsage {
die <<END_USAGE
usage: startup-unix.pl <exe>
usage: startup-unix.pl <exe> [<args>]
e.g
startup-unix.pl ../../../dist/bin/mozilla
startup-unix.pl ../../../dist/bin/mozilla -P \"Default User\"
END_USAGE
}
{
PrintUsage() if $#ARGV != 0;
PrintUsage() unless $#ARGV >= 0;
# Build up command string.
my $cwd = Cwd::getcwd();
my $cmd = join(' ', map {/\s/ ? qq("$_") : $_} @ARGV);
my $time = Time::PossiblyHiRes::getTime();
my $cmd = "@ARGV[0] \"file:$cwd/startup-test.html?begin=" . $time . "\"";
$cmd .= qq( -url "file:$cwd/startup-test.html?begin=$time");
print "cmd = $cmd\n";
# Run the command.
exec $cmd;
}