EVOLUTION-MANAGER

Edit File: ForkOnAccept.pm

package SOAP::Transport::HTTP::Daemon::ForkOnAccept; use strict; use vars qw(@ISA); use SOAP::Transport::HTTP; # Idea and implementation of Michael Douglass @ISA = qw(SOAP::Transport::HTTP::Daemon); sub handle { my $self = shift->new; CLIENT: while (my $c = $self->accept) { my $pid = fork(); # We are going to close the new connection on one of two conditions # 1. The fork failed ($pid is undefined) # 2. We are the parent ($pid != 0) unless( defined $pid && $pid == 0 ) { $c->close; next; } # From this point on, we are the child. $self->close; # Close the listening socket (always done in children) # Handle requests as they come in while (my $r = $c->get_request) { $self->request($r); $self->SOAP::Transport::HTTP::Server::handle; $c->send_response($self->response); } $c->close; return; } } 1;