testing/sisyphus/bin/each-to-html.pl

   1 #!/usr/bin/perl
   2 # -*- Mode: Perl; tab-width: 4; indent-tabs-mode: nil; -*-
   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 Automated Testing Code.
  17 #
  18 # The Initial Developer of the Original Code is
  19 # Mozilla Corporation.
  20 # Portions created by the Initial Developer are Copyright (C) 2005
  21 # the Initial Developer. All Rights Reserved.
  22 #
  23 # Contributor(s): Bob Clary <bob@bclary.com>
  24 #
  25 # Alternatively, the contents of this file may be used under the terms of
  26 # either the GNU General Public License Version 2 or later (the "GPL"), or
  27 # the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
  28 # in which case the provisions of the GPL or the LGPL are applicable instead
  29 # of those above. If you wish to allow use of your version of this file only
  30 # under the terms of either the GPL or the LGPL, and not to allow others to
  31 # use your version of this file under the terms of the MPL, indicate your
  32 # decision by deleting the provisions above and replace them with the notice
  33 # and other provisions required by the GPL or the LGPL. If you do not delete
  34 # the provisions above, a recipient may use your version of this file under
  35 # the terms of any one of the MPL, the GPL or the LGPL.
  36 #
  37 # ***** END LICENSE BLOCK *****
  38 use URI::Escape;
  39 use lib "$ENV{HOME}/projects/mozilla.com/test.mozilla.com/www/bin/";
  40
  41 my $hook       = shift @ARGV || usage("hook");
  42 my $sitelist   = shift @ARGV || usage("sitelist");
  43
  44 open SITES, "<$sitelist" || die "unable to open $sitelist\n";
  45
  46 my @sites = <SITES>;
  47
  48 close SITES;
  49
  50 my $site;
  51
  52 my $chromeurl;
  53 my $testUrl;
  54
  55 print "<html><body>\n";
  56
  57 foreach $site (@sites)
  58 {
  59
  60     chomp $site;
  61
  62     my $spider = "chrome://spider/content/spider.xul?" .
  63         "depth=0&timeout=120&waittime=5&hooksignal=on&autostart=on&autoquit=on&javascripterrors=off&" .
  64         "javascriptwarnings=off&chromeerrors=on&xblerrors=on&csserrors=off&" .
  65         "scripturl=" .
  66         uri_escape("http://" .
  67                    $ENV{TEST_HTTP} .
  68                    $hook) .
  69                    "&" .
  70                    "url=" . uri_escape(uri_escape($site));
  71
  72     print "<a href=\"$spider\">$site\</a><br>\n";
  73 }
  74 print "</html>\n";
  75
  76 sub usage
  77 {
  78     my $arg = shift @_;
  79
  80     print <<USAGE;
  81
  82 Error in $arg.
  83
  84 Usage: each-to-html.pl hook sitelist
  85
  86 Create an HTML page containing links to invoke Spider with the
  87 appropriate URL and parameters.
  88
  89 hook       - path to userhook script
  90 sitelist   - path to text file containing list of sites,
  91              one to a line
  92 USAGE
  93
  94 exit 2;
  95 }
  96
  97 1;