Changeset 23146

Show
Ignore:
Timestamp:
17.10.2010 23:15:42 (9 years ago)
Author:
davidb
Message:

Believe I have found a 'magic' line of Perl code that will supress child DOS CMD windows from appearing on screen

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/cgi-bin/talkback-transfer.pl

    r23145 r23146  
    99use CGI;  
    1010 
    11 eval('require "./gsdlCGI.pm"'); 
    12 if ($@) 
    13 { 
    14     print STDOUT "Content-type:text/plain\n\n"; 
    15     print STDOUT "ERROR: $@\n"; 
    16     exit 0; 
     11BEGIN { 
     12    eval('require "./gsdlCGI.pm"'); 
     13    if ($@) 
     14    { 
     15    print STDOUT "Content-type:text/plain\n\n"; 
     16    print STDOUT "ERROR: $@\n"; 
     17    exit 0; 
     18    } 
     19 
     20    # Line to stop annoying child DOS CMD windows from appearing 
     21    Win32::SetChildShowWindow(0)  
     22    if defined &Win32::SetChildShowWindow; 
    1723} 
     24 
     25 
    1826 
    1927