Beta Shell v2.0

File Manager

~ /usr/share/doc/perl-SOAP-Lite/examples/SOAP/Transport/HTTP/Daemon

Name	Size	Perms	Modified	Actions
[ .. / .. ]
ForkAfterProcessing.pm	599 B	-rw-r--r--	2018-05-14 20:35:35	Edit Del
ForkOnAccept.pm	903 B	-rw-r--r--	2018-05-14 20:35:35	Edit Del

Editing: ForkOnAccept.pm (903 B)

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;