Net::Server::HTTP - very basic Net::Server based HTTP server class
perl -e 'use Net::Server::HTTP; Net::Server::HTTP->run(port=>8080)'
use base qw(Net::Server::HTTP); __PACKAGE__->run; sub process_http_request { my $self = shift; print "Content-type: text/html\n\n"; print "<form method=post action=/bam><input type=text name=foo><input type=submit></form>\n"; if (require Data::Dumper) { local $Data::Dumper::Sortkeys = 1; my $form = {}; if (require CGI) { my $q = CGI->new; $form->{$_} = $q->param($_) for $q->param; } print "<pre>".Data::Dumper->Dump([\%ENV, $form], ['*ENV', 'form'])."</pre>"; } }
Even though Net::Server::HTTP doesn't fall into the normal parallel of the other Net::Server flavors, handling HTTP requests is an often requested feature and is a standard and simple protocol.
Net::Server::HTTP begins with base type MultiType defaulting to Net::Server::Fork. It is easy to change it to any of the other Net::Server flavors by passing server_type => $other_flavor in the server configurtation. The port has also been defaulted to port 80 - but could easily be changed to another through the server configuration.
process_http_request
During this method, the %ENV will have been set to a standard CGI style environment. You will need to be sure to print the Content-type header. This is one change from the other standard Net::Server base classes.
During this method you can read from ENV and STDIN just like a normal HTTP request in other web servers. You can print to STDOUT and Net::Server will handle the header negotiation for you.
Note: Net::Server::HTTP has no concept of document root or script aliases or default handling of static content. That is up to the consumer of Net::Server::HTTP to work out.
Net::Server::HTTP comes with a basic ENV display installed as the default process_request method.
process_request
This method has been overridden in Net::Server::HTTP - you should not use it while using Net::Server::HTTP. This method parses the environment and sets up request alarms and handles dying failures. It calls process_http_request once the request is ready.
send_status
Takes an HTTP status and a message. Sends out the correct headers.
send_501
Calls send_status with 501 and the argument passed to send_501.
In addition to the command line arguments of the Net::Server base classes you can also set the following options.
Defaults to 100_000. Maximum number of bytes to read while parsing headers.
Defaults to Net::Server::HTTP/$Net::Server::VERSION.
Defaults to 15 - number of seconds to wait for parsing headers.
Defaults to 60 - number of seconds a request can be idle before the request is closed.
Add support for writing out HTTP/1.1.
Paul T. Seamons paul@seamons.com
See Net::Server
Please see also Net::Server::Fork, Net::Server::INET, Net::Server::PreFork, Net::Server::PreForkSimple, Net::Server::MultiType, Net::Server::Single Net::Server::SIG Net::Server::Daemonize Net::Server::Proto
1 POD Error
The following errors were encountered while parsing the POD:
You forgot a '=back' before '=head1'
To install Net::Server, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Net::Server
CPAN shell
perl -MCPAN -e shell install Net::Server
For more information on module installation, please visit the detailed CPAN module installation guide.