- Timestamp:
- 2010-12-13T22:51:35+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/cgi-bin/metadata-server.pl
r23404 r23467 1 #!C:\\Perl\\bin\\perl -w 2 # Need to specify the full path of Perl above 1 #!/usr/bin/perl -w 2 ##!C:\\Perl\\bin\\perl -w 3 # If not explicitly associating .pl filename ending with Perl in the 4 # web server's configuration file, then need to specify the full path of 5 # Perl above 3 6 4 7 use strict; … … 6 9 BEGIN { 7 10 # Line to stop annoying child DOS CMD windows from appearing 8 Win32::SetChildShowWindow(0) 9 if defined &Win32::SetChildShowWindow; 11 Win32::SetChildShowWindow(0) 12 if defined &Win32::SetChildShowWindow; 13 10 14 } 11 15 … … 14 18 15 19 16 # IIS 6: for some reason, IIS runs this script with the working directory set to the Greenstone 17 # directory rather than the cgi-bin directory, causing lots of stuff to fail 20 # IIS 6: for some reason, IIS runs this script with the working 21 # directory set to the Greenstone directory rather than the cgi-bin 22 # directory, causing lots of stuff to fail 18 23 if ($iis6_mode) 19 24 { … … 23 28 24 29 25 # We use require and an eval here (instead of "use") to catch any errors loading the module (for IIS) 26 eval("require \"gsdlCGI.pm\""); 30 # We use require and an eval here (instead of "use") to catch any 31 # errors loading the module (for IIS) 32 eval('require "./gsdlCGI.pm"'); 27 33 if ($@) 28 34 {
Note:
See TracChangeset
for help on using the changeset viewer.