Changeset 23404 for main/trunk/greenstone2/cgi-bin/metadata-server.pl

Timestamp:

2010-12-07T17:02:31+13:00 (13 years ago)

Author:

max

Message:

Magic one liner that stops the flash DOS CMD window problem!

File:

• main/trunk/greenstone2/cgi-bin/metadata-server.pl (modified) (2 diffs)

main/trunk/greenstone2/cgi-bin/metadata-server.pl

@@ -1 @@
-#!/usr/bin/perl -w 
+#!C:\\Perl\\bin\\perl -w 
 # Need to specify the full path of Perl above
-
 
 use strict;
 
+BEGIN {
+    # Line to stop annoying child DOS CMD windows from appearing
+    Win32::SetChildShowWindow(0)
+        if defined &Win32::SetChildShowWindow;
+}
 
 # Set this to 1 to work around IIS 6 craziness
@@ -36 +40 @@
     # Load the Greenstone modules that we need to use
     $gsdl_cgi->setup_gsdl();
-
+    
     my $gsdlhome = $ENV{'GSDLHOME'};
     $gsdl_cgi->checked_chdir($gsdlhome);