]> i-scream Git - www.i-scream.org.git/commitdiff
Capture STDERR from all CGI scripts. This is purely so any errors are more apparent.
authorTim Bishop <tim@bishnet.net>
Sun, 6 May 2001 19:16:40 +0000 (19:16 +0000)
committerTim Bishop <tim@bishnet.net>
Sun, 6 May 2001 19:16:40 +0000 (19:16 +0000)
cgi-bin/cvswww-extract.cgi
cgi-bin/docs.cgi
cgi-bin/download.cgi

index e7b8db080f745c94112de7940e54f8205c508bac..099d8484687f103023d784fe04b82023d79c5ca8 100755 (executable)
@@ -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
 -->
 
 <html>
@@ -45,7 +45,7 @@ print << "EOF";
     <td valign="top">
 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";
     <td valign="top">
 EOF
 
-print `/usr/local/bin/wget -O - -q $title`;
+print `/usr/local/bin/wget -O - -q $title 2>&1`;
 
 print "<pre>\n";
 
@@ -61,16 +61,16 @@ print "<pre>\n";
 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`;
+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`;
+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`;
+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 "</pre>\n";
 
-print `/usr/local/bin/wget -O - -q $bottom`;
+print `/usr/local/bin/wget -O - -q $bottom 2>&1`;
 
 print << "EOF";
 
index f373219a07c7efb2fb0ed2ddabe0b97ce28616e7..0336e4c71b84c2fda82d3ef27e41e768fe4b42b2 100755 (executable)
@@ -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`;
 }
index 7134d478ef94a03b52e84efcbac1f69e6a58185b..6ac9978e14e91bff2e02a2414185f583d146a932 100755 (executable)
@@ -154,5 +154,5 @@ exit;
 # Print a file without escaping HTML: -
 sub print_html ($) {
     my ($filename) = @_;
-    print `cat $filename`;
+    print `cat $filename 2>&1`;
 }