112 lines
3.3 KiB
Perl
112 lines
3.3 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.
|
|
# --
|
|
|
|
## nofilter(TidyAll::Plugin::OTRS::Perl::LayoutObject)
|
|
package Kernel::System::SupportDataCollector::Plugin::OTRS::LegacyConfigBackups;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use parent qw(Kernel::System::SupportDataCollector::PluginBase);
|
|
|
|
use Kernel::Language qw(Translatable);
|
|
|
|
our @ObjectDependencies = (
|
|
'Kernel::Config',
|
|
'Kernel::System::Main',
|
|
'Kernel::System::Package',
|
|
);
|
|
|
|
sub GetDisplayPath {
|
|
return Translatable('OTRS');
|
|
}
|
|
|
|
sub Run {
|
|
my $Self = shift;
|
|
|
|
my $Home = $Kernel::OM->Get('Kernel::Config')->Get('Home');
|
|
|
|
my $BackupsFolder = "$Home/Kernel/Config/Backups";
|
|
|
|
my @BackupFiles;
|
|
|
|
if ( -d $BackupsFolder ) {
|
|
@BackupFiles = $Kernel::OM->Get('Kernel::System::Main')->DirectoryRead(
|
|
Directory => $BackupsFolder,
|
|
Filter => '*',
|
|
);
|
|
}
|
|
|
|
if ( !@BackupFiles ) {
|
|
$Self->AddResultOk(
|
|
Label => Translatable('Legacy Configuration Backups'),
|
|
Value => 0,
|
|
Message => Translatable('No legacy configuration backup files found.'),
|
|
);
|
|
return $Self->GetResults();
|
|
}
|
|
|
|
# get package object
|
|
my $PackageObject = $Kernel::OM->Get('Kernel::System::Package');
|
|
|
|
my @InvalidPackages;
|
|
my @WrongFrameworkVersion;
|
|
for my $Package ( $PackageObject->RepositoryList() ) {
|
|
|
|
my $DeployCheck = $PackageObject->DeployCheck(
|
|
Name => $Package->{Name}->{Content},
|
|
Version => $Package->{Version}->{Content},
|
|
);
|
|
if ( !$DeployCheck ) {
|
|
push @InvalidPackages, "$Package->{Name}->{Content} $Package->{Version}->{Content}";
|
|
}
|
|
|
|
# get package
|
|
my $PackageContent = $PackageObject->RepositoryGet(
|
|
Name => $Package->{Name}->{Content},
|
|
Version => $Package->{Version}->{Content},
|
|
Result => 'SCALAR',
|
|
);
|
|
|
|
my %PackageStructure = $PackageObject->PackageParse(
|
|
String => $PackageContent,
|
|
);
|
|
|
|
my %CheckFramework = $PackageObject->AnalyzePackageFrameworkRequirements(
|
|
Framework => $PackageStructure{Framework},
|
|
NoLog => 1,
|
|
);
|
|
|
|
if ( !$CheckFramework{Success} ) {
|
|
push @WrongFrameworkVersion, "$Package->{Name}->{Content} $Package->{Version}->{Content}";
|
|
}
|
|
}
|
|
|
|
if ( @InvalidPackages || @WrongFrameworkVersion ) {
|
|
$Self->AddResultOk(
|
|
Label => Translatable('Legacy Configuration Backups'),
|
|
Value => scalar @BackupFiles,
|
|
Message => Translatable(
|
|
'Legacy configuration backup files found in Kernel/Config/Backups folder, but they might still be required by some packages.'
|
|
),
|
|
);
|
|
return $Self->GetResults();
|
|
}
|
|
|
|
$Self->AddResultWarning(
|
|
Label => Translatable('Legacy Configuration Backups'),
|
|
Value => scalar @BackupFiles,
|
|
Message => Translatable(
|
|
'Legacy configuration backup files are no longer needed for the installed packages, please remove them from Kernel/Config/Backups folder.'
|
|
),
|
|
);
|
|
return $Self->GetResults();
|
|
}
|
|
|
|
1;
|