package Apache::Inject; use strict; use warnings; use Apache2::CmdParms (); use Apache2::Module (); use Apache2::Const qw/OR_LIMIT TAKE12/; my @directives = ( { name => 'Inject', func => __PACKAGE__.'::Inject', req_override => OR_LIMIT, args_how => TAKE12, errmsg => 'Inject HeadFile[!] FootFile[!]' } ); Apache2::Module::add(__PACKAGE__, \@directives); sub Inject { my ($self, $parms, @args) = @_; $parms->add_config(['SetHandler perl-script', 'PerlHandler Apache::Inject::Handler']); } 1;