Apache2::SubProcess sucks

Seriously, you know what, the code below doesn't even work.

And if I get rid of the redirect and replace it with some nice pretty text:

print "Content-type: text/html\n\nTesting";

You know what?  The warning for 1 (from the 'for' loop) is printed and 
then it all stops, probably as the browser connection "closes".

Hiding it behind more forks made it work once but then never again.

So it is my belief that Apache2::SubProcess sucks dirty things, and that 
belief won't change until I see proof to the contrary.

On a related note, anyone have tips for avoiding zombies in CGI forking?

Tosh



Tosh Cooey wrote:
> Hi after much trial and all error I am seeing that the browser 
> connection closing is also stopping my subprocess.
> 
> The main ModPerl::Registry program looks like this:
> ### file.pl ###
> use Apache2::SubProcess ();
> use JSON();
> 
> &main(shift);
> 
> sub main {
>   my $r = shift;
>   ...
>   $r->spawn_proc_prog ('/web/html/file_fork.pl', \@argv);
>   return print $cgi->redirect('index.pl');
> }
> ###
> 
> And
> 
> ### file_fork.pl ###
> use JSON();
> use warnings;
> use POSIX 'setsid';
> chdir '/'                or die "Can't chdir to /: $!";
> open STDIN, '/dev/null'  or die "Can't read /dev/null: $!";
> open STDOUT, '+>>', '/tmp/debug.txt' or die "Can't write to 
> /tmp/debug.txt: $!";
> open STDERR, '>&STDOUT'  or die "Can't dup stdout: $!";
> setsid or die "Can't start a new session: $!";
> 
>   # run your code here or call exec to another program
> foreach my $num (1..10) {
>   warn $num;
>   sleep(1);
> }
> ###
> 
> When file.pl is executed it calls file_fork.pl and file_fork starts to 
> print 1, 2, 3 and then stops around 2 or 3 depending on how long my 
> browser is connected.
> 
> Are there any glaring errors that anyone sees?  It should work shouldn't 
> it, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 after 10 seconds...
> 
> Thank-you all!
> 
> Tosh
> 
> 

-- 
McIntosh Cooey - Twelve Hundred Group LLC - http://www.1200group.com/