+++ /dev/null
-#!/usr/bin/perl
-
-#---------------------------------------------------------
-# cvswww-extract.cgi
-#
-# Script to extract webpages onto webserver
-# Written by Tim Bishop [tdb1@ukc.ac.uk] 20/10/2000
-#
-# Copyright i-Scream, 2000
-# http://www.i-scream.org.uk
-#---------------------------------------------------------
-
-#grab some info
-use CGI;
-$query=new CGI;
-$site=$query->param('site');
-
-# Settings
-my ($left) = "http://www.i-scream.org.uk/left.inc";
-my ($title) = "http://www.i-scream.org.uk/title.inc";
-my ($bottom) = "http://www.i-scream.org.uk/bottom.inc";
-
-print "Content-type: text/html\n\n";
-
-print << "EOF";
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
-
-<!--
- cvswww-extract.cgi
- Script to extract webpages onto webserver
- Created by tdb1 20/10/2000
- Last modified 06/05/2001
--->
-
-<html>
-
-<head>
- <title>The i-Scream Project CVS Website Extracter</title>
-</head>
-
-<body bgcolor="#ffffff" link="#0000ff" alink="#3333cc" vlink="#3333cc" text="#000066">
-
-<table border="0" cellpadding="2" cellspacing="2">
- <tr>
- <td valign="top">
-EOF
-
-print `/usr/local/bin/wget -O - -q $left 2>&1`;
-
-print << "EOF";
-
- </td>
- <td valign="top">
-EOF
-
-print `/usr/local/bin/wget -O - -q $title 2>&1`;
-
-print "<pre>\n";
-
-#decide which site we're running on
-if($site eq "raptor" && -e "/usr/local/proj/co600_10" && -d "/usr/local/proj/co600_10"){
-
-print "<b>Debugging output from run on Raptor:</b>\n";
-print `/usr/local/proj/co600_10/scripts/cvswww-extract-cmd 2>&1`;
-
-print "\n<b>Debugging output from cleanup:</b>\n";
-print `/usr/local/proj/co600_10/scripts/cvswww-clean 2>&1`;
-
-}
-elsif($site eq "main" && -e "/home/sites/www.i-scream.org.uk" && -d "/home/sites/www.i-scream.org.uk"){
-
-print "<b>Debugging output from extract:</b>\n";
-print `cd /home/sites/www.i-scream.org.uk/web && gunzip cvswww-extract.tar.gz && tar -xvf cvswww-extract.tar && rm -f cvswww-extract.tar 2>&1`;
-
-}
-else{
- print "whoops, forget to say which site... or you lied :)\n";
-}
-
-print "</pre>\n";
-
-print `/usr/local/bin/wget -O - -q $bottom 2>&1`;
-
-print << "EOF";
-
- </td>
- </tr>
-</table>
-
-</body>
-
-</html>
-EOF
-
-exit 0;