]> i-scream Git - www.i-scream.org.git/commitdiff
We no longer need to use this. It's all automated now :-)
authorTim Bishop <tim@bishnet.net>
Wed, 6 Jun 2001 16:39:28 +0000 (16:39 +0000)
committerTim Bishop <tim@bishnet.net>
Wed, 6 Jun 2001 16:39:28 +0000 (16:39 +0000)
cgi-bin/cvswww-extract.cgi [deleted file]

diff --git a/cgi-bin/cvswww-extract.cgi b/cgi-bin/cvswww-extract.cgi
deleted file mode 100755 (executable)
index 099d848..0000000
+++ /dev/null
@@ -1,95 +0,0 @@
-#!/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;