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
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
|
# --
# Copyright (C) 2001-2021 OTRS AG, https://otrs.com/
# --
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
# the enclosed file COPYING for license information (GPL). If you
# did not receive this file, see https://www.gnu.org/licenses/gpl-3.0.txt.
# --
package Kernel::System::SupportDataCollector::Plugin::Webserver::Apache::Performance;
use strict;
use warnings;
use parent qw(Kernel::System::SupportDataCollector::PluginBase);
use Kernel::Language qw(Translatable);
our @ObjectDependencies = ();
sub GetDisplayPath {
return Translatable('Webserver');
}
sub Run {
my $Self = shift;
my %Environment = %ENV;
# No web request or no apache webserver, skip this check.
if ( !$ENV{GATEWAY_INTERFACE} || !$ENV{SERVER_SOFTWARE} || $ENV{SERVER_SOFTWARE} !~ m{apache}i ) {
return $Self->GetResults();
}
# Check for CGI accelerator
if ( $ENV{MOD_PERL} ) {
$Self->AddResultOk(
Identifier => "CGIAcceleratorUsed",
Label => Translatable('CGI Accelerator Usage'),
Value => $ENV{MOD_PERL},
);
}
elsif ( $INC{'CGI/Fast.pm'} || $ENV{FCGI_ROLE} || $ENV{FCGI_SOCKET_PATH} ) {
$Self->AddResultOk(
Identifier => "CGIAcceleratorUsed",
Label => Translatable('CGI Accelerator Usage'),
Value => 'fastcgi',
);
}
else {
$Self->AddResultWarning(
Identifier => "CGIAcceleratorUsed",
Label => Translatable('CGI Accelerator Usage'),
Value => '',
Message => Translatable('You should use FastCGI or mod_perl to increase your performance.'),
);
}
if ( $ENV{MOD_PERL} ) {
my $ModDeflateLoaded =
Apache2::Module::loaded('mod_deflate.c') || Apache2::Module::loaded('mod_deflate.so');
if ($ModDeflateLoaded) {
$Self->AddResultOk(
Identifier => "ModDeflateLoaded",
Label => Translatable('mod_deflate Usage'),
Value => 'active',
);
}
else {
$Self->AddResultWarning(
Identifier => "ModDeflateLoaded",
Label => Translatable('mod_deflate Usage'),
Value => 'not active',
Message => Translatable('Please install mod_deflate to improve GUI speed.'),
);
}
my $ModFilterLoaded =
Apache2::Module::loaded('mod_filter.c') || Apache2::Module::loaded('mod_filter.so');
if ($ModFilterLoaded) {
$Self->AddResultOk(
Identifier => "ModFilterLoaded",
Label => Translatable('mod_filter Usage'),
Value => 'active',
);
}
else {
$Self->AddResultWarning(
Identifier => "ModFilterLoaded",
Label => Translatable('mod_filter Usage'),
Value => 'not active',
Message => Translatable('Please install mod_filter if mod_deflate is used.'),
);
}
my $ModHeadersLoaded =
Apache2::Module::loaded('mod_headers.c') || Apache2::Module::loaded('mod_headers.so');
if ($ModHeadersLoaded) {
$Self->AddResultOk(
Identifier => "ModHeadersLoaded",
Label => Translatable('mod_headers Usage'),
Value => 'active',
);
}
else {
$Self->AddResultWarning(
Identifier => "ModHeadersLoaded",
Label => Translatable('mod_headers Usage'),
Value => 'not active',
Message => Translatable('Please install mod_headers to improve GUI speed.'),
);
}
# check if Apache::Reload is loaded
my $ApacheReloadUsed = 0;
for my $Module ( sort keys %INC ) {
$Module =~ s/\//::/g;
$Module =~ s/\.pm$//g;
if ( $Module eq 'Apache::Reload' || $Module eq 'Apache2::Reload' ) {
$ApacheReloadUsed = $Module;
}
}
if ($ApacheReloadUsed) {
$Self->AddResultOk(
Identifier => "ApacheReloadUsed",
Label => Translatable('Apache::Reload Usage'),
Value => 'active',
);
}
else {
$Self->AddResultWarning(
Identifier => "ApacheReloadUsed",
Label => Translatable('Apache::Reload Usage'),
Value => 'not active',
Message =>
Translatable(
'Apache::Reload or Apache2::Reload should be used as PerlModule and PerlInitHandler to prevent web server restarts when installing and upgrading modules.'
),
);
}
my $ApacheDBIUsed;
for my $Module ( sort keys %INC ) {
$Module =~ s/\//::/g;
$Module =~ s/\.pm$//g;
if ( $Module eq 'Apache::DBI' || $Module eq 'Apache2::DBI' ) {
$ApacheDBIUsed = $Module;
}
}
if ($ApacheDBIUsed) {
$Self->AddResultOk(
Identifier => "ApacheDBIUsed",
Label => Translatable('Apache2::DBI Usage'),
Value => 'active',
);
}
else {
$Self->AddResultWarning(
Identifier => "ApacheDBIUsed",
Label => Translatable('Apache2::DBI Usage'),
Value => 'not active',
Message =>
Translatable(
'Apache2::DBI should be used to get a better performance with pre-established database connections.'
),
);
}
}
return $Self->GetResults();
}
1;
|
