/usr/share/doc/libsoap-lite-perl/examples/SOAP/Transport/HTTP/Daemon/ForkAfterProcessing.pm is in libsoap-lite-perl 0.714-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | package SOAP::Transport::HTTP::Daemon::ForkAfterProcessing;
use strict;
use vars qw(@ISA);
use SOAP::Transport::HTTP;
# Idea and implementation of Peter Fraenkel (Peter.Fraenkel@msdw.com)
@ISA = qw(SOAP::Transport::HTTP::Daemon);
sub handle {
my $self = shift->new;
CLIENT:
while (my $c = $self->accept) {
my $first = 1;
while (my $r = $c->get_request) {
$self->request($r);
$self->SOAP::Transport::HTTP::Server::handle;
if ($first && fork) { $first=0; $c->close; next CLIENT }
$c->send_response($self->response)
}
$c->close;
undef $c;
}
}
1;
|