blob: 5b6df8d981066c7afcff6640e77ee79a4ecbb159 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
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;
|