summaryrefslogtreecommitdiffstats
path: root/debian/vendor-h2o/misc/p5-net-fastcgi/lib
diff options
context:
space:
mode:
Diffstat (limited to 'debian/vendor-h2o/misc/p5-net-fastcgi/lib')
-rw-r--r--debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI.pm12
-rw-r--r--debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI.pod170
-rw-r--r--debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/Constant.pm179
-rw-r--r--debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/Constant.pod264
-rw-r--r--debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/IO.pm227
-rw-r--r--debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/IO.pod391
-rw-r--r--debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/Protocol.pm203
-rw-r--r--debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/Protocol.pod1227
-rw-r--r--debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/Protocol/PP.pm429
9 files changed, 0 insertions, 3102 deletions
diff --git a/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI.pm b/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI.pm
deleted file mode 100644
index 4126b21..0000000
--- a/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI.pm
+++ /dev/null
@@ -1,12 +0,0 @@
-package Net::FastCGI;
-
-use strict;
-use warnings;
-
-our $VERSION = '0.14';
-
-use Net::FastCGI::Constant;
-use Net::FastCGI::Protocol;
-
-1;
-
diff --git a/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI.pod b/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI.pod
deleted file mode 100644
index 65725b9..0000000
--- a/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI.pod
+++ /dev/null
@@ -1,170 +0,0 @@
-=head1 NAME
-
-Net::FastCGI - FastCGI Toolkit
-
-=head1 DESCRIPTION
-
-This distribution aims to provide a complete API for working with the FastCGI
-protocol.
-
-The primary goal is to provide a function oriented and object oriented API which
-are not tied to a specific I/O model or framework.
-
-Secondary goal is to provide higher level tools/API which can be used for debugging
-and interoperability testing.
-
-=head1 PROGRESS
-
-The function oriented API is considered feature complete. L<Net::FastCGI::Protocol>
-provides functions to build and parse all FastCGI v1.0 messages, also provided is a
-few convenient higher level functions such as C<build_begin_request()>,
-C<build_end_request()>, C<parse_record()> and C<dump_record()>.
-
-Work has begun on object oriented implementation and a simple blocking I/O class which is
-intended for testing and debugging.
-
-=head1 PACKAGES
-
-=over 4
-
-=item L<Net::FastCGI::Constant>
-
-FastCGI protocol constants.
-
-=item L<Net::FastCGI::IO>
-
-Provides functions to read and write FastCGI messages.
-
-=item L<Net::FastCGI::Protocol>
-
-Provides functions to build and parse FastCGI messages.
-
-=back
-
-=head1 ENVIRONMENT
-
-Environment variable C<NET_FASTCGI_PP> can be set to a true value before loading
-this package to disable usage of XS implementation.
-
-=head1 PREREQUISITES
-
-=head2 Run-Time
-
-=over 4
-
-=item L<perl> 5.6 or greater.
-
-=item L<Carp>, core module.
-
-=item L<Exporter>, core module.
-
-=back
-
-=head2 Build-Time
-
-In addition to Run-Time:
-
-=over 4
-
-=item L<Test::More> 0.47 or greater, core module since 5.6.2.
-
-=item L<Test::Exception>.
-
-=item L<Test::HexString>.
-
-=back
-
-=head1 SEE ALSO
-
-=head2 Community
-
-=over 4
-
-=item Official FastCGI site
-
-L<http://www.fastcgi.com/>
-
-=back
-
-=head2 Standards
-
-=over 4
-
-=item FastCGI Specification Version 1.0
-
-L<http://www.fastcgi.com/devkit/doc/fcgi-spec.html>
-
-=item RFC 3875 - The Common Gateway Interface (CGI) Version 1.1
-
-L<http://tools.ietf.org/html/rfc3875>
-
-=back
-
-=head2 White papers
-
-=over 4
-
-=item FastCGI: A High-Performance Web Server Interface
-
-L<http://www.fastcgi.com/devkit/doc/fastcgi-whitepaper/fastcgi.htm>
-
-=item FastCGI - The Forgotten Treasure
-
-L<http://cryp.to/publications/fastcgi/>
-
-=back
-
-=head2 Perl implementations
-
-=over 4
-
-=item L<AnyEvent::FCGI>
-
-Application server implementation, built on top of L<AnyEvent>. Supports Responder role.
-Capable of multiplexing.
-
-=item L<FCGI>
-
-Application server implementation, built on top of C<libfcgi> (reference implementation).
-Supports all FastCGI roles. Responds to management records. Processes requests synchronously.
-
-=item L<FCGI::Async>
-
-Application server implementation, built on top of L<IO::Async>. Supports Responder role.
-Responds to management records. Capable of multiplexing.
-
-=item L<FCGI::Client>
-
-Client (Web server) implementation. Supports Responder role.
-
-=item L<FCGI::EV>
-
-Application server implementation, built on top of L<EV>. Supports Responder role.
-
-=item L<Mojo::Server::FastCGI>
-
-Application server implementation. Supports Responder role. Processes requests synchronously.
-
-=item L<POE::Component::FastCGI>
-
-Application server implementation, built on top of L<POE>. Supports Responder role.
-Capable of multiplexing.
-
-=back
-
-=head1 SUPPORT
-
-Please report any bugs or feature requests to C<bug-net-fastcgi@rt.cpan.org>, or through
-the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Net-FastCGI>
-
-=head1 AUTHOR
-
-Christian Hansen C<chansen@cpan.org>
-
-=head1 COPYRIGHT
-
-Copyright 2008-2010 by Christian Hansen.
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
diff --git a/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/Constant.pm b/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/Constant.pm
deleted file mode 100644
index 1e86dbf..0000000
--- a/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/Constant.pm
+++ /dev/null
@@ -1,179 +0,0 @@
-package Net::FastCGI::Constant;
-
-use strict;
-use warnings;
-
-BEGIN {
- our $VERSION = '0.14';
- my @common = qw[ FCGI_MAX_CONTENT_LEN
- FCGI_MAX_LEN
- FCGI_HEADER_LEN
- FCGI_VERSION_1
- FCGI_NULL_REQUEST_ID ];
-
- my @type = qw[ FCGI_BEGIN_REQUEST
- FCGI_ABORT_REQUEST
- FCGI_END_REQUEST
- FCGI_PARAMS
- FCGI_STDIN
- FCGI_STDOUT
- FCGI_STDERR
- FCGI_DATA
- FCGI_GET_VALUES
- FCGI_GET_VALUES_RESULT
- FCGI_UNKNOWN_TYPE
- FCGI_MAXTYPE ];
-
- my @role = qw[ FCGI_RESPONDER
- FCGI_AUTHORIZER
- FCGI_FILTER ];
-
- my @flag = qw[ FCGI_KEEP_CONN ];
-
- my @protocol_status = qw[ FCGI_REQUEST_COMPLETE
- FCGI_CANT_MPX_CONN
- FCGI_OVERLOADED
- FCGI_UNKNOWN_ROLE ];
-
- my @value = qw[ FCGI_MAX_CONNS
- FCGI_MAX_REQS
- FCGI_MPXS_CONNS ];
-
- my @pack = qw[ FCGI_Header
- FCGI_BeginRequestBody
- FCGI_EndRequestBody
- FCGI_UnknownTypeBody ];
-
- my @name = qw[ @FCGI_TYPE_NAME
- @FCGI_RECORD_NAME
- @FCGI_ROLE_NAME
- @FCGI_PROTOCOL_STATUS_NAME ];
-
- our @EXPORT_OK = ( @common,
- @type,
- @role,
- @flag,
- @protocol_status,
- @value,
- @pack,
- @name );
-
- our %EXPORT_TAGS = ( all => \@EXPORT_OK,
- common => \@common,
- type => \@type,
- role => \@role,
- flag => \@flag,
- protocol_status => \@protocol_status,
- value => \@value,
- pack => \@pack );
-
- our @FCGI_TYPE_NAME = (
- undef, # 0
- 'FCGI_BEGIN_REQUEST', # 1
- 'FCGI_ABORT_REQUEST', # 2
- 'FCGI_END_REQUEST', # 3
- 'FCGI_PARAMS', # 4
- 'FCGI_STDIN', # 5
- 'FCGI_STDOUT', # 6
- 'FCGI_STDERR', # 7
- 'FCGI_DATA', # 8
- 'FCGI_GET_VALUES', # 9
- 'FCGI_GET_VALUES_RESULT', # 10
- 'FCGI_UNKNOWN_TYPE' # 11
- );
-
- our @FCGI_RECORD_NAME = (
- undef, # 0
- 'FCGI_BeginRequestRecord', # 1
- 'FCGI_AbortRequestRecord', # 2
- 'FCGI_EndRequestRecord', # 3
- 'FCGI_ParamsRecord', # 4
- 'FCGI_StdinRecord', # 5
- 'FCGI_StdoutRecord', # 6
- 'FCGI_StderrRecord', # 7
- 'FCGI_DataRecord', # 8
- 'FCGI_GetValuesRecord', # 9
- 'FCGI_GetValuesResultRecord', # 10
- 'FCGI_UnknownTypeRecord', # 11
- );
-
- our @FCGI_ROLE_NAME = (
- undef, # 0
- 'FCGI_RESPONDER', # 1
- 'FCGI_AUTHORIZER', # 2
- 'FCGI_FILTER', # 3
- );
-
- our @FCGI_PROTOCOL_STATUS_NAME = (
- 'FCGI_REQUEST_COMPLETE', # 0
- 'FCGI_CANT_MPX_CONN', # 1
- 'FCGI_OVERLOADED', # 2
- 'FCGI_UNKNOWN_ROLE', # 3
- );
-
- if (Internals->can('SvREADONLY')) { # 5.8
- Internals::SvREADONLY(@FCGI_TYPE_NAME, 1);
- Internals::SvREADONLY(@FCGI_RECORD_NAME, 1);
- Internals::SvREADONLY(@FCGI_ROLE_NAME, 1);
- Internals::SvREADONLY(@FCGI_PROTOCOL_STATUS_NAME, 1);
- Internals::SvREADONLY($_, 1) for @FCGI_TYPE_NAME,
- @FCGI_RECORD_NAME,
- @FCGI_ROLE_NAME,
- @FCGI_PROTOCOL_STATUS_NAME;
- }
-
- require Exporter;
- *import = \&Exporter::import;
-}
-
-
-sub FCGI_LISTENSOCK_FILENO () { 0 }
-
-# common
-sub FCGI_MAX_CONTENT_LEN () { 0xFFFF }
-sub FCGI_MAX_LEN () { 0xFFFF } # deprecated
-sub FCGI_HEADER_LEN () { 8 }
-sub FCGI_VERSION_1 () { 1 }
-sub FCGI_NULL_REQUEST_ID () { 0 }
-
-# type
-sub FCGI_BEGIN_REQUEST () { 1 }
-sub FCGI_ABORT_REQUEST () { 2 }
-sub FCGI_END_REQUEST () { 3 }
-sub FCGI_PARAMS () { 4 }
-sub FCGI_STDIN () { 5 }
-sub FCGI_STDOUT () { 6 }
-sub FCGI_STDERR () { 7 }
-sub FCGI_DATA () { 8 }
-sub FCGI_GET_VALUES () { 9 }
-sub FCGI_GET_VALUES_RESULT () { 10 }
-sub FCGI_UNKNOWN_TYPE () { 11 }
-sub FCGI_MAXTYPE () { FCGI_UNKNOWN_TYPE }
-
-# role
-sub FCGI_RESPONDER () { 1 }
-sub FCGI_AUTHORIZER () { 2 }
-sub FCGI_FILTER () { 3 }
-
-# flags
-sub FCGI_KEEP_CONN () { 1 }
-
-# protocol status
-sub FCGI_REQUEST_COMPLETE () { 0 }
-sub FCGI_CANT_MPX_CONN () { 1 }
-sub FCGI_OVERLOADED () { 2 }
-sub FCGI_UNKNOWN_ROLE () { 3 }
-
-# value
-sub FCGI_MAX_CONNS () { 'FCGI_MAX_CONNS' }
-sub FCGI_MAX_REQS () { 'FCGI_MAX_REQS' }
-sub FCGI_MPXS_CONNS () { 'FCGI_MPXS_CONNS' }
-
-# pack
-sub FCGI_Header () { 'CCnnCx' }
-sub FCGI_BeginRequestBody () { 'nCx5' }
-sub FCGI_EndRequestBody () { 'NCx3' }
-sub FCGI_UnknownTypeBody () { 'Cx7' }
-
-1;
-
diff --git a/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/Constant.pod b/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/Constant.pod
deleted file mode 100644
index d0ca04c..0000000
--- a/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/Constant.pod
+++ /dev/null
@@ -1,264 +0,0 @@
-=head1 NAME
-
-Net::FastCGI::Constant - FastCGI protocol constants.
-
-=head1 DESCRIPTION
-
-FastCGI protocol constants.
-
-=head1 CONSTANTS
-
-Constants can either be imported individually or in sets grouped by tag names.
-The tag names are:
-
-=head2 C<:common>
-
-=over 4
-
-=item C<FCGI_MAX_CONTENT_LEN>
-
-Maximum number of octets that the content component of the record can hold. (C<65535>)
-
-=item C<FCGI_HEADER_LEN>
-
-Number of octets in C<FCGI_Header>. (C<8>)
-
-=item C<FCGI_VERSION_1>
-
-Value for C<version> component of C<FCGI_Header>. (C<1>)
-
-=item C<FCGI_NULL_REQUEST_ID>
-
-Value for C<request_id> component of C<FCGI_Header>. (C<0>)
-
-=back
-
-=head2 C<:type>
-
-Values for C<type> component of C<FCGI_Header>.
-
-=over 4
-
-=item C<FCGI_BEGIN_REQUEST>
-
-=item C<FCGI_ABORT_REQUEST>
-
-=item C<FCGI_END_REQUEST>
-
-=item C<FCGI_PARAMS>
-
-=item C<FCGI_STDIN>
-
-=item C<FCGI_STDOUT>
-
-=item C<FCGI_STDERR>
-
-=item C<FCGI_DATA>
-
-=item C<FCGI_GET_VALUES>
-
-=item C<FCGI_GET_VALUES_RESULT>
-
-=item C<FCGI_UNKNOWN_TYPE>
-
-=item C<FCGI_MAXTYPE>
-
-=back
-
-=head2 C<:flag>
-
-Mask for C<flags> component of C<FCGI_BeginRequestBody>.
-
-=over 4
-
-=item C<FCGI_KEEP_CONN>
-
-=back
-
-=head2 C<:role>
-
-Values for C<role> component of C<FCGI_BeginRequestBody>.
-
-=over 4
-
-=item C<FCGI_RESPONDER>
-
-=item C<FCGI_AUTHORIZER>
-
-=item C<FCGI_FILTER>
-
-=back
-
-=head2 C<:protocol_status>
-
-Values for C<protocol_status> component of C<FCGI_EndRequestBody>.
-
-=over 4
-
-=item C<FCGI_REQUEST_COMPLETE>
-
-=item C<FCGI_CANT_MPX_CONN>
-
-=item C<FCGI_OVERLOADED>
-
-=item C<FCGI_UNKNOWN_ROLE>
-
-=back
-
-=head2 C<:value>
-
-Variable names for C<FCGI_GET_VALUES> / C<FCGI_GET_VALUES_RESULT> records.
-
-=over 4
-
-=item C<FCGI_MAX_CONNS>
-
-=item C<FCGI_MAX_REQS>
-
-=item C<FCGI_MPXS_CONNS>
-
-=back
-
-=head2 C<:pack>
-
-C<pack()> / C<unpack()> templates
-
-=over 4
-
-=item C<FCGI_Header>
-
- Octet/ 0 | 1 |
- / | |
- | 0 1 2 3 4 5 6 7 | 0 1 2 3 4 5 6 7 |
- +-----------------+-----------------+
- 0 | Version | Type |
- +-----------------+-----------------+
- 2 | Request ID |
- +-----------------+-----------------+
- 4 | Content Length |
- +-----------------+-----------------+
- 6 | Padding Length | Reserved |
- +-----------------+-----------------+
- Total 8 octets
-
- Template: CCnnCx
-
- my ($version, $type, $request_id, $content_length, $padding_length)
- = unpack(FCGI_Header, $octets);
-
-=item C<FCGI_BeginRequestBody>
-
- Octet/ 0 | 1 |
- / | |
- | 0 1 2 3 4 5 6 7 | 0 1 2 3 4 5 6 7 |
- +-----------------+-----------------+
- 0 | Role |
- +-----------------+-----------------+
- 2 | Flags | |
- +-----------------+ +
- 4 | |
- + Reserved +
- 6 | |
- +-----------------+-----------------+
- Total 8 octets
-
- Template: nCx5
-
- my ($role, $flags) = unpack(FCGI_BeginRequestBody, $octets);
-
-=item C<FCGI_EndRequestBody>
-
- Octet/ 0 | 1 |
- / | |
- | 0 1 2 3 4 5 6 7 | 0 1 2 3 4 5 6 7 |
- +-----------------+-----------------+
- 0 | |
- + Application Status +
- 2 | |
- +-----------------+-----------------+
- 4 | Protocol Status | |
- +-----------------+ Reserved +
- 6 | |
- +-----------------+-----------------+
- Total 8 octets
-
- Template: NCx3
-
- my ($app_status, $protocol_status)
- = unpack(FCGI_EndRequestBody, $octets);
-
-=item C<FCGI_UnknownTypeBody>
-
- Octet/ 0 | 1 |
- / | |
- | 0 1 2 3 4 5 6 7 | 0 1 2 3 4 5 6 7 |
- +-----------------+-----------------+
- 0 | Unknown Type | |
- +-----------------+ +
- 2 | |
- + +
- 4 | Reserved |
- + +
- 6 | |
- +-----------------+-----------------+
- Total 8 octets
-
- Template: Cx7
-
- my $unknown_type = unpack(FCGI_UnknownTypeBody, $octets);
-
-=back
-
-=head2 C<:name>
-
-Arrays containing names of value components. These are read-only.
-
-=over 4
-
-=item C<@FCGI_TYPE_NAME>
-
- print $FCGI_TYPE_NAME[FCGI_BEGIN_REQUEST]; # FCGI_BEGIN_REQUEST
-
-=item C<@FCGI_ROLE_NAME>
-
- print $FCGI_ROLE_NAME[FCGI_RESPONDER]; # FCGI_RESPONDER
-
-=item C<@FCGI_PROTOCOL_STATUS_NAME>
-
- print $FCGI_PROTOCOL_STATUS_NAME[FCGI_OVERLOADED]; # FCGI_OVERLOADED
-
-=back
-
-I<Note>
-
-It's not safe to assume that C<exists> works for validation purposes, index C<0>
-might be C<undef>.
-
-Use boolean context instead:
-
- ($FCGI_TYPE_NAME[$type])
- || die;
-
-=head1 EXPORTS
-
-None by default. All functions can be exported using the C<:all> tag or individually.
-
-=head1 SEE ALSO
-
-=over 4
-
-=item L<http://www.fastcgi.com/devkit/doc/fcgi-spec.html>
-
-=back
-
-=head1 AUTHOR
-
-Christian Hansen C<chansen@cpan.org>
-
-=head1 COPYRIGHT
-
-Copyright 2008-2010 by Christian Hansen.
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
diff --git a/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/IO.pm b/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/IO.pm
deleted file mode 100644
index 15583fb..0000000
--- a/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/IO.pm
+++ /dev/null
@@ -1,227 +0,0 @@
-package Net::FastCGI::IO;
-use strict;
-use warnings;
-use warnings::register;
-
-use Carp qw[];
-use Errno qw[EBADF EINTR EPIPE];
-use Net::FastCGI::Constant qw[FCGI_HEADER_LEN];
-use Net::FastCGI::Protocol qw[build_header build_record build_stream
- parse_header parse_record];
-
-BEGIN {
- our $VERSION = '0.14';
- our @EXPORT_OK = qw[ can_read
- can_write
- read_header
- read_record
- write_header
- write_record
- write_stream ];
-
- our %EXPORT_TAGS = ( all => \@EXPORT_OK );
-
- require Exporter;
- *import = \&Exporter::import;
-
- eval q<use Time::HiRes 'time'>;
-}
-
-*throw = \&Carp::croak;
-
-sub read_header {
- @_ == 1 || throw(q/Usage: read_header(fh)/);
- my ($fh) = @_;
-
- my $len = FCGI_HEADER_LEN;
- my $off = 0;
- my $buf;
-
- while ($len) {
- my $r = sysread($fh, $buf, $len, $off);
- if (defined $r) {
- last unless $r;
- $len -= $r;
- $off += $r;
- }
- elsif ($! != EINTR) {
- warnings::warn(qq<FastCGI: Could not read FCGI_Header: '$!'>)
- if warnings::enabled;
- return;
- }
- }
- if ($len) {
- $! = $off ? EPIPE : 0;
- warnings::warn(q<FastCGI: Could not read FCGI_Header: Unexpected end of stream>)
- if $off && warnings::enabled;
- return;
- }
- return parse_header($buf);
-}
-
-sub write_header {
- @_ == 5 || throw(q/Usage: write_header(fh, type, request_id, content_length, padding_length)/);
- my $fh = shift;
-
- my $buf = &build_header;
- my $len = FCGI_HEADER_LEN;
- my $off = 0;
-
- while () {
- my $r = syswrite($fh, $buf, $len, $off);
- if (defined $r) {
- $len -= $r;
- $off += $r;
- last unless $len;
- }
- elsif ($! != EINTR) {
- warnings::warn(qq<FastCGI: Could not write FCGI_Header: '$!'>)
- if warnings::enabled;
- return undef;
- }
- }
- return $off;
-}
-
-sub read_record {
- @_ == 1 || throw(q/Usage: read_record(fh)/);
- my ($fh) = @_;
-
- my $len = FCGI_HEADER_LEN;
- my $off = 0;
- my $buf;
-
- while ($len) {
- my $r = sysread($fh, $buf, $len, $off);
- if (defined $r) {
- last unless $r;
- $len -= $r;
- $off += $r;
- if (!$len && $off == FCGI_HEADER_LEN) {
- $len = vec($buf, 2, 16) # Content Length
- + vec($buf, 6, 8); # Padding Length
- }
- }
- elsif ($! != EINTR) {
- warnings::warn(qq<FastCGI: Could not read FCGI_Record: '$!'>)
- if warnings::enabled;
- return;
- }
- }
- if ($len) {
- $! = $off ? EPIPE : 0;
- warnings::warn(q<FastCGI: Could not read FCGI_Record: Unexpected end of stream>)
- if $off && warnings::enabled;
- return;
- }
- return parse_record($buf);
-}
-
-sub write_record {
- @_ == 4 || @_ == 5 || throw(q/Usage: write_record(fh, type, request_id [, content])/);
- my $fh = shift;
-
- my $buf = &build_record;
- my $len = length $buf;
- my $off = 0;
-
- while () {
- my $r = syswrite($fh, $buf, $len, $off);
- if (defined $r) {
- $len -= $r;
- $off += $r;
- last unless $len;
- }
- elsif ($! != EINTR) {
- warnings::warn(qq<FastCGI: Could not write FCGI_Record: '$!'>)
- if warnings::enabled;
- return undef;
- }
- }
- return $off;
-}
-
-sub write_stream {
- @_ == 4 || @_ == 5 || throw(q/Usage: write_stream(fh, type, request_id, content [, terminate])/);
- my $fh = shift;
-
- my $buf = &build_stream;
- my $len = length $buf;
- my $off = 0;
-
- while () {
- my $r = syswrite($fh, $buf, $len, $off);
- if (defined $r) {
- $len -= $r;
- $off += $r;
- last unless $len;
- }
- elsif ($! != EINTR) {
- warnings::warn(qq<FastCGI: Could not write FCGI_Record stream: '$!'>)
- if warnings::enabled;
- return undef;
- }
- }
- return $off;
-}
-
-sub can_read (*$) {
- @_ == 2 || throw(q/Usage: can_read(fh, timeout)/);
- my ($fh, $timeout) = @_;
-
- my $fd = fileno($fh);
- unless (defined $fd && $fd >= 0) {
- $! = EBADF;
- return undef;
- }
-
- my $initial = time;
- my $pending = $timeout;
- my $nfound;
-
- vec(my $fdset = '', $fd, 1) = 1;
-
- while () {
- $nfound = select($fdset, undef, undef, $pending);
- if ($nfound == -1) {
- return undef unless $! == EINTR;
- redo if !$timeout || ($pending = $timeout - (time - $initial)) > 0;
- $nfound = 0;
- }
- last;
- }
- $! = 0;
- return $nfound;
-}
-
-sub can_write (*$) {
- @_ == 2 || throw(q/Usage: can_write(fh, timeout)/);
- my ($fh, $timeout) = @_;
-
- my $fd = fileno($fh);
- unless (defined $fd && $fd >= 0) {
- $! = EBADF;
- return undef;
- }
-
- my $initial = time;
- my $pending = $timeout;
- my $nfound;
-
- vec(my $fdset = '', $fd, 1) = 1;
-
- while () {
- $nfound = select(undef, $fdset, undef, $pending);
- if ($nfound == -1) {
- return undef unless $! == EINTR;
- redo if !$timeout || ($pending = $timeout - (time - $initial)) > 0;
- $nfound = 0;
- }
- last;
- }
- $! = 0;
- return $nfound;
-}
-
-1;
-
diff --git a/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/IO.pod b/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/IO.pod
deleted file mode 100644
index 84a9f09..0000000
--- a/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/IO.pod
+++ /dev/null
@@ -1,391 +0,0 @@
-=head1 NAME
-
-Net::FastCGI::IO - Provides functions to read and write FastCGI messages.
-
-=head1 SYNOPSIS
-
- # FCGI_Header
- @values = read_header($fh);
- $header = read_header($fh);
- $result = write_header($fh, $type, $request_id, $content_length, $padding_length);
-
- # FCGI_Record
- @values = read_record($fh);
- $record = read_record($fh);
- $result = write_record($fh, $type, $request_id);
- $result = write_record($fh, $type, $request_id, $content);
-
- # FCGI_Record Stream
- $result = write_stream($fh, $type, $request_id, $content);
- $result = write_stream($fh, $type, $request_id, $content, $terminate);
-
- # I/O ready
- $result = can_read($fh, $timeout);
- $result = can_write($fh, $timeout);
-
-=head1 DESCRIPTION
-
-Provides unbuffered blocking I/O functions to read and write FastCGI messages.
-
-=head1 FUNCTIONS
-
-=head2 read_header
-
-Attempts to read a C<FCGI_Header> from file handle C<$fh>.
-
-I<Usage>
-
- ($type, $request_id, $content_length, $padding_length)
- = read_header($fh);
-
- $header = read_header($fh);
- say $header->{type};
- say $header->{request_id};
- say $header->{content_length};
- say $header->{padding_length};
-
-I<Arguments>
-
-=over 4
-
-=item C<$fh>
-
-The file handle to read from. Must be a file handle with a file descriptor. File handle
-mode should be set to binary.
-
-=back
-
-I<Returns>
-
-Upon successful completion, the return value of L<Net::FastCGI::Protocol/parse_header>.
-Otherwise, a false value (C<undef> in scalar context and an empty list in list context).
-
-If C<read_header> reaches end-of-file before reading any octets, it returns a
-false value. If unsuccessful, C<read_header> returns a false value and C<$!>
-contains the error from the C<sysread> call. If C<read_header> encounters
-end-of-file after some but not all of the needed octets, the function returns
-a false value and sets C<$!> to C<EPIPE>.
-
-I<Implementation>
-
-The implementation calls C<sysread> in a loop, restarting if C<sysread>
-returns C<undef> with C<$!> set to C<EINTR>. If C<sysread> does not provide
-all the requested octets, C<read_header> continues to call C<sysread> until
-either all the octets have been read, reaches end-of-file or an error occurs.
-
-=head2 read_record
-
-Attempts to read a C<FCGI_Record> from file handle C<$fh>.
-
-I<Usage>
-
- ($type, $request_id, $content)
- = read_record($fh);
-
- $record = read_record($fh);
- say $record->{type};
- say $record->{request_id};
-
-I<Arguments>
-
-=over 4
-
-=item C<$fh>
-
-The file handle to read from. Must be a file handle with a file descriptor.
-File handle mode should be set to binary.
-
-=back
-
-I<Returns>
-
-Upon successful completion, the return value of L<Net::FastCGI::Protocol/parse_record>.
-Otherwise, a false value (C<undef> in scalar context and an empty list in list context).
-
-If C<read_record> reaches end-of-file before reading any octets, it returns a
-false value. If unsuccessful, C<read_record> returns a false value and C<$!>
-contains the error from the C<sysread> call. If C<read_record> encounters
-end-of-file after some but not all of the needed octets, the function returns
-a false value and sets C<$!> to C<EPIPE>.
-
-I<Implementation>
-
-The implementation calls C<sysread> in a loop, restarting if C<sysread>
-returns C<undef> with C<$!> set to C<EINTR>. If C<sysread> does not provide
-all the requested octets, C<read_record> continues to call C<sysread> until
-either all the octets have been read, reaches end-of-file or an error occurs.
-
-=head2 write_header
-
-Attempts to write a C<FCGI_Header> to file handle C<$fh>.
-
-I<Usage>
-
- $result = write_header($fh, $type, $request_id, $content_length, $padding_length);
-
-I<Arguments>
-
-=over 4
-
-=item C<$fh>
-
-The file handle to write to. Must be a file handle with a file descriptor. File handle
-mode should be set to binary.
-
-=item C<$type>
-
-An unsigned 8-bit integer.
-
-=item C<$request_id>
-
-An unsigned 16-bit integer.
-
-=item C<$content_length>
-
-An unsigned 16-bit integer.
-
-=item C<$padding_length>
-
-An unsigned 8-bit integer.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$result>
-
-Upon successful completion, the number of octets actually written. Otherwise,
-C<undef> and C<$!> contains the error from the C<syswrite> call.
-
-=back
-
-I<Implementation>
-
-The implementation calls C<syswrite> in a loop, restarting if C<syswrite>
-returns C<undef> with C<$!> set to C<EINTR>. If C<syswrite> does not output
-all the requested octets, C<write_header> continues to call C<syswrite> until
-all the octets have been written or an error occurs.
-
-=head2 write_record
-
-Attempts to write a C<FCGI_Record> to file handle C<$fh>.
-
-I<Usage>
-
- $result = write_record($fh, $type, $request_id);
- $result = write_record($fh, $type, $request_id, $content);
-
-I<Arguments>
-
-=over 4
-
-=item C<$fh>
-
-The file handle to write to. Must be a file handle with a file descriptor. File handle
-mode should be set to binary.
-
-=item C<$type>
-
-An unsigned 8-bit integer.
-
-=item C<$request_id>
-
-An unsigned 16-bit integer.
-
-=item C<$content> (optional)
-
-A string of octets containing the content, cannot exceed 65535 octets in length.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$result>
-
-Upon successful completion, the number of octets actually written. Otherwise,
-C<undef> and C<$!> contains the error from the C<syswrite> call.
-
-=back
-
-I<Implementation>
-
-The implementation calls C<syswrite> in a loop, restarting if C<syswrite>
-returns C<undef> with C<$!> set to C<EINTR>. If C<syswrite> does not output
-all the requested octets, C<write_record> continues to call C<syswrite> until
-all the octets have been written or an error occurs.
-
-=head2 write_stream
-
-Attempts to write a C<FCGI_Record> stream to file handle C<$fh>.
-
-I<Usage>
-
- $result = write_stream($fh, $type, $request_id, $content);
- $result = write_stream($fh, $type, $request_id, $content, $terminate);
-
-I<Arguments>
-
-=over 4
-
-=item C<$fh>
-
-The file handle to write to. Must be a file handle with a file descriptor. File handle
-mode should be set to binary.
-
-=item C<$type>
-
-An unsigned 8-bit integer.
-
-=item C<$request_id>
-
-An unsigned 16-bit integer.
-
-=item C<$content>
-
-A string of octets containing the stream content.
-
-=item C<$terminate> (optional)
-
-A boolean indicating whether or not the stream should be terminated.
-Defaults to false.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$result>
-
-Upon successful completion, the number of octets actually written. Otherwise,
-C<undef> and C<$!> contains the error from the C<syswrite> call.
-
-=back
-
-I<Implementation>
-
-The implementation calls C<syswrite> in a loop, restarting if C<syswrite>
-returns C<undef> with C<$!> set to C<EINTR>. If C<syswrite> does not output
-all the requested octets, C<write_stream> continues to call C<syswrite> until
-all the octets have been written or an error occurs.
-
-=head2 can_read
-
-Determines wheter or not the given file handle C<$fh> is ready for reading
-within the given timeout C<$timeout>.
-
-I<Usage>
-
- $result = can_read($fh, $timeout);
-
-I<Arguments>
-
-=over 4
-
-=item C<$fh>
-
-The file handle to test for readiness. Must be a file handle with a file descriptor.
-
-=item C<$timeout>
-
-Maximum interval to wait. Can be set to either a non-negative numeric value or
-C<undef> for infinite wait.
-
-=back
-
-I<Returns>
-
-Upon successful completion, C<0> or C<1>. Otherwise, C<undef> and C<$!> contains
-the C<select> error.
-
-I<Implementation>
-
-The implementation calls C<select> in a loop, restarting if C<select> returns
-C<-1> with C<$!> set to C<EINTR> and C<$timeout> has not elapsed.
-
-=head2 can_write
-
-Determines wheter or not the given file handle C<$fh> is ready for writing
-within the given timeout C<$timeout>.
-
-I<Usage>
-
- $result = can_write($fh, $timeout);
-
-I<Arguments>
-
-=over 4
-
-=item C<$fh>
-
-The file handle to test for readiness. Must be a file handle with a file descriptor.
-
-=item C<$timeout>
-
-Maximum interval to wait. Can be set to either a non-negative numeric value or
-C<undef> for infinite wait.
-
-=back
-
-I<Returns>
-
-Upon successful completion, C<0> or C<1>. Otherwise, C<undef> and C<$!> contains
-the C<select> error.
-
-I<Implementation>
-
-The implementation calls C<select> in a loop, restarting if C<select> returns
-C<-1> with C<$!> set to C<EINTR> and C<$timeout> has not elapsed.
-
-=head1 EXPORTS
-
-None by default. All functions can be exported using the C<:all> tag or individually.
-
-=head1 DIAGNOSTICS
-
-=over 4
-
-=item B<(F)> Usage: %s
-
-Subroutine called with wrong number of arguments.
-
-=item B<(W Net::FastCGI::IO)> FastCGI: Could not read %s
-
-=item B<(W Net::FastCGI::IO)> FastCGI: Could not write %s
-
-=back
-
-=head1 SEE ALSO
-
-=over 4
-
-=item FastCGI Specification Version 1.0
-
-L<http://www.fastcgi.com/devkit/doc/fcgi-spec.html>
-
-=item The Common Gateway Interface (CGI) Version 1.1
-
-L<http://tools.ietf.org/html/rfc3875>
-
-=item L<Net::FastCGI::Constant>
-
-=item L<Net::FastCGI::Protocol>
-
-=back
-
-=head1 AUTHOR
-
-Christian Hansen C<chansen@cpan.org>
-
-=head1 COPYRIGHT
-
-Copyright 2008-2010 by Christian Hansen.
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-
diff --git a/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/Protocol.pm b/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/Protocol.pm
deleted file mode 100644
index 0c4210e..0000000
--- a/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/Protocol.pm
+++ /dev/null
@@ -1,203 +0,0 @@
-package Net::FastCGI::Protocol;
-
-use strict;
-use warnings;
-
-use Carp qw[croak];
-use Net::FastCGI qw[];
-use Net::FastCGI::Constant qw[:type :common FCGI_KEEP_CONN];
-
-BEGIN {
- our $VERSION = '0.14';
- our @EXPORT_OK = qw[ build_begin_request
- build_begin_request_body
- build_begin_request_record
- build_end_request
- build_end_request_body
- build_end_request_record
- build_header
- build_params
- build_record
- build_stream
- build_unknown_type_body
- build_unknown_type_record
- check_params
- parse_begin_request_body
- parse_end_request_body
- parse_header
- parse_params
- parse_record
- parse_record_body
- parse_unknown_type_body
- get_record_length
- get_type_name
- get_role_name
- get_protocol_status_name
- is_known_type
- is_management_type
- is_discrete_type
- is_stream_type ];
-
- our %EXPORT_TAGS = ( all => \@EXPORT_OK );
-
- my $use_pp = $ENV{NET_FASTCGI_PP} || $ENV{NET_FASTCGI_PROTOCOL_PP};
-
- if (!$use_pp) {
- eval {
- require Net::FastCGI::Protocol::XS;
- };
- $use_pp = !!$@;
- }
-
- if ($use_pp) {
- require Net::FastCGI::Protocol::PP;
- Net::FastCGI::Protocol::PP->import(@EXPORT_OK);
- }
- else {
- Net::FastCGI::Protocol::XS->import(@EXPORT_OK);
- }
-
- # shared between XS and PP implementation
- push @EXPORT_OK, 'dump_record', 'dump_record_body';
-
- require Exporter;
- *import = \&Exporter::import;
-}
-
-our $DUMP_RECORD_MAX = 78; # undocumented
-our $DUMP_RECORD_ALIGN = !!0; # undocumented
-
-my %ESCAPES = (
- "\a" => "\\a",
- "\b" => "\\b",
- "\t" => "\\t",
- "\n" => "\\n",
- "\f" => "\\f",
- "\r" => "\\r",
-);
-
-sub dump_record {
- goto \&dump_record_body if (@_ == 2 || @_ == 3); # deprecated
- @_ == 1 || croak(q/Usage: dump_record(octets)/);
-
- my $len = &get_record_length;
- ($len && $len <= length $_[0] && vec($_[0], 0, 8) == FCGI_VERSION_1)
- || return '{Malformed FCGI_Record}';
-
- return dump_record_body(&parse_record);
-}
-
-sub dump_record_body {
- @_ == 2 || @_ == 3 || croak(q/Usage: dump_record_body(type, request_id [, content])/);
- my ($type, $request_id) = @_;
-
- my $content_length = defined $_[2] ? length $_[2] : 0;
-
- my $max = $DUMP_RECORD_MAX > 0 ? $DUMP_RECORD_MAX : FCGI_MAX_CONTENT_LEN;
- my $out = '';
-
- if ( $type == FCGI_PARAMS
- || $type == FCGI_GET_VALUES
- || $type == FCGI_GET_VALUES_RESULT) {
- if ($content_length == 0) {
- $out = q[""];
- }
- elsif (check_params($_[2])) {
- my ($off, $klen, $vlen) = (0);
- while ($off < $content_length) {
- my $pos = $off;
- for ($klen, $vlen) {
- $_ = vec($_[2], $off, 8);
- $_ = vec(substr($_[2], $off, 4), 0, 32) & 0x7FFF_FFFF
- if $_ > 0x7F;
- $off += $_ > 0x7F ? 4 : 1;
- }
-
- my $head = substr($_[2], $pos, $off - $pos);
- $head =~ s/(.)/sprintf('\\%.3o',ord($1))/egs;
- $out .= $head;
-
- my $body = substr($_[2], $off, $klen + $vlen);
- for ($body) {
- s/([\\\"])/\\$1/g;
- s/([\a\b\t\n\f\r])/$ESCAPES{$1}/g;
- s/([^\x20-\x7E])/sprintf('\\x%.2X',ord($1))/eg;
- }
- $out .= $body;
- $off += $klen + $vlen;
- last if $off > $max;
- }
- substr($out, $max - 5) = ' ... '
- if length $out > $max;
- $out = qq["$out"];
- }
- else {
- $out = 'Malformed FCGI_NameValuePair(s)';
- }
- }
- elsif ( $type == FCGI_BEGIN_REQUEST
- || $type == FCGI_END_REQUEST
- || $type == FCGI_UNKNOWN_TYPE) {
- if ($content_length != 8) {
- my $name = $type == FCGI_BEGIN_REQUEST ? 'FCGI_BeginRequestBody'
- : $type == FCGI_END_REQUEST ? 'FCGI_EndRequestBody'
- : 'FCGI_UnknownTypeBody';
- $out = sprintf '{Malformed %s (expected 8 octets got %d)}', $name, $content_length;
- }
- elsif ($type == FCGI_BEGIN_REQUEST) {
- my ($role, $flags) = parse_begin_request_body($_[2]);
- if ($flags != 0) {
- my @set;
- if ($flags & FCGI_KEEP_CONN) {
- $flags &= ~FCGI_KEEP_CONN;
- push @set, 'FCGI_KEEP_CONN';
- }
- if ($flags) {
- push @set, sprintf '0x%.2X', $flags;
- }
- $flags = join '|', @set;
- }
- $out = sprintf '{%s, %s}', get_role_name($role), $flags;
- }
- elsif($type == FCGI_END_REQUEST) {
- my ($astatus, $pstatus) = parse_end_request_body($_[2]);
- $out = sprintf '{%d, %s}', $astatus, get_protocol_status_name($pstatus);
- }
- else {
- my $unknown_type = parse_unknown_type_body($_[2]);
- $out = sprintf '{%s}', get_type_name($unknown_type);
- }
- }
- elsif ($content_length) {
- my $looks_like_binary = do {
- my $count = () = $_[2] =~ /[\r\n\t\x20-\x7E]/g;
- ($count / $content_length) < 0.7;
- };
- $out = substr($_[2], 0, $max + 1);
- for ($out) {
- if ($looks_like_binary) {
- s/(.)/sprintf('\\x%.2X',ord($1))/egs;
- }
- else {
- s/([\\\"])/\\$1/g;
- s/([\a\b\t\n\f\r])/$ESCAPES{$1}/g;
- s/([^\x20-\x7E])/sprintf('\\x%.2X',ord($1))/eg;
- }
- }
- substr($out, $max - 5) = ' ... '
- if length $out > $max;
- $out = qq["$out"];
- }
- else {
- $out = q[""];
- }
-
- my $name = get_type_name($type);
- my $width = 0;
- $width = 27 - length $name # length("FCGI_GET_VALUES_RESULT") == 22
- if $DUMP_RECORD_ALIGN; # + length(0xFFFF) == 5
- return sprintf '{%s, %*d, %s}', $name, $width, $request_id, $out;
-}
-
-1;
-
diff --git a/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/Protocol.pod b/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/Protocol.pod
deleted file mode 100644
index 64f6a7e..0000000
--- a/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/Protocol.pod
+++ /dev/null
@@ -1,1227 +0,0 @@
-=head1 NAME
-
-Net::FastCGI::Protocol - Provides functions to build and parse FastCGI messages.
-
-=head1 SYNOPSIS
-
- # FCGI_Header
- $octets = build_header($type, $request_id, $content_length, $padding_length);
- @values = parse_header($octets);
- $header = parse_header($octets);
-
- # FCGI_BeginRequestBody
- $octets = build_begin_request_body($role, $flags);
- @values = parse_begin_request_body($octets);
-
- # FCGI_EndRequestBody
- $octets = build_end_request_body($app_status, $protocol_status);
- @values = parse_end_request_body($octets);
-
- # FCGI_UnknownTypeBody
- $octets = build_unknown_type_body($type);
- @values = parse_unknown_type_body($octets);
-
- # FCGI_BeginRequestRecord
- $octets = build_begin_request_record($request_id, $role, $flags);
-
- # FCGI_EndRequestRecord
- $octets = build_end_request_record($request_id, $app_status, $protocol_status);
-
- # FCGI_UnknownTypeRecord
- $octets = build_unknown_type_record($type);
-
- # FCGI_NameValuePair's
- $octets = build_params($params);
- $params = parse_params($octets);
- $bool = check_params($octets);
-
- # FCGI_Record
- $octets = build_record($type, $request_id);
- $octets = build_record($type, $request_id, $content);
- @values = parse_record($octets);
- $record = parse_record($octets);
- $record = parse_record_body($type, $request_id, $content);
-
- # FCGI_Record Debugging / Tracing
- $string = dump_record($octets);
- $string = dump_record_body($type, $request_id, $content);
-
- # FCGI_Record Stream
- $octets = build_stream($type, $request_id, $content);
- $octets = build_stream($type, $request_id, $content, $terminate);
-
- # Begin Request
- $octets = build_begin_request($request_id, $role, $flags, $params);
- $octets = build_begin_request($request_id, $role, $flags, $params, $stdin);
- $octets = build_begin_request($request_id, $role, $flags, $params, $stdin, $data);
-
- # End Request
- $octets = build_end_request($request_id, $app_status, $protocol_status);
- $octets = build_end_request($request_id, $app_status, $protocol_status, $stdout);
- $octets = build_end_request($request_id, $app_status, $protocol_status, $stdout, $stderr);
-
-=head1 DESCRIPTION
-
-Provides functions to build and parse FastCGI messages.
-
-=head1 FUNCTIONS
-
-Please note that all functions in this package expects octets, not unicode strings.
-It's the callers responsibility to ensure this. If any of theese functions is called
-with unicode strings containing code points above 255, they will most likely produce
-malformed messages.
-
-=head2 build_begin_request
-
-Builds a Begin Request message.
-
-I<Usage>
-
- $octets = build_begin_request($request_id, $role, $flags, $params);
- $octets = build_begin_request($request_id, $role, $flags, $params, $stdin);
- $octets = build_begin_request($request_id, $role, $flags, $params, $stdin, $data);
-
-I<Arguments>
-
-=over 4
-
-=item C<$request_id>
-
-An unsigned 16-bit integer. Identifier of the request.
-
-=item C<$role>
-
-An unsigned 16-bit integer. This should be set to either C<FCGI_RESPONDER>,
-C<FCGI_AUTHORIZER> or C<FCGI_FILTER>.
-
-=item C<$flags>
-
-An unsigned 8-bit integer. This should be set to either C<0> or contain the
-mask C<FCGI_KEEP_CONN> if a persistent connection is desired.
-
-=item C<$params>
-
-A hash reference containing name-value pairs. This is the CGI environ that the
-application expects.
-
-=item C<$stdin> (optional)
-
-A string of octets containing the C<FCGI_STDIN> content. This should only be
-provided if C<$role> is set to either C<FCGI_RESPONDER> or C<FCGI_FILTER>. The
-C<FCGI_STDIN> stream is terminated if provided.
-
-=item C<$data> (optional)
-
-A string of octets containing the C<FCGI_DATA> content. This should only be
-provided if C<$role> is set to C<FCGI_FILTER>. The C<FCGI_DATA> stream is
-terminated if provided.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$octets>
-
-A string of octets containing the message.
-
-=back
-
-=head2 build_begin_request_body
-
-Builds a C<FCGI_BeginRequestBody>.
-
-I<Usage>
-
- $octets = build_begin_request_body($role, $flags);
-
-I<Arguments>
-
-=over 4
-
-=item C<$role>
-
-An unsigned 16-bit integer.
-
-=item C<$flags>
-
-An unsigned 8-bit integer.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$octets>
-
-A string of octets containing the body. String is 8 octets in length.
-
-=back
-
-=head2 build_begin_request_record
-
-Builds a C<FCGI_BeginRequestRecord>.
-
-I<Usage>
-
- $octets = build_begin_request_record($request_id, $role, $flags);
-
-I<Arguments>
-
-=over 4
-
-=item C<$request_id>
-
-An unsigned 16-bit integer.
-
-=item C<$role>
-
-An unsigned 16-bit integer.
-
-=item C<$flags>
-
-An unsigned 8-bit integer.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$octets>
-
-A string of octets containing the record. String is 16 octets in length.
-
-=back
-
-=head2 build_end_request
-
-Builds a End Request message
-
-I<Usage>
-
- $octets = build_end_request($request_id, $app_status, $protocol_status);
- $octets = build_end_request($request_id, $app_status, $protocol_status, $stdout);
- $octets = build_end_request($request_id, $app_status, $protocol_status, $stdout, $stderr);
-
-I<Arguments>
-
-=over 4
-
-=item C<$request_id>
-
-An unsigned 16-bit integer. Identifier of the request.
-
-=item C<$app_status>
-
-An unsigned 32-bit integer. Application status code of the request.
-
-=item C<$protocol_status>
-
-An unsigned 8-bit integer. This should be set to either C<FCGI_REQUEST_COMPLETE>,
-C<FCGI_CANT_MPX_CONN>, C<FCGI_OVERLOADED> or C<FCGI_UNKNOWN_ROLE>.
-
-=item C<$stdout> (optional)
-
-A string of octets containing the C<FCGI_STDOUT> content. The C<FCGI_STDOUT>
-stream is terminated if provided.
-
-=item C<$stderr> (optional)
-
-A string of octets containing the C<FCGI_STDERR> content. The C<FCGI_STDERR>
-stream is terminated if provided.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$octets>
-
-A string of octets containing the message.
-
-=back
-
-I<Note>
-
-This function is equivalent to C<build_end_request_record()> if called without
-C<$stdout> and C<$stderr>.
-
-=head2 build_end_request_body
-
-Builds a C<FCGI_EndRequestBody>.
-
-I<Usage>
-
- $octets = build_end_request_body($app_status, $protocol_status);
-
-I<Arguments>
-
-=over 4
-
-=item C<$app_status>
-
-An unsigned 32-bit integer.
-
-=item C<$protocol_status>
-
-An unsigned 8-bit integer.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$octets>
-
-A string of octets containing the body. String is 8 octets in length.
-
-=back
-
-=head2 build_end_request_record
-
-Builds a C<FCGI_EndRequestRecord>.
-
-I<Usage>
-
- $octets = build_end_request_record($request_id, $app_status, $protocol_status);
-
-I<Arguments>
-
-=over 4
-
-=item C<$request_id>
-
-An unsigned 16-bit integer.
-
-=item C<$app_status>
-
-An unsigned 32-bit integer.
-
-=item C<$protocol_status>
-
-An unsigned 8-bit integer.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$octets>
-
-A string of octets containing the record. String is 16 octets in length.
-
-=back
-
-=head2 build_header
-
-Builds a C<FCGI_Header>.
-
-I<Usage>
-
- $octets = build_header($type, $request_id, $content_length, $padding_length);
-
-I<Arguments>
-
-=over 4
-
-=item C<$type>
-
-An unsigned 8-bit integer.
-
-=item C<$request_id>
-
-An unsigned 16-bit integer.
-
-=item C<$content_length>
-
-An unsigned 16-bit integer.
-
-=item C<$padding_length>
-
-An unsigned 8-bit integer.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$octets>
-
-A string of octets containing the header. String is 8 octets in length.
-
-=back
-
-=head2 build_params
-
-Builds C<FCGI_NameValuePair>'s.
-
-I<Usage>
-
- $octets = build_params($params);
-
-I<Arguments>
-
-=over 4
-
-=item C<$params>
-
-A hash reference containing name-value pairs.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$octets>
-
-=back
-
-=head2 build_record
-
-Builds a C<FCGI_Record>.
-
-I<Usage>
-
- $octets = build_record($type, $request_id);
- $octets = build_record($type, $request_id, $content);
-
-I<Arguments>
-
-=over 4
-
-=item C<$type>
-
-An unsigned 8-bit integer.
-
-=item C<$request_id>
-
-An unsigned 16-bit integer.
-
-=item C<$content> (optional)
-
-A string of octets containing the content, cannot exceed 65535 octets in length.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$octets>
-
-A string of octets containing the record.
-
-=back
-
-I<Note>
-
-Follows the recommendation in specification and pads the record by
-8-(content_length mod 8) zero-octets.
-
-=head2 build_stream
-
-Builds a series of stream records.
-
-I<Usage>
-
- $octets = build_stream($type, $request_id, $content);
- $octets = build_stream($type, $request_id, $content, $terminate);
-
-I<Arguments>
-
-=over 4
-
-=item C<$type>
-
-An unsigned 8-bit integer.
-
-=item C<$request_id>
-
-An unsigned 16-bit integer.
-
-=item C<$content>
-
-A string of octets containing the stream content.
-
-=item C<$terminate> (optional)
-
-A boolean indicating whether or not the stream should be terminated.
-Defaults to false.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$octets>
-
-A string of octets containing the stream.
-
-=back
-
-I<Note>
-
-Stream is not terminated if C<$content> is empty unless C<$terminate> is set.
-
-C<$content> is split in segment sizes of 32760 octets (32768 - FCGI_HEADER_LEN).
-
-=head2 build_unknown_type_body
-
-Builds a C<FCGI_UnknownTypeBody>.
-
-I<Usage>
-
- $octets = build_unknown_type_body($type);
-
-I<Arguments>
-
-=over 4
-
-=item C<$type>
-
-An unsigned 8-bit integer.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$octets>
-
-A string of octets containing the body. String is 8 octets in length.
-
-=back
-
-=head2 build_unknown_type_record
-
-Builds a C<FCGI_UnknownTypRecord>.
-
-I<Usage>
-
- $octets = build_unknown_type_record($type);
-
-I<Arguments>
-
-=over 4
-
-=item C<$type>
-
-An unsigned 8-bit integer.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$octets>
-
-A string of octets containing the record. String is 16 octets in length.
-
-=back
-
-=head2 check_params
-
-Determine wheter or not params is well-formed.
-
-I<Usage>
-
- $boolean = check_params($octets);
-
-I<Arguments>
-
-=over 4
-
-=item C<$octets>
-
-A string of octets containing C<FCGI_NameValuePair>'s.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$boolean>
-
-A boolean indicating whether or not C<$octets> consist of well-formed C<FCGI_NameValuePair>'s.
-
-=back
-
-=head2 dump_record
-
-Dump a C<FCGI_Record>.
-
-I<Usage>
-
- $string = dump_record($octets);
-
-I<Arguments>
-
-=over 4
-
-=item C<$octets>
-
-A string of octets containing at least one record.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$string>
-
-A short (less than 100 characters) string representation of the record in printable US-ASCII.
-
-=back
-
-=head2 dump_record_body
-
-Dump a C<FCGI_Record>.
-
-I<Usage>
-
- $string = dump_record_body($type, $request_id);
- $string = dump_record_body($type, $request_id, $content);
-
-I<Arguments>
-
-=over 4
-
-=item C<$type>
-
-An unsigned 8-bit integer.
-
-=item C<$request_id>
-
-An unsigned 16-bit integer.
-
-=item C<$content> (optional)
-
-A string of octets containing the content.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$string>
-
-A short (less than 100 characters) string representation of the record in printable US-ASCII.
-
-=back
-
-=head2 parse_begin_request_body
-
-Parses a C<FCGI_BeginRequestBody>.
-
-I<Usage>
-
- ($role, $flags) = parse_begin_request_body($octets);
-
-I<Arguments>
-
-=over 4
-
-=item C<$octets>
-
-A string of octets containing the body, must be greater than or equal to 8 octets in length.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$role>
-
-An unsigned 16-bit integer.
-
-=item C<$flags>
-
-An unsigned 8-bit integer.
-
-=back
-
-=head2 parse_end_request_body
-
-Parses a C<FCGI_EndRequestBody>.
-
-I<Usage>
-
- ($app_status, $protocol_status) = parse_end_request_body($octets);
-
-I<Arguments>
-
-=over 4
-
-=item C<$octets>
-
-A string of octets containing the body, must be greater than or equal to 8 octets in length.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$app_status>
-
-An unsigned 32-bit integer.
-
-=item C<$flags>
-
-An unsigned 8-bit integer.
-
-=back
-
-=head2 parse_header
-
-Parses a C<FCGI_Header>.
-
-I<Usage>
-
- ($type, $request_id, $content_length, $padding_length)
- = parse_header($octets);
-
- $header = parse_header($octets);
- say $header->{type};
- say $header->{request_id};
- say $header->{content_length};
- say $header->{padding_length};
-
-I<Arguments>
-
-=over 4
-
-=item C<$octets>
-
-A string of octets containing the header, must be greater than or equal to 8 octets in length.
-
-=back
-
-I<Returns>
-
-In list context:
-
-=over 4
-
-=item C<$type>
-
-An unsigned 8-bit integer.
-
-=item C<$request_id>
-
-An unsigned 16-bit integer.
-
-=item C<$content_length>
-
-An unsigned 16-bit integer.
-
-=item C<$padding_length>
-
-An unsigned 8-bit integer.
-
-=back
-
-In scalar context a hash reference containing above variable names as keys.
-
-=head2 parse_params
-
-Parses C<FCGI_NameValuePair>'s.
-
-I<Usage>
-
- $params = parse_params($octets);
-
-I<Arguments>
-
-=over 4
-
-=item C<$octets>
-
-A string of octets containing C<FCGI_NameValuePair>'s.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$params>
-
-A hash reference containing name-value pairs.
-
-=back
-
-=head2 parse_record
-
-Parses a C<FCGI_Record>.
-
-I<Usage>
-
- ($type, $request_id, $content)
- = parse_record($octets);
-
- $record = parse_record($octets);
- say $record->{type};
- say $record->{request_id};
-
-I<Arguments>
-
-=over 4
-
-=item C<$octets>
-
-A string of octets containing at least one record.
-
-=back
-
-I<Returns>
-
-In list context:
-
-=over 4
-
-=item C<$type>
-
-An unsigned 8-bit integer.
-
-=item C<$request_id>
-
-An unsigned 16-bit integer.
-
-=item C<$content>
-
-A string of octets containing the record content.
-
-=back
-
-In scalar context a hash reference containing the C<FCGI_Record> components.
-See L</parse_record_body>.
-
-=head2 parse_record_body
-
-Parses a C<FCGI_Record>.
-
-I<Usage>
-
- $record = parse_record_body($type, $request_id, $content);
- say $record->{type};
- say $record->{request_id};
-
-I<Arguments>
-
-=over 4
-
-=item C<$type>
-
-An unsigned 8-bit integer.
-
-=item C<$request_id>
-
-An unsigned 16-bit integer.
-
-=item C<$content>
-
-A string of octets containing the record content.
-
-=back
-
-I<Returns>
-
-A hash reference which represents the C<FCGI_Record>. The content depends on the
-type of record. All record types have the keys: C<type> and C<request_id>.
-
-=over 4
-
-=item C<FCGI_BEGIN_REQUEST>
-
-=over 8
-
-=item C<role>
-
-An unsigned 16-bit integer.
-
-=item C<flags>
-
-An unsigned 8-bit integer.
-
-=back
-
-=item C<FCGI_END_REQUEST>
-
-=over 8
-
-=item C<app_status>
-
-An unsigned 32-bit integer.
-
-=item C<protocol_status>
-
-An unsigned 8-bit integer.
-
-=back
-
-=item C<FCGI_PARAMS>
-
-=item C<FCGI_STDIN>
-
-=item C<FCGI_DATA>
-
-=item C<FCGI_STDOUT>
-
-=item C<FCGI_STDERR>
-
-=over 8
-
-=item C<content>
-
-A string of octets containing the content of the stream.
-
-=back
-
-=item C<FCGI_GET_VALUES>
-
-=item C<FCGI_GET_VALUES_RESULT>
-
-=over 8
-
-=item C<values>
-
-A hash reference containing name-value pairs.
-
-=back
-
-=item C<FCGI_UNKNOWN_TYPE>
-
-=over 8
-
-=item C<unknown_type>
-
-An unsigned 8-bit integer.
-
-=back
-
-=back
-
-=head2 parse_unknown_type_body
-
-Parses a C<FCGI_UnknownTypeBody>.
-
-I<Usage>
-
- $type = parse_unknown_type_body($octets);
-
-I<Arguments>
-
-=over 4
-
-=item C<$octets>
-
-C<$octets> must be greater than or equal to 8 octets in length.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$type>
-
-An unsigned 8-bit integer.
-
-=back
-
-=head2 get_record_length
-
-I<Usage>
-
- $length = get_record_length($octets);
-
-I<Arguments>
-
-=over 4
-
-=item C<$octets>
-
-A string of octets containing at least one C<FCGI_Header>.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$length>
-
-An unsigned integer containing the length of record in octets. If C<$octets>
-contains insufficient octets C<(< FCGI_HEADER_LEN)> C<0> is returned.
-
-=back
-
-=head2 get_type_name
-
-I<Usage>
-
- $name = get_type_name($type);
- $name = get_type_name(FCGI_BEGIN_REQUEST); # 'FCGI_BEGIN_REQUEST'
- $name = get_type_name(255); # '0xFF'
-
-I<Arguments>
-
-=over 4
-
-=item C<$type>
-
-An unsigned 8-bit integer.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$name>
-
-A string containing the name of the type. If C<$type> is not a known v1.0 type,
-a hexadecimal value is returned.
-
-=back
-
-I<Note>
-
-See also L<Net::FastCGI::Constant/":name">.
-
-=head2 get_role_name
-
-I<Usage>
-
- $name = get_role_name($type);
- $name = get_role_name(FCGI_RESPONDER); # 'FCGI_RESPONDER'
- $name = get_role_name(65535); # '0xFFFF'
-
-I<Arguments>
-
-=over 4
-
-=item C<$role>
-
-An unsigned 16-bit integer.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$name>
-
-A string containing the name of the role. If C<$role> is not a known v1.0 role,
-a hexadecimal value is returned.
-
-=back
-
-I<Note>
-
-See also L<Net::FastCGI::Constant/":name">.
-
-=head2 get_protocol_status_name
-
-I<Usage>
-
- $name = get_protocol_status_name($protocol_status);
- $name = get_protocol_status_name(FCGI_REQUEST_COMPLETE); # 'FCGI_REQUEST_COMPLETE'
- $name = get_protocol_status_name(255); # '0xFF'
-
-I<Arguments>
-
-=over 4
-
-=item C<$protocol_status>
-
-An unsigned 8-bit integer.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$name>
-
-A string containing the name of the protocol status. If C<$protocol_status> is
-not a known v1.0 protocol status code, a hexadecimal value is returned.
-
-=back
-
-I<Note>
-
-See also L<Net::FastCGI::Constant/:name>.
-
-=head2 is_known_type
-
-I<Usage>
-
- $boolean = is_known_type($type);
-
-I<Arguments>
-
-=over 4
-
-=item C<$type>
-
-An unsigned 8-bit integer.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$boolean>
-
-A boolean indicating whether or not C<$type> is a known FastCGI v1.0 type.
-
-=back
-
-=head2 is_management_type
-
-I<Usage>
-
- $boolean = is_management_type($type);
-
-I<Arguments>
-
-=over 4
-
-=item C<$type>
-
-An unsigned 8-bit integer.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$boolean>
-
-A boolean indicating whether or not C<$type> is a management type.
-
-=back
-
-=head2 is_discrete_type
-
-I<Usage>
-
- $boolean = is_discrete_type($type);
-
-I<Arguments>
-
-=over 4
-
-=item C<$type>
-
-An unsigned 8-bit integer.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$boolean>
-
-A boolean indicating whether or not C<$type> is a discrete type.
-
-=back
-
-=head2 is_stream_type
-
-I<Usage>
-
- $boolean = is_stream_type($type);
-
-I<Arguments>
-
-=over 4
-
-=item C<$type>
-
-An unsigned 8-bit integer.
-
-=back
-
-I<Returns>
-
-=over 4
-
-=item C<$boolean>
-
-A boolean indicating whether or not C<$type> is a stream type.
-
-=back
-
-=head1 EXPORTS
-
-None by default. All functions can be exported using the C<:all> tag or individually.
-
-=head1 DIAGNOSTICS
-
-=over 4
-
-=item B<(F)> Usage: %s
-
-Subroutine called with wrong number of arguments.
-
-=item B<(F)> Invalid Argument: %s
-
-=item B<(F)> FastCGI: Insufficient number of octets to parse %s
-
-=item B<(F)> FastCGI: Malformed record %s
-
-=item B<(F)> FastCGI: Protocol version mismatch (0x%.2X)
-
-=back
-
-=head1 SEE ALSO
-
-=over 4
-
-=item FastCGI Specification Version 1.0
-
-L<http://www.fastcgi.com/devkit/doc/fcgi-spec.html>
-
-=item The Common Gateway Interface (CGI) Version 1.1
-
-L<http://tools.ietf.org/html/rfc3875>
-
-=item L<Net::FastCGI::Constant>
-
-
-=back
-
-=head1 AUTHOR
-
-Christian Hansen C<chansen@cpan.org>
-
-=head1 COPYRIGHT
-
-Copyright 2008-2010 by Christian Hansen.
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
diff --git a/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/Protocol/PP.pm b/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/Protocol/PP.pm
deleted file mode 100644
index bfba257..0000000
--- a/debian/vendor-h2o/misc/p5-net-fastcgi/lib/Net/FastCGI/Protocol/PP.pm
+++ /dev/null
@@ -1,429 +0,0 @@
-package Net::FastCGI::Protocol::PP;
-use strict;
-use warnings;
-
-use Carp qw[];
-use Net::FastCGI::Constant qw[:all];
-
-BEGIN {
- our $VERSION = '0.14';
- our @EXPORT_OK = qw[ build_begin_request
- build_begin_request_body
- build_begin_request_record
- build_end_request
- build_end_request_body
- build_end_request_record
- build_header
- build_params
- build_record
- build_stream
- build_unknown_type_body
- build_unknown_type_record
- check_params
- parse_begin_request_body
- parse_end_request_body
- parse_header
- parse_params
- parse_record
- parse_record_body
- parse_unknown_type_body
- is_known_type
- is_management_type
- is_discrete_type
- is_stream_type
- get_record_length
- get_role_name
- get_type_name
- get_protocol_status_name ];
-
- our %EXPORT_TAGS = ( all => \@EXPORT_OK );
-
- require Exporter;
- *import = \&Exporter::import;
-}
-
-sub TRUE () { !!1 }
-sub FALSE () { !!0 }
-
-sub ERRMSG_OCTETS () { q/FastCGI: Insufficient number of octets to parse %s/ }
-sub ERRMSG_MALFORMED () { q/FastCGI: Malformed record %s/ }
-sub ERRMSG_VERSION () { q/FastCGI: Protocol version mismatch (0x%.2X)/ }
-sub ERRMSG_OCTETS_LE () { q/Invalid Argument: '%s' cannot exceed %u octets in length/ }
-
-sub throw {
- @_ = ( sprintf($_[0], @_[1..$#_]) ) if @_ > 1;
- goto \&Carp::croak;
-}
-
-# FCGI_Header
-
-sub build_header {
- @_ == 4 || throw(q/Usage: build_header(type, request_id, content_length, padding_length)/);
- return pack(FCGI_Header, FCGI_VERSION_1, @_);
-}
-
-sub parse_header {
- @_ == 1 || throw(q/Usage: parse_header(octets)/);
- (defined $_[0] && length $_[0] >= 8)
- || throw(ERRMSG_OCTETS, q/FCGI_Header/);
- (vec($_[0], 0, 8) == FCGI_VERSION_1)
- || throw(ERRMSG_VERSION, unpack('C', $_[0]));
- return unpack('xCnnCx', $_[0])
- if wantarray;
- my %header;
- @header{qw(type request_id content_length padding_length)}
- = unpack('xCnnCx', $_[0]);
- return \%header;
-}
-
-# FCGI_BeginRequestBody
-
-sub build_begin_request_body {
- @_ == 2 || throw(q/Usage: build_begin_request_body(role, flags)/);
- return pack(FCGI_BeginRequestBody, @_);
-}
-
-sub parse_begin_request_body {
- @_ == 1 || throw(q/Usage: parse_begin_request_body(octets)/);
- (defined $_[0] && length $_[0] >= 8)
- || throw(ERRMSG_OCTETS, q/FCGI_BeginRequestBody/);
- return unpack(FCGI_BeginRequestBody, $_[0]);
-}
-
-# FCGI_EndRequestBody
-
-sub build_end_request_body {
- @_ == 2 || throw(q/Usage: build_end_request_body(app_status, protocol_status)/);
- return pack(FCGI_EndRequestBody, @_);
-}
-
-sub parse_end_request_body {
- @_ == 1 || throw(q/Usage: parse_end_request_body(octets)/);
- (defined $_[0] && length $_[0] >= 8)
- || throw(ERRMSG_OCTETS, q/FCGI_EndRequestBody/);
- return unpack(FCGI_EndRequestBody, $_[0]);
-}
-
-# FCGI_UnknownTypeBody
-
-sub build_unknown_type_body {
- @_ == 1 || throw(q/Usage: build_unknown_type_body(type)/);
- return pack(FCGI_UnknownTypeBody, @_);
-}
-
-sub parse_unknown_type_body {
- @_ == 1 || throw(q/Usage: parse_unknown_type_body(octets)/);
- (defined $_[0] && length $_[0] >= 8)
- || throw(ERRMSG_OCTETS, q/FCGI_UnknownTypeBody/);
- return unpack(FCGI_UnknownTypeBody, $_[0]);
-}
-
-# FCGI_BeginRequestRecord
-
-sub build_begin_request_record {
- @_ == 3 || throw(q/Usage: build_begin_request_record(request_id, role, flags)/);
- my ($request_id, $role, $flags) = @_;
- return build_record(FCGI_BEGIN_REQUEST, $request_id,
- build_begin_request_body($role, $flags));
-}
-
-# FCGI_EndRequestRecord
-
-sub build_end_request_record {
- @_ == 3 || throw(q/Usage: build_end_request_record(request_id, app_status, protocol_status)/);
- my ($request_id, $app_status, $protocol_status) = @_;
- return build_record(FCGI_END_REQUEST, $request_id,
- build_end_request_body($app_status, $protocol_status));
-}
-
-# FCGI_UnknownTypeRecord
-
-sub build_unknown_type_record {
- @_ == 1 || throw(q/Usage: build_unknown_type_record(type)/);
- my ($type) = @_;
- return build_record(FCGI_UNKNOWN_TYPE, FCGI_NULL_REQUEST_ID,
- build_unknown_type_body($type));
-}
-
-sub build_record {
- @_ == 2 || @_ == 3 || throw(q/Usage: build_record(type, request_id [, content])/);
- my ($type, $request_id) = @_;
-
- my $content_length = defined $_[2] ? length $_[2] : 0;
- my $padding_length = (8 - ($content_length % 8)) % 8;
-
- ($content_length <= FCGI_MAX_CONTENT_LEN)
- || throw(ERRMSG_OCTETS_LE, q/content/, FCGI_MAX_CONTENT_LEN);
-
- my $res = build_header($type, $request_id, $content_length, $padding_length);
-
- if ($content_length) {
- $res .= $_[2];
- }
-
- if ($padding_length) {
- $res .= "\x00" x $padding_length;
- }
-
- return $res;
-}
-
-sub parse_record {
- @_ == 1 || throw(q/Usage: parse_record(octets)/);
- my ($type, $request_id, $content_length) = &parse_header;
-
- (length $_[0] >= FCGI_HEADER_LEN + $content_length)
- || throw(ERRMSG_OCTETS, q/FCGI_Record/);
-
- return wantarray
- ? ($type, $request_id, substr($_[0], FCGI_HEADER_LEN, $content_length))
- : parse_record_body($type, $request_id,
- substr($_[0], FCGI_HEADER_LEN, $content_length));
-}
-
-sub parse_record_body {
- @_ == 3 || throw(q/Usage: parse_record_body(type, request_id, content)/);
- my ($type, $request_id) = @_;
-
- my $content_length = defined $_[2] ? length $_[2] : 0;
-
- ($content_length <= FCGI_MAX_CONTENT_LEN)
- || throw(ERRMSG_OCTETS_LE, q/content/, FCGI_MAX_CONTENT_LEN);
-
- my %record = (type => $type, request_id => $request_id);
- if ($type == FCGI_BEGIN_REQUEST) {
- ($request_id != FCGI_NULL_REQUEST_ID && $content_length == 8)
- || throw(ERRMSG_MALFORMED, q/FCGI_BeginRequestRecord/);
- @record{ qw(role flags) } = parse_begin_request_body($_[2]);
- }
- elsif ($type == FCGI_ABORT_REQUEST) {
- ($request_id != FCGI_NULL_REQUEST_ID && $content_length == 0)
- || throw(ERRMSG_MALFORMED, q/FCGI_AbortRequestRecord/);
- }
- elsif ($type == FCGI_END_REQUEST) {
- ($request_id != FCGI_NULL_REQUEST_ID && $content_length == 8)
- || throw(ERRMSG_MALFORMED, q/FCGI_EndRequestRecord/);
- @record{ qw(app_status protocol_status) }
- = parse_end_request_body($_[2]);
- }
- elsif ( $type == FCGI_PARAMS
- || $type == FCGI_STDIN
- || $type == FCGI_STDOUT
- || $type == FCGI_STDERR
- || $type == FCGI_DATA) {
- ($request_id != FCGI_NULL_REQUEST_ID)
- || throw(ERRMSG_MALFORMED, $FCGI_RECORD_NAME[$type]);
- $record{content} = $content_length ? $_[2] : '';
- }
- elsif ( $type == FCGI_GET_VALUES
- || $type == FCGI_GET_VALUES_RESULT) {
- ($request_id == FCGI_NULL_REQUEST_ID)
- || throw(ERRMSG_MALFORMED, $FCGI_RECORD_NAME[$type]);
- $record{values} = parse_params($_[2]);
- }
- elsif ($type == FCGI_UNKNOWN_TYPE) {
- ($request_id == FCGI_NULL_REQUEST_ID && $content_length == 8)
- || throw(ERRMSG_MALFORMED, q/FCGI_UnknownTypeRecord/);
- $record{unknown_type} = parse_unknown_type_body($_[2]);
- }
- else {
- # unknown record type, pass content so caller can decide appropriate action
- $record{content} = $_[2] if $content_length;
- }
-
- return \%record;
-}
-
-# Reference implementation use 8192 (libfcgi)
-sub FCGI_SEGMENT_LEN () { 32768 - FCGI_HEADER_LEN }
-
-sub build_stream {
- @_ == 3 || @_ == 4 || throw(q/Usage: build_stream(type, request_id, content [, terminate])/);
- my ($type, $request_id, undef, $terminate) = @_;
-
- my $len = defined $_[2] ? length $_[2] : 0;
- my $res = '';
-
- if ($len) {
- if ($len < FCGI_SEGMENT_LEN) {
- $res = build_record($type, $request_id, $_[2]);
- }
- else {
- my $header = build_header($type, $request_id, FCGI_SEGMENT_LEN, 0);
- my $off = 0;
- while ($len >= FCGI_SEGMENT_LEN) {
- $res .= $header;
- $res .= substr($_[2], $off, FCGI_SEGMENT_LEN);
- $len -= FCGI_SEGMENT_LEN;
- $off += FCGI_SEGMENT_LEN;
- }
- if ($len) {
- $res .= build_record($type, $request_id, substr($_[2], $off, $len));
- }
- }
- }
-
- if ($terminate) {
- $res .= build_header($type, $request_id, 0, 0);
- }
-
- return $res;
-}
-
-sub build_params {
- @_ == 1 || throw(q/Usage: build_params(params)/);
- my ($params) = @_;
- my $res = '';
- while (my ($key, $val) = each(%$params)) {
- for ($key, $val) {
- my $len = defined $_ ? length : 0;
- $res .= $len < 0x80 ? pack('C', $len) : pack('N', $len | 0x8000_0000);
- }
- $res .= $key;
- $res .= $val if defined $val;
- }
- return $res;
-}
-
-sub parse_params {
- @_ == 1 || throw(q/Usage: parse_params(octets)/);
- my ($octets) = @_;
-
- (defined $octets)
- || return +{};
-
- my ($params, $klen, $vlen) = ({}, 0, 0);
- while (length $octets) {
- for ($klen, $vlen) {
- (1 <= length $octets)
- || throw(ERRMSG_OCTETS, q/FCGI_NameValuePair/);
- $_ = vec(substr($octets, 0, 1, ''), 0, 8);
- next if $_ < 0x80;
- (3 <= length $octets)
- || throw(ERRMSG_OCTETS, q/FCGI_NameValuePair/);
- $_ = vec(pack('C', $_ & 0x7F) . substr($octets, 0, 3, ''), 0, 32);
- }
- ($klen + $vlen <= length $octets)
- || throw(ERRMSG_OCTETS, q/FCGI_NameValuePair/);
- my $key = substr($octets, 0, $klen, '');
- $params->{$key} = substr($octets, 0, $vlen, '');
- }
- return $params;
-}
-
-sub check_params {
- @_ == 1 || throw(q/Usage: check_params(octets)/);
- (defined $_[0])
- || return FALSE;
-
- my ($len, $off, $klen, $vlen) = (length $_[0], 0, 0, 0);
- while ($off < $len) {
- for ($klen, $vlen) {
- (($off += 1) <= $len)
- || return FALSE;
- $_ = vec($_[0], $off - 1, 8);
- next if $_ < 0x80;
- (($off += 3) <= $len)
- || return FALSE;
- $_ = vec(substr($_[0], $off - 4, 4), 0, 32) & 0x7FFF_FFFF;
- }
- (($off += $klen + $vlen) <= $len)
- || return FALSE;
- }
- return TRUE;
-}
-
-sub build_begin_request {
- (@_ >= 4 && @_ <= 6) || throw(q/Usage: build_begin_request(request_id, role, flags, params [, stdin [, data]])/);
- my ($request_id, $role, $flags, $params) = @_;
-
- my $r = build_begin_request_record($request_id, $role, $flags)
- . build_stream(FCGI_PARAMS, $request_id, build_params($params), TRUE);
-
- if (@_ > 4) {
- $r .= build_stream(FCGI_STDIN, $request_id, $_[4], TRUE);
- if (@_ > 5) {
- $r .= build_stream(FCGI_DATA, $request_id, $_[5], TRUE);
- }
- }
- return $r;
-}
-
-sub build_end_request {
- (@_ >= 3 && @_ <= 5) || throw(q/Usage: build_end_request(request_id, app_status, protocol_status [, stdout [, stderr]])/);
- my ($request_id, $app_status, $protocol_status) = @_;
-
- my $r;
- if (@_ > 3) {
- $r .= build_stream(FCGI_STDOUT, $request_id, $_[3], TRUE);
- if (@_ > 4) {
- $r .= build_stream(FCGI_STDERR, $request_id, $_[4], TRUE);
- }
- }
- $r .= build_end_request_record($request_id, $app_status, $protocol_status);
- return $r;
-}
-
-sub get_record_length {
- @_ == 1 || throw(q/Usage: get_record_length(octets)/);
- (defined $_[0] && length $_[0] >= FCGI_HEADER_LEN)
- || return 0;
- return FCGI_HEADER_LEN + vec($_[0], 2, 16) # contentLength
- + vec($_[0], 6, 8); # paddingLength
-}
-
-sub is_known_type {
- @_ == 1 || throw(q/Usage: is_known_type(type)/);
- my ($type) = @_;
- return ($type > 0 && $type <= FCGI_MAXTYPE);
-}
-
-sub is_discrete_type {
- @_ == 1 || throw(q/Usage: is_discrete_type(type)/);
- my ($type) = @_;
- return ( $type == FCGI_BEGIN_REQUEST
- || $type == FCGI_ABORT_REQUEST
- || $type == FCGI_END_REQUEST
- || $type == FCGI_GET_VALUES
- || $type == FCGI_GET_VALUES_RESULT
- || $type == FCGI_UNKNOWN_TYPE );
-}
-
-sub is_management_type {
- @_ == 1 || throw(q/Usage: is_management_type(type)/);
- my ($type) = @_;
- return ( $type == FCGI_GET_VALUES
- || $type == FCGI_GET_VALUES_RESULT
- || $type == FCGI_UNKNOWN_TYPE );
-}
-
-sub is_stream_type {
- @_ == 1 || throw(q/Usage: is_stream_type(type)/);
- my ($type) = @_;
- return ( $type == FCGI_PARAMS
- || $type == FCGI_STDIN
- || $type == FCGI_STDOUT
- || $type == FCGI_STDERR
- || $type == FCGI_DATA );
-}
-
-sub get_type_name {
- @_ == 1 || throw(q/Usage: get_type_name(type)/);
- my ($type) = @_;
- return $FCGI_TYPE_NAME[$type] || sprintf('0x%.2X', $type);
-}
-
-sub get_role_name {
- @_ == 1 || throw(q/Usage: get_role_name(role)/);
- my ($role) = @_;
- return $FCGI_ROLE_NAME[$role] || sprintf('0x%.4X', $role);
-}
-
-sub get_protocol_status_name {
- @_ == 1 || throw(q/Usage: get_protocol_status_name(protocol_status)/);
- my ($status) = @_;
- return $FCGI_PROTOCOL_STATUS_NAME[$status] || sprintf('0x%.2X', $status);
-}
-
-1;
-