andre/scripts
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

init III

Browse Source
This commit is contained in:
Andre Geißler
2024-10-14 00:08:40 +02:00
parent dbfba56f66
commit 1462d52e13
4572 changed files with 2658864 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
Perl OTRS/Kernel/System/SupportDataCollector/Plugin/Webserver/Apache/LoadedModules.pm Normal file
View File

@@ -0,0 +1,52 @@
# --
# Copyright (C) 2001-2019 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::LoadedModules;
use strict;
use warnings;
use parent qw(Kernel::System::SupportDataCollector::PluginBase);
use Kernel::Language qw(Translatable);
our @ObjectDependencies = ();
sub GetDisplayPath {
return Translatable('Webserver') . '/' . Translatable('Loaded Apache Modules');
}
sub Run {
my $Self = shift;
my %Environment = %ENV;
# No web request or no apache webserver with mod_perl, skip this check.
if (
!$ENV{GATEWAY_INTERFACE}
|| !$ENV{SERVER_SOFTWARE}
|| $ENV{SERVER_SOFTWARE} !~ m{apache}i
|| !$ENV{MOD_PERL}
|| !eval { require Apache2::Module; }
)
{
return $Self->GetResults();
}
for ( my $Module = Apache2::Module::top_module(); $Module; $Module = $Module->next() ) {
$Self->AddResultInformation(
Identifier => $Module->name(),
Label => $Module->name(),
Value => $Module->ap_api_major_version() . '.' . $Module->ap_api_minor_version(),
);
}
return $Self->GetResults();
}
1;

68
Perl OTRS/Kernel/System/SupportDataCollector/Plugin/Webserver/Apache/MPMModel.pm Normal file
View File

@@ -0,0 +1,68 @@
# --
# Copyright (C) 2001-2019 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::MPMModel;
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 with mod_perl, skip this check.
if ( !$ENV{GATEWAY_INTERFACE} || !$ENV{SERVER_SOFTWARE} || $ENV{SERVER_SOFTWARE} !~ m{apache}i || !$ENV{MOD_PERL} )
{
return $Self->GetResults();
}
my $MPMModel;
my %KnownModels = (
'worker.c' => 1,
'prefork.c' => 1,
'event.c' => 1,
);
MODULE:
for ( my $Module = Apache2::Module::top_module(); $Module; $Module = $Module->next() ) {
if ( $KnownModels{ $Module->name() } ) {
$MPMModel = $Module->name();
}
}
if ( $MPMModel eq 'prefork.c' ) {
$Self->AddResultOk(
Identifier => 'MPMModel',
Label => Translatable('MPM model'),
Value => $MPMModel,
);
}
else {
$Self->AddResultProblem(
Identifier => 'MPMModel',
Label => Translatable('MPM model'),
Value => $MPMModel,
Message => Translatable("OTRS requires apache to be run with the 'prefork' MPM model."),
);
}
return $Self->GetResults();
}
1;

178
Perl OTRS/Kernel/System/SupportDataCollector/Plugin/Webserver/Apache/Performance.pm Normal file
View File

@@ -0,0 +1,178 @@
# --
# Copyright (C) 2001-2019 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;