HTTP::Server::Simple::Static - Serve static files with HTTP::Server::Simple
This documentation refers to HTTP::Server::Simple::Static version 0.07
package MyServer; use base qw(HTTP::Server::Simple::CGI); use HTTP::Server::Simple::Static; my $webroot = '/var/www'; sub handle_request { my ( $self, $cgi ) = @_; if ( !$self->serve_static( $cgi, $webroot ) ) { print "HTTP/1.0 404 Not found\r\n"; print $cgi->header, $cgi->start_html('Not found'), $cgi->h1('Not found'), $cgi->end_html; } } package main; my $server = MyServer->new(); $server->run();
this mixin adds a method to serve static files from your HTTP::Server::Simple subclass.
Takes a reference to the CGI object and a document root path, and tries to serve a static file. Returns 0 if the file does not exist, returns 1 on success.
Bugs or wishlist requests should be submitted via http://rt.cpan.org/
The File::LibMagic module is used to detect the MIME-type of a file. The URI::Escape module is used for URI handling. The HTTP::Date module is used to format the timestamp in the Last-Modified HTTP header.
HTTP::Server::Simple, HTTP::Server::Simple::CGI
Stephen Quinney sjq-perl@jadevine.org.uk
sjq-perl@jadevine.org.uk
Thanks to Marcus Ramberg marcus@thefeed.no and Simon Cozens for initial implementation.
marcus@thefeed.no
Copyright 2006 - 2013. Stephen Quinney sjq-perl@jadevine.org.uk
You may distribute this code under the same terms as Perl itself.
To install HTTP::Server::Simple::Static, copy and paste the appropriate command in to your terminal.
cpanm
cpanm HTTP::Server::Simple::Static
CPAN shell
perl -MCPAN -e shell install HTTP::Server::Simple::Static
For more information on module installation, please visit the detailed CPAN module installation guide.