view release on metacpan or  search on metacpan

CAB/Server/HTTP.pm  view on Meta::CPAN

  my $daemon = $srv->{daemon};
  my $mode   = $srv->{daemonMode} || 'serial';
  my $cclass = $srv->clientClass;
  my $bgConnectTimeout = $srv->{bgConnectTimeout} || 0;
  $srv->info("server starting in $mode mode on ", $srv->daemonLabel, "\n");

  ##-- setup SIGPIPE handler (avoid heinous death)
  ##  + following suggestion on http://www.perlmonks.org/?node_id=580411
  $SIG{PIPE} = sub { ++$srv->{nErrors}; $srv->vlog('warn',"got SIGPIPE (ignoring)"); };

  ##-- HACK: set HTTP::Daemon protocol to HTTP 1.0 (avoid keepalive)
  $HTTP::Daemon::PROTO = "HTTP/1.0";

  my ($csock,$chost,$hreq,$urikey,$forkable,$cacheable,$handler,$localPath,$pid,$rsp);
  my ($fdset);
  while (1) {
    ##-- track total processing time for *last* query
    $srv->qtfinish();

    ##-- call accept() within the loop to avoid breaking out in fork mode
    if (!defined($csock=$daemon->accept())) {