view release on metacpan or  search on metacpan

lib/Any/Daemon/FCGI/ClientConn.pm  view on Meta::CPAN

238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
      , id   => $req_id
      , host => $remote_host || $remote_ip;
 
    $self->keep_connection
        or $self->socket->shutdown(SHUT_RD);
 
    $request;
}
 
sub send_response($;$)
{   my ($self, $response, $stderr) = @_;
 
    #XXX Net::Async::FastCGI::Request demonstrates how to catch stdout and
    #XXX stderr via ties.  We don't use that here: cleanly work with
    #XXX HTTP::Message objects... errors are logged locally.
 
    my $req_id = $response->request->request_id;
 
    # Simply "Status: " in front of the Response header will make the whole
    # message HTTP::Response into a valid CGI response.
    $self->_reply_record(STDOUT => $req_id
      , 'Status: '.$response->as_string(CRLF));
    $self->_reply_record(STDOUT => $req_id, '');
 
    if($stderr && length $$stderr)
    {   $self->_reply_record(STDERR => $req_id, $$stderr);
        $self->_reply_record(STDERR => $req_id, '');
    }
 
    $self->_fcgi_end_request(REQUEST_COMPLETE => $req_id);
 
    $self->keep_connection
        or $self->socket->shutdown(SHUT_WR);
 
    $self;
}