I'm using mod_perl + Template Toolkit, and I'm having trouble getting Apache
to pass the DirectoryIndex to my handler. The handler is supposed to take
the path_info and pull a template of the same name from a subdirectory
called 'html'.
This works fine for file names which do exist in the subdirectory. And, if
they don't exist, an error is correctly generated. However, if the path is
empty or '/', I expect Apache to include the DirectoryIndex (index.html) in
path_info or somewhere else that I can get to it. Unfortunately, Apache is
passing empty paths and '/' straight through to the handler, causing a file
not found error.
Maybe I'm just not looking in the right place, but I've spent a lot of time
Googling and looking at the mod_perl guide, and I can't seem to find an
exact answer to my problem. This would seem to be a common issue. Can anyone
offer a solution?
Admittedly, I'm new to Apache, mod_perl and Template Toolkit, and I'm
getting my feet wet trying to learn all three using my Windows 2000
workstation as a test bed, although the eventual target server will be
running Linux. Below is some sample code (mostly copied/modified from
various online sources) that I boiled down in an attempt to solve the
problem, but to no avail.
Thanks in advance.
-Tim
httpd.conf
----------
# default win32 config up to here ...
# mod_perl config
Include conf/perl.conf
----------------------------------------------------------------------
perl.conf
---------
LoadModule perl_module modules/mod_perl.so
AddModule mod_perl.c
PerlRequire conf/startup.pl
PerlWarn On
PerlTaintCheck On
PerlFreshRestart On
PerlSetVar websrc /usr/local/apache/tt
<Location /tt>
SetHandler perl-script
PerlHandler Test::Mod
</Location>
----------------------------------------------------------------------
startup.pl
----------
#!/usr/bin/perl -w
use strict;
BEGIN {
# modify include path
use Apache ();
use lib Apache->server_root_relative('lib/perl');
}
# are we under mod_perl?
$ENV{MOD_PERL}
or die("not running under mod_perl");
# detailed warnings
use Carp ();
$SIG{__WARN__} = \&Carp::cluck;
# load common modules
use Apache::Constants ();
use Template ();
# load custom modules
use Test::Mod ();
1;
----------------------------------------------------------------------
Test/Mod.pm
-----------
#!/usr/bin/perl -wT
package Test::Mod;
use strict;
use Apache::Constants qw( :common );
use Template qw( :template );
our $VERSION = 0.01;
sub handler {
my $r = shift;
my $websrc = $r->dir_config('websrc')
or return fail( $r, SERVER_ERROR, "'websrc' not specified" );
my $template = Template->new({
INCLUDE_PATH => "$websrc:$websrc/html:$websrc/html/include",
OUTPUT => $r,
});
# use the path_info to determine which template file to process
my $file = $r->path_info();
$file =~ s[^/][];
my $vars = {
uri => $r->uri(),
file => $r->filename(),
path => $r->path_info(),
tt => $file,
};
$r->content_type('text/html');
$r->no_cache(1);
$r->send_http_header();
$template->process($file, $vars)
or return fail( $r, SERVER_ERROR, $template->error() );
return OK;
}
sub fail {
my ($r, $status, $message) = @_;
$r->log_reason( $message, $r->filename() );
return $status;
}
----------------------------------------------------------------------
index.html
----------
[% PROCESS header.html
title = 'template test'
%]
<p>uri: [% uri %]</p>
<p>file: [% file %]</p>
<p>path: [% path %]</p>
<p>template: [% tt %]</p>
[% PROCESS footer.html %]
