{
package MyMasonHandler_mywebsite;
use vars qw(@ISA);
push( @ISA, 'HTML::Mason::ApacheHandler' );
my $ah = HTML::Mason::ApacheHandler->new(
comp_root => "/home/mywebsite/html",
data_dir => "/var/cache/mason/mywebsite",
args_method => 'mod_perl',
);
sub handler {
my ( $r ) = @_;
# maybe set something here?
# e.g. $r->param("sitename") = "mywebsite";
$ah->handle_request( $r );
}
}
ServerName mywebsite
DocumentRoot /home/mywebsite/html
SetHandler perl-script
PerlHandler MyMasonHandler_mywebsite