File Coverage

blib/lib/Apache/GopherHandler.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Apache::GopherHandler;
use strict;
use warnings;

our $VERSION = 0.1;

use Apache::Connection ();
use APR::Socket ();
use Apache::Const -compile => 'OK';
use Gopher::Server::ParseRequest;
#use Gopher::Server::RequestHandler::File;
use Apache::GopherHandler::TiedSocket;

my ( $doc_root,     $server,     $port ) =
   ( '/noexists/',  'localhost', 70,   );
my ( $handler ) = 'Gopher::Server::RequestHandler::File';

(    $doc_root, $handler, $server, $port ) =
	map $Apache::GopherHandler::Config{$_},
  qw( doc_root   handler   server   port );


# A little sanity checking
eval " require $handler ";
die "Couldn't load a handler named '$handler': $@\n" if $@;

die "No directory '$doc_root'\n" unless -d $doc_root;


sub handler
{
	my $c = shift;
	my $socket = $c->client_socket;

	my $request_str = '';
	while(1) {
		my $rlen = 1024;
		$socket->recv( my $buff, $rlen );

		last if $rlen <= 0;
		$request_str .= $buff;
		last if $buff =~ /[\r\n]+$/;
	}

	$request_str =~ tr/\r\n//d;
	my $request = Gopher::Server::ParseRequest->parse( $request_str );
	my $handler = $handler->new({
		root => $doc_root,
		host => $server,
		port => $port,
	});
	my $response = $handler->process( $request );
	tie *OUT, 'Apache::GopherHandler::TiedSocket' => $socket;
	$response->print_to( *OUT );

	return Apache::OK;
}

1;
__END__