Changeset 23468 for main/trunk/greenstone2

Timestamp:

2010-12-13T22:52:58+13:00 (13 years ago)

Author:

davidb

Message:

Printing to STDERR in IIS sends output (be default) to the web page. This modification detects that is is IIS from the environment variable SERVER_SOFTWARE and redirects STDERR to Greenstone's error.txt file.

File:

• main/trunk/greenstone2/cgi-bin/gsdlCGI.pm (modified) (2 diffs)

main/trunk/greenstone2/cgi-bin/gsdlCGI.pm

@@ -12 +12 @@
 
 @gsdlCGI::ISA = ( 'CGI' ); 
+
+our $server_software;
+our $server_version;
+
+sub BEGIN {
+    $server_software = $ENV{'SERVER_SOFTWARE'};
+
+    if (defined $server_software) {
+    if ($server_software =~ m/^Microsoft-IIS\/(.*)$/) {
+        $server_version = $1;
+    }
+    }
+}
+
 
 sub prenew {
@@ -442 +456 @@
     $ENV{'GSDLOS'} = $gsdlos;
 
+    if (defined $server_software) {
+    if ($server_software =~ m/^Microsoft-IIS/) {
+        # Printing to STDERR, by default, goes to the web page in IIS
+        # Send it instead to Greenstone's error.txt
+        
+        my $error_filename = "$gsdlhome/etc/error.txt"; # OK for Windows
+        open STDERR, ">> $error_filename"
+        or  die "Can't write to $error_filename: $!\n";
+        binmode STDERR;
+    }
+    }
 
     my $library_url = $self->get_library_url_suffix(); # best to have GSDLOS set beforehand