***** infoCopter.com/perl *****

mod_perl

[ mod_perl ] - [ mod_perl Basic Auth Challenge ] - [ Apache Request Loop ]

Hello World Sample

package ModPerl::Hello;

use strict;
use warnings;

use Apache::RequestRec ();
use Apache::RequestIO ();

use Apache::Const -compile => qw(OK);

sub handler {
      my $r = shift;

      $r->content_type('text/html');

	print q~<html>
	<head><title>mod_perl</title>
	</head>
	<body>
	<h1>mod_perl 2.0 rocks!</h1>
	<ul>
	~;

	print "<li>$_ = $ENV{$_}</li>\n" foreach keys %ENV;

	print '</ul>';

	return Apache::OK;
}

1;

httpd.conf:

<Location /hello/world>
	SetHandler  perl-script
	PerlHandler ModPerl::Hello
</Location>

[ http://perl.apache.org/docs/2.0/user/intro/start_fast.html ] - [ CGI to mod_perl ]

Check if script is running in mod_perl mode:

Check if $ENV{MOD_PERL} is set. This is what Apache::DBI does.

Or check with $ENV{GATEWAY_INTERFACE}

Common CGI: "CGI/1.1" / mod_perl: "CGI-Perl/1.1"

Module Directives:

PerlSwitches - Perl Switches

PerlModule - PerlModule

PerlRequire - PerlRequire

PerlOptions - Perl Options

PerlInitHandler - Subroutine name

PerlSetVar - PerlSetVar

PerlAddVar - PerlAddVar

PerlSetEnv - PerlSetEnv

PerlPassEnv - PerlPassEnv

Perl Code

Perl - Perl Code

PerlSetInputFilter - filter[;filter]

PerlSetOutputFilter - filter[;filter]

=pod - Start of POD

=back - End of =over

=cut - End of POD

__END__ - Stop reading config

PerlLoadModule - A Perl module

PerlSendHeader - Tell mod_perl to scan output for HTTP headers

PerlSetupEnv - Turn setup of %ENV On or Off

PerlHandler - Subroutine name

PerlTaintCheck - Turn on -T switch

PerlWarn - Turn on -w switch

PerlChildInitHandler - Subroutine name

PerlChildExitHandler - Subroutine name

PerlOpenLogsHandler - Subroutine name

PerlPostConfigHandler - Subroutine name

PerlPreConnectionHandler - Subroutine name

PerlProcessConnectionHandler - Subroutine name

PerlHeaderParserHandler - Subroutine name

PerlAccessHandler - Subroutine name

PerlAuthenHandler - Subroutine name

PerlAuthzHandler - Subroutine name

PerlTypeHandler - Subroutine name

PerlFixupHandler - Subroutine name

PerlResponseHandler - Subroutine name

PerlLogHandler - Subroutine name

PerlCleanupHandler - Subroutine name

PerlInputFilterHandler - Subroutine name

PerlOutputFilterHandler - Subroutine name

PerlPostReadRequestHandler - Subroutine name

PerlTransHandler - Subroutine name

PerlMapToStorageHandler - Subroutine name

mod_perl

Hello World Sample

httpd.conf:

Module Directives:

Related Links