зеркало из https://github.com/mozilla/pjs.git
146 строки
4.8 KiB
Perl
Executable File
146 строки
4.8 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
# ***** BEGIN LICENSE BLOCK *****
|
|
# Version: MPL 1.1/GPL 2.0/LGPL 2.1
|
|
#
|
|
# The contents of this file are subject to the Mozilla Public License Version
|
|
# 1.1 (the "License"); you may not use this file except in compliance with
|
|
# the License. You may obtain a copy of the License at
|
|
# http://www.mozilla.org/MPL/
|
|
#
|
|
# Software distributed under the License is distributed on an "AS IS" basis,
|
|
# WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
|
|
# for the specific language governing rights and limitations under the
|
|
# License.
|
|
#
|
|
# The Original Code is Mozilla page-loader test, released Aug 5, 2001.
|
|
#
|
|
# The Initial Developer of the Original Code is
|
|
# Netscape Communications Corporation.
|
|
# Portions created by the Initial Developer are Copyright (C) 2001
|
|
# the Initial Developer. All Rights Reserved.
|
|
#
|
|
# Contributor(s):
|
|
# John Morrison <jrgm@netscape.com>, original author
|
|
#
|
|
# Alternatively, the contents of this file may be used under the terms of
|
|
# either the GNU General Public License Version 2 or later (the "GPL"), or
|
|
# the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
|
|
# in which case the provisions of the GPL or the LGPL are applicable instead
|
|
# of those above. If you wish to allow use of your version of this file only
|
|
# under the terms of either the GPL or the LGPL, and not to allow others to
|
|
# use your version of this file under the terms of the MPL, indicate your
|
|
# decision by deleting the provisions above and replace them with the notice
|
|
# and other provisions required by the GPL or the LGPL. If you do not delete
|
|
# the provisions above, a recipient may use your version of this file under
|
|
# the terms of any one of the MPL, the GPL or the LGPL.
|
|
#
|
|
# ***** END LICENSE BLOCK *****
|
|
use Time::HiRes qw(gettimeofday tv_interval);
|
|
|
|
sub encodeHiResTime {
|
|
my $timeref = shift;
|
|
return unless ref($timeref);
|
|
my $time = $$timeref[0] . "-" . $$timeref[1];
|
|
return $time;
|
|
}
|
|
|
|
my $time = encodeHiResTime([gettimeofday()]);
|
|
|
|
print "Content-type: text/html\n\n";
|
|
print <<"ENDOFHTML";
|
|
<html>
|
|
<head>
|
|
<script>
|
|
|
|
var gServerTime = '$time';
|
|
|
|
function tokenizeQuery() {
|
|
var query = {};
|
|
var pairs = document.location.search.substring(1).split('&');
|
|
for (var i=0; i < pairs.length; i++) {
|
|
var pair = pairs[i].split('=');
|
|
query[pair[0]] = unescape(pair[1]);
|
|
}
|
|
return query;
|
|
}
|
|
|
|
function setLocationHref(aHref, aReplace) {
|
|
if (aReplace)
|
|
document.location.replace(aHref);
|
|
else
|
|
document.location.href = aHref;
|
|
}
|
|
|
|
var gHref;
|
|
function doNextRequest(aTime) {
|
|
function getValue(arg,def) {
|
|
return !isNaN(arg) ? parseInt(Number(arg)) : def;
|
|
}
|
|
var q = tokenizeQuery();
|
|
var delay = getValue(q['delay'], 0);
|
|
|
|
var now = (new Date()).getTime();
|
|
var c_intvl = now - c_ts;
|
|
var c_ts = now + delay; // adjust for delay time
|
|
// Now make the request ...
|
|
if (q['url']) {
|
|
gHref = q['url'] +
|
|
"?c_part=" + -1 + // bogo request is not recorded
|
|
"&index=" + 0 +
|
|
"&id=" + q['id'] +
|
|
"&maxcyc=" + q['maxcyc'] +
|
|
"&replace=" + q['replace'] +
|
|
"&nocache=" + q['nocache'] +
|
|
"&delay=" + delay +
|
|
"&timeout=" + q['timeout'] +
|
|
"&c_intvl=" + c_intvl +
|
|
"&s_ts=" + gServerTime +
|
|
"&c_ts=" + c_ts;
|
|
window.setTimeout("setLocationHref(gHref,false);", delay);
|
|
return true;
|
|
}
|
|
}
|
|
|
|
function startTest() {
|
|
if (window.innerHeight && window.innerWidth) {
|
|
// force a consistent region for layout and painting.
|
|
window.innerWidth=820;
|
|
window.innerHeight=620;
|
|
}
|
|
doNextRequest(0);
|
|
}
|
|
|
|
window.setTimeout("startTest()", 1000);
|
|
|
|
</script>
|
|
</head>
|
|
<body>
|
|
<p>
|
|
This page starts the test.
|
|
</p>
|
|
<p>
|
|
dummy page dummy page dummy page dummy page dummy page dummy page
|
|
dummy page dummy page dummy page dummy page dummy page dummy page
|
|
dummy page dummy page dummy page dummy page dummy page dummy page
|
|
dummy page dummy page dummy page dummy page dummy page dummy page
|
|
</p>
|
|
<p>
|
|
dummy page dummy page dummy page dummy page dummy page dummy page
|
|
dummy page dummy page dummy page dummy page dummy page dummy page
|
|
dummy page dummy page dummy page dummy page dummy page dummy page
|
|
dummy page dummy page dummy page dummy page dummy page dummy page
|
|
</p>
|
|
<p>
|
|
dummy page dummy page dummy page dummy page dummy page dummy page
|
|
dummy page dummy page dummy page dummy page dummy page dummy page
|
|
dummy page dummy page dummy page dummy page dummy page dummy page
|
|
dummy page dummy page dummy page dummy page dummy page dummy page
|
|
</p>
|
|
</body>
|
|
</html>
|
|
|
|
ENDOFHTML
|
|
|
|
exit 0;
|