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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
#Configuration directives specific to mod_perl
ServerRoot /opt/www
ServerName localhost
DocumentRoot docs
#mod_perl stuff
PerlScript t/docs/startup.pl
PerlTaintCheck On
Alias /perl/ /opt/www/perl/
Port 8529
<Perl>
$User = getpwuid($>) || $>;
$Group = getgrgid($)) || $);
$ServerAdmin = $User;
my(%handlers) = (
"/perl" => "",
"/perl/io" => "",
"/perl/perl-status" => "Apache::Status",
);
for (keys %handlers) {
$Location{$_} = {
PerlHandler => $handlers{$_} || "Apache::Registry",
SetHandler => "perl-script",
Options => "ExecCGI",
};
}
$Location{"/perl/io"}->{PerlSendHeader} = "On";
for (qw(status info)) {
$Location{"/server-$_"} = {
SetHandler => "server-$_",
};
}
@PerlModule = qw(Config Net::Ping);
$Location{"/~dougm/"} = {
AuthUserFile => '/tmp/htpasswd',
AuthType => 'Basic',
AuthName => 'test',
Limit => {
METHODS => 'GET POST',
require => 'user dougm',
},
};
</Perl>
|
