Your browser sent a request which this web server could not grok.
'; my $length = $doc.chars; $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n"); $.remote.print("Content-Type: text/html; charset=UTF-8\r\n"); $.remote.print("Content-Length: $length\r\n\r\n"); $.remote.print($doc); } method handle_request { my $doc = "You now have a functional HTTP::Server::Simple running.
(If you're seeing this page, it means you haven't subclassed HTTP::Server::Simple, which you'll need to do to make it useful.)
"; my $length = $doc.chars; $.remote.print("HTTP/1.0 200 OK\r\n"); $.remote.print("Content-Type: text/html; charset=UTF-8\r\n"); $.remote.print("Content-Length: $length\r\n\r\n"); $.remote.print($doc); } method handler { self.handle_request } method parse_request { my Str $chunk = $.remote.readline; defined $chunk or return undef; $chunk ~~ m:P5/^(\w+)\s+(\S+)(?:\s+(\S+))?\r?$/; my Str $method = $0 || ''; my Str $uri = $1 || ''; my Str $proto = $2 || ''; return( $method, $uri, $proto ); } method parse_headers { my @headers; my Str $chunk = ''; while $chunk = $.remote.readline { $chunk ~~ s:P5/[\r\n\s]+$//; if $chunk ~~ m:P5/^([\w\-]+): (.+)/ { @headers.push( $0 => $1 ); } last if $chunk ~~ m:P5/^$/; } return \@headers; } method prepare { $*IN := $.remote; $*OUT := $.remote; my ( $method, $uri, $proto ) = self.parse_request or do { self.bad_request; return 0 }; $proto ||= 'HTTP/0.9'; $uri ~~ m:P5/([^?]*)(?:\?(.*))?/; my Str $file = $0 || ''; my Str $query = $1 || ''; unless $method ~~ m:P5/^(?:GET|POST|HEAD)$/ { self.bad_request; return 0; } %*ENV