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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
package Bugzilla::ModPerl;
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
#
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::ModPerl;
use 5.10.1;
use strict;
use warnings;
use File::Find ();
use Cwd ();
use Carp ();
# We don't need (or want) to use Bugzilla's template subclass.
use Template ();
=head1 NAME
Bugzilla::ModPerl - ...
=head1 SYNOPSIS
use Bugzilla::ModPerl;
...
=head1 DESCRIPTION
...
=head1 METHODS
=over 4
=item C<apache_config>
Configure Apache for security and speed.
=back
=cut
sub apache_config {
my ($class, $cgi_path) = @_;
Carp::croak "\$cgi_path is required" unless $cgi_path;
my %htaccess;
$cgi_path = Cwd::realpath($cgi_path);
my $wanted = sub {
package File::Find;
our ($name, $dir);
if ($name =~ /\.htaccess$/) {
open my $fh, '<', $name or die "cannot open $name $!";
my $contents = do {
local $/ = undef;
<$fh>;
};
close $fh;
$htaccess{$dir} = {file => $name, contents => $contents, dir => $dir};
}
};
File::Find::find({wanted => $wanted, no_chdir => 1}, $cgi_path);
my $template = Template->new;
my $conf;
my %vars = (
root_htaccess => delete $htaccess{$cgi_path},
htaccess_files =>
[map { $htaccess{$_} } sort { length $a <=> length $b } keys %htaccess],
cgi_path => $cgi_path,
);
$template->process(\*DATA, \%vars, \$conf);
return $conf;
}
1;
__DATA__
# Make sure each httpd child receives a different random seed (bug 476622).
# Bugzilla::RNG has one srand that needs to be called for
# every process, and Perl has another. (Various Perl modules still use
# the built-in rand(), even though we never use it in Bugzilla itself,
# so we need to srand() both of them.)
PerlChildInitHandler "sub { Bugzilla::RNG::srand(); srand(); }"
<Directory "[% cgi_path %]">
AddHandler perl-script .cgi
# No need to PerlModule these because they're already defined in mod_perl.pl
PerlResponseHandler Bugzilla::ModPerl::ResponseHandler
PerlCleanupHandler Bugzilla::ModPerl::CleanupHandler Apache2::SizeLimit
PerlOptions +ParseHeaders
Options +ExecCGI +FollowSymLinks
DirectoryIndex index.cgi index.html
AllowOverride none
# from [% root_htaccess.file %]
[% root_htaccess.contents FILTER indent %]
</Directory>
# directory rules for all the other places we have .htaccess files
[% FOREACH htaccess IN htaccess_files %]
# from [% htaccess.file %]
<Directory "[% htaccess.dir %]">
[% htaccess.contents FILTER indent %]
</Directory>
[% END %]
|
GitWeb