Changeset 23468 for main/trunk/greenstone2
- Timestamp:
- 2010-12-13T22:52:58+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/cgi-bin/gsdlCGI.pm
r23403 r23468 12 12 13 13 @gsdlCGI::ISA = ( 'CGI' ); 14 15 our $server_software; 16 our $server_version; 17 18 sub BEGIN { 19 $server_software = $ENV{'SERVER_SOFTWARE'}; 20 21 if (defined $server_software) { 22 if ($server_software =~ m/^Microsoft-IIS\/(.*)$/) { 23 $server_version = $1; 24 } 25 } 26 } 27 14 28 15 29 sub prenew { … … 442 456 $ENV{'GSDLOS'} = $gsdlos; 443 457 458 if (defined $server_software) { 459 if ($server_software =~ m/^Microsoft-IIS/) { 460 # Printing to STDERR, by default, goes to the web page in IIS 461 # Send it instead to Greenstone's error.txt 462 463 my $error_filename = "$gsdlhome/etc/error.txt"; # OK for Windows 464 open STDERR, ">> $error_filename" 465 or die "Can't write to $error_filename: $!\n"; 466 binmode STDERR; 467 } 468 } 444 469 445 470 my $library_url = $self->get_library_url_suffix(); # best to have GSDLOS set beforehand
Note:
See TracChangeset
for help on using the changeset viewer.