From: Tim Bishop Date: Sun, 6 May 2001 19:16:40 +0000 (+0000) Subject: Capture STDERR from all CGI scripts. This is purely so any errors are more apparent. X-Git-Tag: PRE_WWW_REDESIGN~217 X-Git-Url: http://git.i-scream.org/?a=commitdiff_plain;h=48b67c26519f0ce286801cd17ff095d8b436ee3e;p=www.i-scream.org.git Capture STDERR from all CGI scripts. This is purely so any errors are more apparent. --- diff --git a/cgi-bin/cvswww-extract.cgi b/cgi-bin/cvswww-extract.cgi index e7b8db0..099d848 100755 --- a/cgi-bin/cvswww-extract.cgi +++ b/cgi-bin/cvswww-extract.cgi @@ -29,7 +29,7 @@ print << "EOF"; cvswww-extract.cgi Script to extract webpages onto webserver Created by tdb1 20/10/2000 - Last modified 25/11/2000 + Last modified 06/05/2001 --> @@ -45,7 +45,7 @@ print << "EOF"; EOF -print `/usr/local/bin/wget -O - -q $left`; +print `/usr/local/bin/wget -O - -q $left 2>&1`; print << "EOF"; @@ -53,7 +53,7 @@ print << "EOF"; EOF -print `/usr/local/bin/wget -O - -q $title`; +print `/usr/local/bin/wget -O - -q $title 2>&1`; print "
\n";
 
@@ -61,16 +61,16 @@ print "
\n";
 if($site eq "raptor" && -e "/usr/local/proj/co600_10" && -d "/usr/local/proj/co600_10"){
 
 print "Debugging output from run on Raptor:\n";
-print `/usr/local/proj/co600_10/scripts/cvswww-extract-cmd`;
+print `/usr/local/proj/co600_10/scripts/cvswww-extract-cmd 2>&1`;
 
 print "\nDebugging output from cleanup:\n";
-print `/usr/local/proj/co600_10/scripts/cvswww-clean`;
+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 "Debugging output from extract:\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`;
+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{
@@ -79,7 +79,7 @@ else{
 
 print "
\n";
 
-print `/usr/local/bin/wget -O - -q $bottom`;
+print `/usr/local/bin/wget -O - -q $bottom 2>&1`;
 
 print << "EOF";
 
diff --git a/cgi-bin/docs.cgi b/cgi-bin/docs.cgi
index f373219..0336e4c 100755
--- a/cgi-bin/docs.cgi
+++ b/cgi-bin/docs.cgi
@@ -125,5 +125,5 @@ sub print_file ($) {
 # Print a file without escaping HTML: -
 sub print_html ($) {
     my ($filename) = @_;
-    print `cat $filename`;
+    print `cat $filename 2>&1`;
 }
diff --git a/cgi-bin/download.cgi b/cgi-bin/download.cgi
index 7134d47..6ac9978 100755
--- a/cgi-bin/download.cgi
+++ b/cgi-bin/download.cgi
@@ -154,5 +154,5 @@ exit;
 # Print a file without escaping HTML: -
 sub print_html ($) {
     my ($filename) = @_;
-    print `cat $filename`;
+    print `cat $filename 2>&1`;
 }