gecko-dev/webtools/browser-buster/list_pages

65 строки
1.9 KiB
Tcsh
Executable File

#!/bin/csh -f
#
# The contents of this file are subject to the Mozilla Public
# License Version 1.1 (the "License"); you may not use this file
# except in compliance with the License. You may obtain a copy of
# the License at http://www.mozilla.org/MPL/
#
# Software distributed under the License is distributed on an "AS
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
# implied. See the License for the specific language governing
# rights and limitations under the License.
#
# The Original Code is browser-buster.
#
# The Initial Developer of the Original Code is Netscape Comm.
# Inc. Portions created by Netscape are
# Copyright (C) Netscape. All
# Rights Reserved.
#
# Contributor(s):
# Chris Hofmann <chofmann@netscape.com>
#
set pull_time=$1
set rotate_time=$2
set test_url=pagelist.html
echo '<head>' > $test_url
echo '<title>browser buster test pages</title>' >> $test_url
echo '</head>' >> $test_url
echo '<body>' >> $test_url
echo '<h1>Browser Buster Test Pages</h1>' >> $test_url
echo 'Last updated:' `date` >> $test_url
echo '<OL>' >> $test_url
foreach url ( `ls -1 */url.* | sort -n -t . +1` )
# echo '<LI> <a href="'`cat $url`'">'`echo $url` \: `cat $url` '</a>'
echo '<LI> <a href="'`cat $url`'" TARGET=test_win>'`echo $url` \: `cat $url` '</a>' >> $test_url
end
echo '</OL>' >> $test_url
echo '<h1>More Browser Buster Test Pages</h1>' >> $test_url
echo 'These are additional "interesting" pages not part of the automated test pages cycle' >> $test_url
echo 'due to the fact they are on unreliable servers, ' >> $test_url
echo 'are known crashers, or interupt with the operation of the test. ' >> $test_url
echo '<OL>' >> $test_url
foreach url ( `ls -1 */*.url | sort -n -t . +1` )
# echo '<LI> <a href="'`cat $url`'">'`echo $url` \: `cat $url` '</a>'
echo '<LI> <a href="'`cat $url`'" TARGET=test>'`echo $url` \: `cat $url` '</a>' >> $test_url
end
echo '</OL>' >> $test_url
echo '</body>' >> $test_url