Re^6: Running detached processes with Activeperl under IIS

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!

Comment on Re^6: Running detached processes with Activeperl under IIS Select or Download Code