in reply to Re^2: Running detached processes with Activeperl under IIS
in thread Running detached processes with Activeperl under IIS

As error reports go, "but it still waits" is not very helpful......

I'd suggest that you try CREATE_NEW_CONSOLE instead of DETACHED_PROCESS...

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."

Replies are listed 'Best First'.
Re^4: Running detached processes with Activeperl under IIS
by Jules (Initiate) on May 12, 2009 at 15:37 UTC

    Sorry...."but it still waits" was to mean, the parent cgi still waits for the console application to complete. No change from using CREATE_NEW_CONSOLE either.

    Why does Windows have to be such a pita?

[reply]
[d/l]

      still waits for the console application t

      Well that's fishy. It can't be detached from and attached to the console at the same time.

      Why does Windows have to be such a pita?

      You have to close the handles and muck with process groups and signals in unix. No easier.

      There are valid complaints against Microsoft and Windows (parameter passing to processes, as a related example), but mind the baseless bashing. DETACHED_PROCESS works fine, and there's nothing complicated about it. 

      # launcher.pl

use strict;
use warnings;

use Win32;
use Win32::Process;

sub ErrorReport{
   return Win32::FormatMessage( Win32::GetLastError() );
}

my $detached = $ARGV[0];

unlink('foo');

Win32::Process::Create(
   my $ProcessObj,
   "c:\\progs\\perl5100\\bin\\perl.exe",
   q{perl.exe -le"sleep 5; open $fh, '>foo' or die $!; print 'done'"},
   0,
   NORMAL_PRIORITY_CLASS | ($detached ? DETACHED_PROCESS : 0),
   '.',
)
   or die ErrorReport();

      [download]
      >perl -e"print `perl launcher.pl 0`" & dir /b foo
[waits 5 seconds]
done
foo

>perl -e"print `perl launcher.pl 1`" & dir /b foo
[returns immediately]
File Not Found

>perl -e"sleep 5" & dir /b foo
foo

      [download]

      Are you using use strict;?

[reply]
[d/l]
[select]

        I feel like such a doofus sometimes....

        I had commented out use strict while trying to get it working earlier, and left it out (back when I was trying system and exec). I put it back in, and got the "incomplete http headers" message that our server gives when I have an error...and it dawned on me....

        My code was:

        use strict;
use warnings;

my $child_pid;
my $child_proc;

print qq~
<html><head><title></title><body>
~;

print qq~Testing2<br /><br />~;

require Win32::Process;

Win32::Process::Create($child_proc, "D:/ipms/bin/Medicaid/Console/Medi
+caidEHRService.exe", "MedicaidEHRService 123456", 0, DETACHED_PROCESS
+, ".") || print "Could not spawn child: $!";

print qq~</body></html>
~;

        [download]

        I changed it to:

        use strict;
use warnings;
use Win32;
use Win32::Process;


my $child_pid;
my $child_proc;

print qq~
<html><head><title></title><body>
~;

print qq~Testing2<br /><br />~;

Win32::Process::Create($child_proc, "D:/ipms/bin/Medicaid/Console/Medi
+caidEHRService.exe", "MedicaidEHRService 123456", 0, DETACHED_PROCESS
+, ".") || print "Could not spawn child: $!";

print qq~</body></html>
~;

        [download]

        And guess what...it works! Now I need to go put it in the real code.

        Thanks for all your help!

[reply]
[d/l]
[select]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom