#!/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/. # This is a modified version of Chris Hofmann's # infamous "browser buster" test harness. It's a bit simpler (CGI # instead of using cookies; IFRAME instead of FRAMESET), and has some # extra parameters that make it a bit easier to test with, but it's # pretty faithful otherwise. # # It accepts a couple of parameters, including # # file= Set this to the name of the file containing # the URLs that you want the buster to cycle through. This # might be a security hole, so don't run this script on a # server with s3kret stuff on it, mmkay? # # page= This is used to maintain state, and is the line # number in the file that the buster will pull up in the # IFRAME. Set if by hand if you need to for some reason. # # last= The buster will run until it's exhausted all # the URLs in the file, or until it reaches this line in the # file; e.g., setting it to "5" will load five URLs. # # refresh= The timeout (in seconds) to wait before doing # a page refresh, and thus loading the next URL. Defaults to # thirty. use CGI; # Find the page'th URL in the file with the specified name sub FindURL($$) { my ($file, $page) = @_; open URLS, $file || die("can't open $::File"); LINE: while () { next LINE if /^#/; last LINE unless --$page; } close URLS; chomp; return $_; } # Scrape parameters $::Query = new CGI; $::File = $::Query->param("file"); $::File = "top100.txt" unless $::File; $::Page = $::Query->param("page"); $::Page = 0 unless $::Page; $::URL = FindURL($::File, ++$::Page); $::Last = $::Query->param("last"); $::Last = -1 unless $::Last; $::Refresh = $::Query->param("refresh"); $::Refresh = 30 unless $::Refresh; # Header print qq{Content-type: text/html }; # Meat if ($::URL && ($::Page <= $::Last || $::Last == -1)) { # Make a web page that'll load $::URL in an IFRAME, with # a meta-refresh that'll reload us again in short order. print qq{ BrowserBuster II: $::URL }; print "$::File: $::URL"; if ($::Last != -1) { print " ($::Page of $::Last)
"; } print qq{