The Tor Browser / file revision

 #!/usr/bin/perl

 # 

 # This Source Code Form is subject to the terms of the Mozilla Public

 # License, v. 2.0. If a copy of the MPL was not distributed with this

 # file, You can obtain one at http://mozilla.org/MPL/2.0/.

 use CGI::Carp qw(fatalsToBrowser);

 use CGI::Request;

 use URLTimingDataSet;

 use strict;

 my $request = new CGI::Request;

 my $id = $request->param('id'); #XXX need to check for valid parameter id

 print "Content-type: text/html\n\n";

 print "<p>See Notes at the bottom of this page for some details.</p>\n";

 print "<pre>\n";

 my $rs = URLTimingDataSet->new($id);

 print  "Test id: $id<br>Avg. Median : <b>", $rs->{avgmedian},

        "</b> msec\t\tMinimum     : ", $rs->{minimum}, " msec\n";

 print  "Average     : ", $rs->{average},

        " msec\t\tMaximum     : ", $rs->{maximum}, " msec</pre>\n\n\n";

 #XXX print more info (test id, ua, start time, user, IP, etc.)

 # draw the chart sorted

 # XXX enable this line to draw a chart, sorted by time. However, in order

 # to draw the chart, you will need to have installed the 'gd' drawing library,

 # and the GD and GD::Graph Perl modules.

 ###print "\n<p><img src='graph.pl?id=", $id, "' height='720' width='800'></p><br>\n";

 print "<hr><pre>\nIDX PATH                           AVG    MED    MAX    MIN  TIMES ...\n";

 if ($request->param('sort')) {

     print $rs->as_string_sorted();

 } else {

     print $rs->as_string();

 }

 print "</pre>\n";

 printEndNotes();

 exit;

 sub printEndNotes {

     print <<"EndOfNotes";

 <hr>

 <p>

 <ol>

 <li>Times are in milliseconds.

 <li>AVG, MED, MIN and MAX are the average, median, maximum and

 minimum of the (non-NaN) test results for a given page.

 <li>If a page fails to fire the onload event within 30 seconds,

 the test for that page is "aborted": a different JS function kicks in,

 cleans up, and reports the time as "NaN". (The rest of the pages in

 the series should still be loaded normally after this).

 <li>The value for AVG reported for 'All Pages' is the average of

 the averages for all the pages loaded.

 <li>The value for MAX and MIN reported for 'All Pages' are the

 overall maximum and minimum for all pages loaded (keeping in mind that

 a load that never finishes is recorded as "NaN".)

 <li>The value for MED reported for 'All Pages' is the _average_ of

 the medians for all the pages loaded (i.e., it is not the median of

 the medians).

 </ol>

 </p>

 EndOfNotes

 }