NAME ==== HTTP::Request::Supply - A modern HTTP/1.x request parser SYNOPSIS ======== use HTTP::Request::Supply; react { whenever IO::Socket::Async.listen('localhost', 8080) -> $conn { my $envs = HTTP::Request::Supply.parse-http($conn); whenever $envs -> %env { my $res = await app(%env); handle-response($conn, $res); QUIT { when X::HTTP::Request::Supply::UnsupportedProtocol && .looks-httpish { $conn.print("505 HTTP Version Not Supported HTTP/1.1\r\n"); $conn.print("Content-Length: 26\r\n"); $conn.print("Content-Type: text/plain\r\n\r\n"); $conn.print("HTTP Version Not Supported\r\n"); } when X::HTTP::Request::Supply::BadRequest { $conn.print("400 Bad Request HTTP/1.1\r\n"); $conn.print("Content-Length: " ~ .message.encode.bytes ~ \r\n"); $conn.print("Content-Type: text/plain\r\n\r\n"); $conn.print(.message); $conn.print("\r\n"); } # N.B. This exception should be rarely emitted and indicates that a # feature is known to exist in HTTP, but this module does not yet # support it. when X::HTTP::Request::Supply::ServerError { $conn.print("500 Internal Server Error HTTP/1.1\r\n"); $conn.print("Content-Length: " ~ .message.encode.bytes ~ \r\n"); $conn.print("Content-Type: text/plain\r\n\r\n"); $conn.print(.message); $conn.print("\r\n"); } warn .message; $conn.close; } } } } DESCRIPTION =========== **EXPERIMENTAL:** The API for this module is experimental and may change. The [HTTP::Parser](HTTP::Parser) ported from Perl 5 (and the implementation in Perl 5) is naïve and really only parses a single HTTP frame (i.e., it provides no keep-alive support). However, that is not how the HTTP protocol typically works on the modern web. This class provides a [Supply](Supply) that is able to parse a series of request frames from an HTTP/1.x connection. Given a [Supply](Supply), it consumes binary input from it. It detects the request frame or frames within the stream and passes them back to the tapper asynchronously as they arrive. This Supply emits [P6WAPI](P6WAPI) compatible environments for use by the caller. If a problem is detected in the stream, it will quit with an exception. METHODS ======= sub parse-http -------------- sub parse-http(Supply:D() :$conn, :&promise-maker) returns Supply:D The given [Supply](Supply), `$conn`, must emit a stream of bytes. Any other data will result in undefined behavior. This parser assumes binary data will be sent. The returned supply will react whenever data is emitted on the input supply. The incoming bytes are collated into HTTP frames, which are parsed to determine the contents of the headers. Headers are encoded into strings via ISO-8859-1 (as per [RFC7230 §3.2.4](https://tools.ietf.org/html/rfc7230#section-3.2.4)). Once the headers for a given frame have been read, a partial [P6WAPI](P6WAPI) compatible environment is generated from the headers and emitted to the returned Supply. The environment will be filled as follows: * The `Content-Length` will be set in `CONTENT_LENGTH`, if the client sent a Content-Length header in the request. * The `Content-Type` will be set in `CONTENT_TYPE`, if the client send a Content-Type header in the request. * Other headers will be set in `HTTP_*` where the header name is converted to uppercase and dashes are replaced with underscores. * The `REQUEST_METHOD` will be set to the method set in the request line. * The `SERVER_PROTOCOL` will be set to the protocol set in the request line. * The `REQUEST_URI` will be set to the URI set in the request line. * The `p6w.input` variable will be set to a sane [Supply](Supply) that emits chunks of the body as bytes as they arrive. No attempt is made to decode these bytes. No other keys will be set. Thus, to create a complete P6WAPI environment, the caller will need to some additional work, such as parsing out the components of the `REQUEST_URI`. DIAGNOSTICS =========== The following exceptions are thrown by this class while processing input, which will trigger the quit handlers on the Supply. X::HTTP::Request::Supply::UnsupportedProtocol --------------------------------------------- This exception will be thrown if the stream does not seem to be HTTP or if the requested HTTP version is not 1.0 or 1.1. This exception includes two attributes: * `looks-httpish` is a boolean value that is set to True if the data sent resembles HTTP, but the server protocol string does not match either "HTTP/1.0" or "HTTP/1.1", e.g., an HTTP/2 connection preface. * `input` is a [Supply](Supply) that may be tapped to consume the complete stream including the bytes already read. This allows chaining of modules similar to this one to handle other protocols that might happen over the web server's port. X::HTTP::Request::Supply::BadRequest ------------------------------------ This exception will be thrown if the HTTP request is incorrectly framed. This may happen when the request does not specify its content length using a `Content-Length` header or chunked `Transfer-Encoding`. X::HTTP::Request::Supply::ServerError ------------------------------------- This exception may be thrown when a feature of HTTP/1.0 or HTTP/1.1 is not implemented. CAVEATS ======= HTTP is complicated and hard. This implementation is not yet complete and not battle tested yet. Please report bugs to github and patches are welcome. This interface is built with the intention of making it easier to build HTTP/1.0 and HTTP/1.1 parsers for use with [P6WAPI](P6WAPI). As of this writing, that specification is only a proposed draft, so the output of this module is experiemental and will change as that specification changes. Finally, one limitation of this module is that it is only responsible for parsing the incoming HTTP frames. It will not manage the connection and it provides no tools for sending responses back to the user agent. AUTHOR ====== Sterling Hanenkamp ` ` COPYRIGHT & LICENSE =================== Copyright 2016 Sterling Hanenkamp. This software is licensed under the same terms as Perl 6.