Files
scripts/Perl OTRS/Kernel/System/SupportDataCollector/Plugin/OTRS/ConfigSettings.pm
2024-10-14 00:08:40 +02:00

83 lines
2.1 KiB
Perl

# --
# 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::OTRS::ConfigSettings;
use strict;
use warnings;
use parent qw(Kernel::System::SupportDataCollector::PluginBase);
use Kernel::Language qw(Translatable);
our @ObjectDependencies = (
'Kernel::Config',
);
sub GetDisplayPath {
return Translatable('OTRS') . '/' . Translatable('Config Settings');
}
sub Run {
my $Self = shift;
my @Settings = (
'Home',
'FQDN',
'HttpType',
'DefaultLanguage',
'SystemID',
'Version',
'ProductName',
'Organization',
'OTRSTimeZone',
'Ticket::IndexModule',
'Ticket::SearchIndexModule',
'Ticket::Article::Backend::MIMEBase::ArticleStorage',
'SendmailModule',
'Frontend::RichText',
'Frontend::AvatarEngine',
'Loader::Agent::DefaultSelectedSkin',
'Loader::Customer::SelectedSkin',
);
# get config object
my $ConfigObject = $Kernel::OM->Get('Kernel::Config');
for my $Setting (@Settings) {
my $ConfigValue = $ConfigObject->Get($Setting);
if ( $Setting =~ m{###} ) {
my ( $Name, $SubKey ) = $Setting =~ m{(.*)###(.*)};
$ConfigValue = $ConfigObject->Get($Name);
$ConfigValue = $ConfigValue->{$SubKey} if ref $ConfigValue eq 'HASH';
}
if ( defined $ConfigValue ) {
$Self->AddResultInformation(
Identifier => $Setting,
Label => $Setting,
Value => $ConfigValue,
);
}
else {
$Self->AddResultProblem(
Identifier => $Setting,
Label => $Setting,
Value => $ConfigValue,
Message => Translatable('Could not determine value.'),
);
}
}
return $Self->GetResults();
}
1;