view release on metacpan or  search on metacpan

lib/AnyEvent/SCGI.pm  view on Meta::CPAN

The first parameter is the C<AnyEvent::Handle> If the request has a payload, a
reference to it is passed in as the C<$content> parameter.

On error, C<\%env> and C<\$content> are undef and the usual C<$fatal> and
C<$error> parameters are passed in as subsequent arguments.  On "EOF" from the
client, fatal is "0" and error is 'EOF'.

=cut

sub scgi_server($$$) {
    my $host = shift;
    my $port = shift;
    my $cb = shift;
    return tcp_server $host, $port, sub { handle_scgi(@_,$cb) };
}

sub handle_scgi {
    my $fh = shift;
    my $host = shift;
    my $port = shift;