mirror of
https://gitlab.winehq.org/wine/wine-gecko.git
synced 2024-09-13 09:24:08 -07:00
52 lines
1.2 KiB
Perl
Executable File
52 lines
1.2 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
#
|
|
# 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
|
|
#
|
|
# NOTE: You will get much better results if you install the
|
|
# Time::HiRes perl module (urls in gettime.pl) and test
|
|
# an optimized build.
|
|
#
|
|
# For optimized builds, startup-test.html will also dump
|
|
# the time out to stdout if you set:
|
|
# user_pref("browser.dom.window.dump.enabled", true);
|
|
#
|
|
|
|
require 5.003;
|
|
|
|
require "gettime.pl";
|
|
|
|
use strict;
|
|
use Cwd;
|
|
|
|
sub PrintUsage {
|
|
die <<END_USAGE
|
|
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() unless $#ARGV >= 0;
|
|
# Build up command string.
|
|
my $cwd = Cwd::getcwd();
|
|
|
|
my $cmd = join(' ', map {/\s/ ? qq("$_") : $_} @ARGV);
|
|
my $time = Time::PossiblyHiRes::getTime();
|
|
$cmd .= qq( -url "file:$cwd/startup-test.html?begin=$time");
|
|
print "cmd = $cmd\n";
|
|
|
|
# Run the command.
|
|
exec $cmd;
|
|
}
|
|
|