tools/footprint/buster.cgi

   1 #!/usr/bin/perl
   2 #
   3 # This Source Code Form is subject to the terms of the Mozilla Public
   4 # License, v. 2.0. If a copy of the MPL was not distributed with this
   5 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
   6
   7 # This is a modified version of Chris Hofmann's <chofmann@netscape.com>
   8 # infamous "browser buster" test harness. It's a bit simpler (CGI
   9 # instead of using cookies; IFRAME instead of FRAMESET), and has some
  10 # extra parameters that make it a bit easier to test with, but it's
  11 # pretty faithful otherwise.
  12 #
  13 # It accepts a couple of parameters, including
  14 #
  15 #   file=<filename> Set this to the name of the file containing
  16 #     the URLs that you want the buster to cycle through. This
  17 #     might be a security hole, so don't run this script on a
  18 #     server with s3kret stuff on it, mmkay?
  19 #
  20 #   page=<number> This is used to maintain state, and is the line
  21 #     number in the file that the buster will pull up in the
  22 #     IFRAME. Set if by hand if you need to for some reason.
  23 #
  24 #   last=<number> The buster will run until it's exhausted all
  25 #     the URLs in the file, or until it reaches this line in the
  26 #     file; e.g., setting it to "5" will load five URLs.
  27 #
  28 #   refresh=<number> The timeout (in seconds) to wait before doing
  29 #     a page refresh, and thus loading the next URL. Defaults to
  30 #     thirty.
  31
  32 use CGI;
  33
  34 # Find the page'th URL in the file with the specified name
  35 sub FindURL($$)
  36 {
  37     my ($file, $page) = @_;
  38
  39     open URLS, $file
  40         || die("can't open $::File");
  41
  42     LINE: while (<URLS>) {
  43         next LINE if /^#/;
  44         last LINE unless --$page;
  45     }
  46
  47     close URLS;
  48
  49     chomp;
  50     return $_;
  51 }
  52
  53 # Scrape parameters
  54 $::Query = new CGI;
  55
  56 $::File = $::Query->param("file");
  57 $::File = "top100.txt" unless $::File;
  58
  59 $::Page = $::Query->param("page");
  60 $::Page = 0 unless $::Page;
  61 $::URL = FindURL($::File, ++$::Page);
  62
  63 $::Last = $::Query->param("last");
  64 $::Last = -1 unless $::Last;
  65
  66 $::Refresh = $::Query->param("refresh");
  67 $::Refresh = 30 unless $::Refresh;
  68
  69 # Header
  70 print qq{Content-type: text/html
  71
  72 <html>
  73 <head>
  74 };
  75
  76 # Meat
  77 if ($::URL && ($::Page <= $::Last || $::Last == -1)) {
  78     # Make a web page that'll load $::URL in an IFRAME, with
  79     # a meta-refresh that'll reload us again in short order.
  80     print qq{<meta http-equiv="Pragma" content="no-cache">
  81 <meta http-equiv="refresh" content="$::Refresh;url=buster.cgi?file=$::File&page=$::Page&last=$::Last&refresh=$::Refresh">
  82 <title>BrowserBuster II: $::URL</title>
  83 <style type="text/css">
  84 body {
  85   overflow: hidden;
  86   border: 0;
  87   margin: 0;
  88 }
  89 </style>
  90 </head>
  91 <script>
  92 dump("+++ loading $::URL\\n");
  93 </script>
  94 <body>
  95 };
  96     print "$::File: $::URL";
  97     if ($::Last != -1) {
  98         print " ($::Page of $::Last)<br>";
  99     }
 100     print qq{
 101 <iframe width="100%" height="100%" src="$::URL">
 102 };
 103 }
 104 else {
 105     # Make a web page that'll close the current browser
 106     # window, terminating the test app.
 107     print qq{<head>
 108 <title>BrowserBuster II: Done!</title>
 109 <body onload="window.close();">
 110 All done!
 111 };
 112 }
 113
 114 # Footer
 115 print qq{</body>
 116 </html>
 117 };