Changeset 23146 for main/trunk


Ignore:
Timestamp:
2010-10-17T23:15:42+13:00 (14 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

File:
1 edited

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
Note: See TracChangeset for help on using the changeset viewer.