tools/page-loader/echo.pl

   1 #!/usr/bin/perl
   2 #
   3 # ***** BEGIN LICENSE BLOCK *****
   4 # Version: MPL 1.1/GPL 2.0/LGPL 2.1
   5 #
   6 # The contents of this file are subject to the Mozilla Public License Version
   7 # 1.1 (the "License"); you may not use this file except in compliance with
   8 # the License. You may obtain a copy of the License at
   9 # http://www.mozilla.org/MPL/
  10 #
  11 # Software distributed under the License is distributed on an "AS IS" basis,
  12 # WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
  13 # for the specific language governing rights and limitations under the
  14 # License.
  15 #
  16 # The Original Code is Mozilla page-loader test, released Aug 5, 2001.
  17 #
  18 # The Initial Developer of the Original Code is
  19 # Netscape Communications Corporation.
  20 # Portions created by the Initial Developer are Copyright (C) 2001
  21 # the Initial Developer. All Rights Reserved.
  22 #
  23 # Contributor(s):
  24 #   John Morrison <jrgm@netscape.com>, original author
  25 #
  26 # Alternatively, the contents of this file may be used under the terms of
  27 # either the GNU General Public License Version 2 or later (the "GPL"), or
  28 # the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
  29 # in which case the provisions of the GPL or the LGPL are applicable instead
  30 # of those above. If you wish to allow use of your version of this file only
  31 # under the terms of either the GPL or the LGPL, and not to allow others to
  32 # use your version of this file under the terms of the MPL, indicate your
  33 # decision by deleting the provisions above and replace them with the notice
  34 # and other provisions required by the GPL or the LGPL. If you do not delete
  35 # the provisions above, a recipient may use your version of this file under
  36 # the terms of any one of the MPL, the GPL or the LGPL.
  37 #
  38 # ***** END LICENSE BLOCK *****
  39 use Time::HiRes qw(gettimeofday tv_interval);
  40
  41 sub encodeHiResTime {
  42     my $timeref = shift;
  43     return unless ref($timeref);
  44     my $time = $$timeref[0] . "-" . $$timeref[1];
  45     return $time;
  46 }
  47
  48 my $time = encodeHiResTime([gettimeofday()]);
  49
  50 print "Content-type: text/html\n\n";
  51 print <<"ENDOFHTML";
  52 <html>
  53 <head>
  54 <script>
  55
  56 var gServerTime = '$time';
  57
  58 function tokenizeQuery() {
  59   var query = {};
  60   var pairs = document.location.search.substring(1).split('&');
  61   for (var i=0; i < pairs.length; i++) {
  62     var pair = pairs[i].split('=');
  63     query[pair[0]] = unescape(pair[1]);
  64   }
  65   return query;
  66 }
  67
  68 function setLocationHref(aHref, aReplace) {
  69     if (aReplace)
  70       document.location.replace(aHref);
  71     else
  72       document.location.href = aHref;
  73 }
  74
  75 var gHref;
  76 function doNextRequest(aTime) {
  77     function getValue(arg,def) {
  78         return !isNaN(arg) ? parseInt(Number(arg)) : def;
  79     }
  80     var q = tokenizeQuery();
  81     var delay    = getValue(q['delay'],    0);
  82
  83     var now     = (new Date()).getTime();
  84     var c_intvl = now - c_ts;
  85     var c_ts    = now + delay; // adjust for delay time
  86     // Now make the request ...
  87     if (q['url']) {
  88         gHref = q['url'] +
  89             "?c_part="  + -1 +    // bogo request is not recorded
  90             "&index="   + 0 +
  91             "&id="      + q['id'] +
  92             "&maxcyc="  + q['maxcyc'] +
  93             "&replace=" + q['replace'] +
  94             "&nocache=" + q['nocache'] +
  95             "&delay="   + delay +
  96             "&timeout=" + q['timeout'] +
  97             "&c_intvl=" + c_intvl +
  98             "&s_ts="    + gServerTime +
  99             "&c_ts="    + c_ts;
 100         window.setTimeout("setLocationHref(gHref,false);", delay);
 101         return true;
 102     }
 103 }
 104
 105 function startTest() {
 106   if (window.innerHeight && window.innerWidth) {
 107     // force a consistent region for layout and painting.
 108     window.innerWidth=820;
 109     window.innerHeight=620;
 110   }
 111   doNextRequest(0);
 112 }
 113
 114 window.setTimeout("startTest()", 1000);
 115
 116 </script>
 117 </head>
 118 <body>
 119   <p>
 120     This page starts the test.
 121   </p>
 122   <p>
 123     dummy page dummy page dummy page dummy page dummy page dummy page
 124     dummy page dummy page dummy page dummy page dummy page dummy page
 125     dummy page dummy page dummy page dummy page dummy page dummy page
 126     dummy page dummy page dummy page dummy page dummy page dummy page
 127   </p>
 128   <p>
 129     dummy page dummy page dummy page dummy page dummy page dummy page
 130     dummy page dummy page dummy page dummy page dummy page dummy page
 131     dummy page dummy page dummy page dummy page dummy page dummy page
 132     dummy page dummy page dummy page dummy page dummy page dummy page
 133   </p>
 134   <p>
 135     dummy page dummy page dummy page dummy page dummy page dummy page
 136     dummy page dummy page dummy page dummy page dummy page dummy page
 137     dummy page dummy page dummy page dummy page dummy page dummy page
 138     dummy page dummy page dummy page dummy page dummy page dummy page
 139   </p>
 140 </body>
 141 </html>
 142
 143 ENDOFHTML
 144
 145 exit 0;