init III
This commit is contained in:
@@ -0,0 +1,465 @@
|
||||
# --
|
||||
# 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::Console::Command::Admin::ITSM::Configitem::Delete;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
## nofilter(TidyAll::Plugin::OTRS::Migrations::OTRS6::SysConfig)
|
||||
|
||||
use Kernel::System::VariableCheck qw(:all);
|
||||
|
||||
use parent qw(Kernel::System::Console::BaseCommand);
|
||||
|
||||
our @ObjectDependencies = (
|
||||
'Kernel::System::GeneralCatalog',
|
||||
'Kernel::System::ITSMConfigItem',
|
||||
'Kernel::System::DateTime',
|
||||
);
|
||||
|
||||
sub Configure {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
$Self->Description('Delete config items (all, by class (and deployment state) or by number).');
|
||||
$Self->AddOption(
|
||||
Name => 'all',
|
||||
Description => "Delete all config items.",
|
||||
Required => 0,
|
||||
HasValue => 0,
|
||||
);
|
||||
$Self->AddArgument(
|
||||
Name => 'accept',
|
||||
Description => "Accept delete all or cancel.",
|
||||
Required => 0,
|
||||
ValueRegex => qr/(y|n)/smx,
|
||||
);
|
||||
$Self->AddOption(
|
||||
Name => 'class',
|
||||
Description => "Delete all config items of this class.",
|
||||
Required => 0,
|
||||
HasValue => 1,
|
||||
ValueRegex => qr/.*/smx,
|
||||
);
|
||||
$Self->AddOption(
|
||||
Name => 'deployment-state',
|
||||
Description => "Delete all config items with this deployment state (ONLY TOGETHER with the --class parameter).",
|
||||
Required => 0,
|
||||
HasValue => 1,
|
||||
ValueRegex => qr/.*/smx,
|
||||
);
|
||||
$Self->AddOption(
|
||||
Name => 'configitem-number',
|
||||
Description => "Delete listed config items.",
|
||||
Required => 0,
|
||||
HasValue => 1,
|
||||
ValueRegex => qr/\d+/smx,
|
||||
Multiple => 1,
|
||||
);
|
||||
$Self->AddOption(
|
||||
Name => 'all-old-versions',
|
||||
Description => "Delete all config item versions except the newest version.",
|
||||
Required => 0,
|
||||
HasValue => 0,
|
||||
);
|
||||
$Self->AddOption(
|
||||
Name => 'all-but-keep-last-versions',
|
||||
Description => "Delete all config item versions but keep the last XX versions.",
|
||||
Required => 0,
|
||||
HasValue => 1,
|
||||
ValueRegex => qr/\d+/smx,
|
||||
);
|
||||
$Self->AddOption(
|
||||
Name => 'all-older-than-days-versions',
|
||||
Description => "Delete all config item versions older than XX days.",
|
||||
Required => 0,
|
||||
HasValue => 1,
|
||||
ValueRegex => qr/\d+/smx,
|
||||
);
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
sub PreRun {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
my $All = $Self->GetOption('all');
|
||||
my $Class = $Self->GetOption('class') // '';
|
||||
my @ConfigItemNumbers = @{ $Self->GetOption('configitem-number') // [] };
|
||||
my $DeploymentState = $Self->GetOption('deployment-state') // '';
|
||||
my $AllOldVersions = $Self->GetOption('all-old-versions') // '';
|
||||
my $AllButKeepLast = $Self->GetOption('all-but-keep-last-versions') // '';
|
||||
my $AllOlderThanDays = $Self->GetOption('all-older-than-days-versions') // '';
|
||||
|
||||
if (
|
||||
!$All
|
||||
&& !$Class
|
||||
&& !@ConfigItemNumbers
|
||||
&& !$DeploymentState
|
||||
&& !$AllOldVersions
|
||||
&& !$AllButKeepLast
|
||||
&& !$AllOlderThanDays
|
||||
)
|
||||
{
|
||||
die
|
||||
"Please provide option --all, --class, --configitem-number, --all-old-versions, --all-but-keep-last-versions or --all-older-than-days-versions."
|
||||
. " For more details use --help\n";
|
||||
}
|
||||
|
||||
my $AllOptionTypeCount;
|
||||
for my $Value ( $All, $AllOldVersions, $AllButKeepLast, $AllOlderThanDays ) {
|
||||
if ($Value) {
|
||||
$AllOptionTypeCount++;
|
||||
}
|
||||
}
|
||||
if ( $AllOptionTypeCount > 1 ) {
|
||||
die
|
||||
"The options --all, --all-old-versions, --all-but-keep-last-versions and --all-older-than-days-versions can not be mixed. \nFor more details use --help\n";
|
||||
}
|
||||
if ( $AllOptionTypeCount && ( $Class || @ConfigItemNumbers || $DeploymentState ) ) {
|
||||
die
|
||||
"The options --all, --all-old-versions, --all-but-keep-last-versions and --all-older-than-days-versions can not used together with any other option. \nFor more details use --help\n";
|
||||
}
|
||||
|
||||
if ( $DeploymentState && !$Class ) {
|
||||
die
|
||||
"Deleting all config items with this deployment state is posible ONLY TOGETHER with the --class parameter. \nFor more details use --help\n";
|
||||
}
|
||||
|
||||
if ( @ConfigItemNumbers && ( $Class || $DeploymentState ) ) {
|
||||
die
|
||||
"The option --configitem-number can not be used together with the --class or the --deployment-state parameter. \nFor more details use --help\n";
|
||||
}
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
sub Run {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
$Self->Print("<yellow>Deleting config items...</yellow>\n\n");
|
||||
|
||||
my $All = $Self->GetOption('all');
|
||||
my $Class = $Self->GetOption('class') // '';
|
||||
my @ConfigItemNumbers = @{ $Self->GetOption('configitem-number') // [] };
|
||||
my $DeploymentState = $Self->GetOption('deployment-state') // '';
|
||||
my $AllOldVersions = $Self->GetOption('all-old-versions') // '';
|
||||
my $AllButKeepLast = $Self->GetOption('all-but-keep-last-versions') // '';
|
||||
my $AllOlderThanDays = $Self->GetOption('all-older-than-days-versions') // '';
|
||||
|
||||
# delete all config items
|
||||
if ($All) {
|
||||
|
||||
# get all config items ids
|
||||
my @ConfigItemIDs = @{ $Kernel::OM->Get('Kernel::System::ITSMConfigItem')->ConfigItemSearch() };
|
||||
|
||||
# get number of config items
|
||||
my $CICount = scalar @ConfigItemIDs;
|
||||
|
||||
# if there are any CI to delete
|
||||
if ($CICount) {
|
||||
|
||||
$Self->Print("<yellow>Are you sure that you want to delete ALL $CICount config items?</yellow>\n");
|
||||
$Self->Print("<yellow>This is irrevocable. [y/n] </yellow>\n");
|
||||
my $Confirmation = $Self->GetArgument('accept');
|
||||
chomp( $Confirmation = lc <STDIN> ) if !defined $Confirmation;
|
||||
|
||||
# if the user confirms the deletion
|
||||
if ( $Confirmation eq 'y' ) {
|
||||
|
||||
# delete config items
|
||||
$Self->Print("<green>Deleting all config items...</green>\n");
|
||||
$Self->DeleteConfigItems( ConfigItemIDs => \@ConfigItemIDs );
|
||||
}
|
||||
else {
|
||||
$Self->Print("<yellow>Command delete was canceled</yellow>\n");
|
||||
return $Self->ExitCodeOk();
|
||||
}
|
||||
}
|
||||
else {
|
||||
$Self->Print("<yellow>There are NO config items to delete.</yellow>\n");
|
||||
}
|
||||
}
|
||||
|
||||
# delete listed config items
|
||||
elsif ( IsArrayRefWithData( \@ConfigItemNumbers ) ) {
|
||||
|
||||
my @ConfigItemIDs;
|
||||
|
||||
for my $ConfigItemNumber (@ConfigItemNumbers) {
|
||||
|
||||
# checks the validity of the config item id
|
||||
my $ID = $Kernel::OM->Get('Kernel::System::ITSMConfigItem')->ConfigItemLookup(
|
||||
ConfigItemNumber => $ConfigItemNumber,
|
||||
);
|
||||
|
||||
if ($ID) {
|
||||
push @ConfigItemIDs, $ID;
|
||||
}
|
||||
else {
|
||||
$Self->Print("<yellow>Unable to find config item $ConfigItemNumber.</yellow>\n");
|
||||
}
|
||||
}
|
||||
|
||||
# delete config items (if any valid number was given)
|
||||
if (@ConfigItemIDs) {
|
||||
$Self->Print("<yellow>Deleting specified config items...</yellow>\n");
|
||||
$Self->DeleteConfigItems( ConfigItemIDs => \@ConfigItemIDs );
|
||||
}
|
||||
}
|
||||
|
||||
# delete config items that belong to the class
|
||||
elsif ($Class) {
|
||||
|
||||
my @ConfigItemIDs;
|
||||
|
||||
# get class list
|
||||
my $ClassList = $Kernel::OM->Get('Kernel::System::GeneralCatalog')->ItemList(
|
||||
Class => 'ITSM::ConfigItem::Class',
|
||||
Valid => 0,
|
||||
);
|
||||
|
||||
# invert the hash to have the classes names as keys
|
||||
my %ClassName2ID = reverse %{$ClassList};
|
||||
|
||||
if ( $ClassName2ID{$Class} ) {
|
||||
my $ID = $ClassName2ID{$Class};
|
||||
|
||||
# define the search param for the class search
|
||||
my %SearchParam = (
|
||||
ClassIDs => [$ID],
|
||||
);
|
||||
|
||||
# also a deployment state is given
|
||||
if ($DeploymentState) {
|
||||
|
||||
# get deployment state list
|
||||
my $DeploymentStateList = $Kernel::OM->Get('Kernel::System::GeneralCatalog')->ItemList(
|
||||
Class => 'ITSM::ConfigItem::DeploymentState',
|
||||
);
|
||||
|
||||
# invert the hash to have the deployment state names as keys
|
||||
my %DeploymentState2ID = reverse %{$DeploymentStateList};
|
||||
|
||||
# if the deployment state is valid
|
||||
if ( $DeploymentState2ID{$DeploymentState} ) {
|
||||
|
||||
# get the deployment state id
|
||||
my $ID = $DeploymentState2ID{$DeploymentState};
|
||||
|
||||
# add search parameter
|
||||
$SearchParam{DeplStateIDs} = [$ID];
|
||||
}
|
||||
else {
|
||||
$Self->PrintError("Unable to find deployment state $DeploymentState.");
|
||||
return $Self->ExitCodeError();
|
||||
}
|
||||
}
|
||||
|
||||
# get ids of this class (and maybe deployment state) config items
|
||||
@ConfigItemIDs = @{
|
||||
$Kernel::OM->Get('Kernel::System::ITSMConfigItem')->ConfigItemSearch(%SearchParam)
|
||||
};
|
||||
}
|
||||
else {
|
||||
$Self->PrintError("Unable to find class name $Class.");
|
||||
return $Self->ExitCodeError();
|
||||
}
|
||||
|
||||
# delete config items (if any valid number was given)
|
||||
if (@ConfigItemIDs) {
|
||||
$Self->Print("<yellow>Deleting config items that belong to the class $Class...</yellow>\n");
|
||||
$Self->DeleteConfigItems( ConfigItemIDs => \@ConfigItemIDs );
|
||||
}
|
||||
else {
|
||||
$Self->Print("<yellow>There are no config items that belong to the class $Class...</yellow>\n");
|
||||
}
|
||||
}
|
||||
|
||||
# delete versions older than xx days from all config items
|
||||
elsif ($AllOlderThanDays) {
|
||||
|
||||
my $OlderDateDTObject = $Kernel::OM->Create('Kernel::System::DateTime');
|
||||
$OlderDateDTObject->Subtract(
|
||||
Days => $AllOlderThanDays,
|
||||
);
|
||||
|
||||
my $VersionsOlderDate = $Kernel::OM->Get('Kernel::System::ITSMConfigItem')->VersionListAll(
|
||||
OlderDate => $OlderDateDTObject->ToString(),
|
||||
);
|
||||
|
||||
# We need to get all versions to make sure that at least one version remains
|
||||
# -> if one version of a configitem is younger than the amount of days,
|
||||
# we can delete all Versions received by the "OlderDate" query
|
||||
# -> if no version is younger than the amount of days
|
||||
# we have to keep one version of the "OlderDate" query result
|
||||
my $VersionsAll = $Kernel::OM->Get('Kernel::System::ITSMConfigItem')->VersionListAll();
|
||||
|
||||
my @VersionsToDelete;
|
||||
|
||||
CONFIGITEMID:
|
||||
for my $ConfigItemID ( sort keys %{$VersionsOlderDate} ) {
|
||||
|
||||
# number of found older versions of this CI
|
||||
my $NumberOfOlderVersions = scalar keys %{ $VersionsOlderDate->{$ConfigItemID} };
|
||||
|
||||
# number of all versions of this CI
|
||||
my $NumberOfAllVersions = scalar keys %{ $VersionsAll->{$ConfigItemID} };
|
||||
|
||||
# next if there are no older versions
|
||||
next CONFIGITEMID if !$NumberOfOlderVersions;
|
||||
|
||||
# next if there is only one or zero of all versions
|
||||
next CONFIGITEMID if $NumberOfAllVersions <= 1;
|
||||
|
||||
# if the amount of Versions we have to delete
|
||||
# is exactly the same as the amount of AllVersions
|
||||
# we have to keep the last one
|
||||
# in order to keep the system working
|
||||
#
|
||||
# -> so let's start counting at "1" instead of "0"
|
||||
# in order to stop deleting before we reach the newest version
|
||||
my $Count = 0;
|
||||
if ( $NumberOfOlderVersions == $NumberOfAllVersions ) {
|
||||
$Count = 1;
|
||||
}
|
||||
|
||||
# make sure that the versions are numerically sorted
|
||||
for my $Version ( sort { $a <=> $b } keys %{ $VersionsOlderDate->{$ConfigItemID} } ) {
|
||||
|
||||
if ( $Count < $NumberOfOlderVersions ) {
|
||||
push @VersionsToDelete, $Version;
|
||||
}
|
||||
$Count++;
|
||||
}
|
||||
}
|
||||
|
||||
$Self->DeleteConfigItemVersions(
|
||||
VersionIDs => \@VersionsToDelete,
|
||||
UserID => 1,
|
||||
);
|
||||
}
|
||||
|
||||
# delete all config item versions except the newest version
|
||||
elsif ($AllOldVersions) {
|
||||
|
||||
my $VersionsAll = $Kernel::OM->Get('Kernel::System::ITSMConfigItem')->VersionListAll();
|
||||
|
||||
my @VersionsToDelete;
|
||||
if ( IsHashRefWithData($VersionsAll) ) {
|
||||
|
||||
CONFIGITEMID:
|
||||
for my $ConfigItemID ( sort keys %{$VersionsAll} ) {
|
||||
|
||||
next CONFIGITEMID if !IsHashRefWithData( $VersionsAll->{$ConfigItemID} );
|
||||
|
||||
# make sure that the versions are numerically sorted
|
||||
my @ReducedVersions = sort { $a <=> $b } keys %{ $VersionsAll->{$ConfigItemID} };
|
||||
|
||||
# remove the last (newest) version
|
||||
pop @ReducedVersions;
|
||||
|
||||
push @VersionsToDelete, @ReducedVersions;
|
||||
}
|
||||
}
|
||||
|
||||
$Self->DeleteConfigItemVersions(
|
||||
VersionIDs => \@VersionsToDelete,
|
||||
UserID => 1,
|
||||
);
|
||||
}
|
||||
|
||||
# delete all config item versions but keep the last XX versions
|
||||
elsif ($AllButKeepLast) {
|
||||
|
||||
my $VersionsAll = $Kernel::OM->Get('Kernel::System::ITSMConfigItem')->VersionListAll();
|
||||
|
||||
my @VersionsToDelete;
|
||||
|
||||
if ( IsHashRefWithData($VersionsAll) ) {
|
||||
|
||||
CONFIGITEMID:
|
||||
for my $ConfigItemID ( sort keys %{$VersionsAll} ) {
|
||||
|
||||
next CONFIGITEMID if !IsHashRefWithData( $VersionsAll->{$ConfigItemID} );
|
||||
|
||||
# make sure that the versions are numerically reverse sorted
|
||||
my @ReducedVersions = reverse sort { $a <=> $b } keys %{ $VersionsAll->{$ConfigItemID} };
|
||||
|
||||
my $Count = 0;
|
||||
@ReducedVersions = grep { $Count++; $Count > $AllButKeepLast } @ReducedVersions;
|
||||
push @VersionsToDelete, @ReducedVersions;
|
||||
}
|
||||
}
|
||||
|
||||
$Self->DeleteConfigItemVersions(
|
||||
VersionIDs => \@VersionsToDelete,
|
||||
UserID => 1,
|
||||
);
|
||||
}
|
||||
else {
|
||||
$Self->PrintError("No config item for delete.");
|
||||
}
|
||||
|
||||
# show successfull output
|
||||
$Self->Print("<green>Done.</green>\n");
|
||||
return $Self->ExitCodeOk();
|
||||
}
|
||||
|
||||
sub DeleteConfigItems {
|
||||
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
my $DeletedCI;
|
||||
|
||||
# delete specified config items
|
||||
for my $ConfigItemID ( @{ $Param{ConfigItemIDs} } ) {
|
||||
my $True = $Kernel::OM->Get('Kernel::System::ITSMConfigItem')->ConfigItemDelete(
|
||||
ConfigItemID => $ConfigItemID,
|
||||
UserID => 1,
|
||||
);
|
||||
if ( !$True ) {
|
||||
$Self->PrintError("Unable to delete config item with id $ConfigItemID.");
|
||||
}
|
||||
else {
|
||||
$DeletedCI++;
|
||||
}
|
||||
}
|
||||
|
||||
$Self->Print("<green>Deleted $DeletedCI config item(s).</green>\n\n");
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
sub DeleteConfigItemVersions {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
# check needed stuff
|
||||
return if !IsArrayRefWithData( $Param{VersionIDs} );
|
||||
|
||||
$Self->Print("<green>Deleting config item versions.</green>\n\n");
|
||||
|
||||
$Kernel::OM->Get('Kernel::System::ITSMConfigItem')->VersionDelete(
|
||||
VersionIDs => $Param{VersionIDs},
|
||||
UserID => 1,
|
||||
);
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
=head1 TERMS AND CONDITIONS
|
||||
|
||||
This software is part of the OTRS project (L<https://otrs.org/>).
|
||||
|
||||
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 L<https://www.gnu.org/licenses/gpl-3.0.txt>.
|
||||
|
||||
=cut
|
||||
@@ -0,0 +1,235 @@
|
||||
# --
|
||||
# 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::Console::Command::Admin::ITSM::Configitem::ListDuplicates;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
## nofilter(TidyAll::Plugin::OTRS::Migrations::OTRS6::SysConfig)
|
||||
|
||||
use Kernel::System::VariableCheck qw(IsArrayRefWithData);
|
||||
|
||||
use parent qw(Kernel::System::Console::BaseCommand);
|
||||
|
||||
our @ObjectDependencies = (
|
||||
'Kernel::Config',
|
||||
'Kernel::System::GeneralCatalog',
|
||||
'Kernel::System::ITSMConfigItem',
|
||||
);
|
||||
|
||||
sub Configure {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
$Self->Description('List ConfigItems which have a non-unique name.');
|
||||
$Self->AddOption(
|
||||
Name => 'class',
|
||||
Description => "Check only config items of this class.",
|
||||
Required => 0,
|
||||
HasValue => 1,
|
||||
ValueRegex => qr/.*/smx,
|
||||
);
|
||||
$Self->AddOption(
|
||||
Name => 'scope',
|
||||
Description => "Define the scope for the uniqueness check (global|class)",
|
||||
Required => 0,
|
||||
HasValue => 1,
|
||||
ValueRegex => qr/(global|class)/smx,
|
||||
);
|
||||
$Self->AddOption(
|
||||
Name => 'all-states',
|
||||
Description => "Also check config items in non-productive states.",
|
||||
Required => 0,
|
||||
HasValue => 0,
|
||||
);
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
sub PreRun {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
# get class argument
|
||||
my $Class = $Self->GetOption('class') // '';
|
||||
|
||||
if ($Class) {
|
||||
|
||||
# get class list
|
||||
my $ClassList = $Kernel::OM->Get('Kernel::System::GeneralCatalog')->ItemList(
|
||||
Class => 'ITSM::ConfigItem::Class',
|
||||
);
|
||||
|
||||
# invert the hash to have the classes' names as keys
|
||||
my %ClassName2ID = reverse %{$ClassList};
|
||||
|
||||
# check, whether this class exists
|
||||
if ( $ClassName2ID{$Class} ) {
|
||||
my $ID = $ClassName2ID{$Class};
|
||||
|
||||
# get ids of this class' config items
|
||||
$Self->{SearchCriteria}->{ClassIDs} = [$ID];
|
||||
}
|
||||
else {
|
||||
die "Class $Class does not exist...\n";
|
||||
}
|
||||
}
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
sub Run {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
$Self->Print("<yellow>Listing duplicates of config items...</yellow>\n\n");
|
||||
|
||||
if ( !$Self->GetOption('all-states') ) {
|
||||
|
||||
my $StateList = $Kernel::OM->Get('Kernel::System::GeneralCatalog')->ItemList(
|
||||
Class => 'ITSM::ConfigItem::DeploymentState',
|
||||
Preferences => {
|
||||
Functionality => [ 'preproductive', 'productive' ],
|
||||
},
|
||||
);
|
||||
|
||||
my $DeploymentStateIDs = [ keys %{$StateList} ];
|
||||
|
||||
$Self->{SearchCriteria}->{DeplStateIDs} = [ keys %{$StateList} ];
|
||||
|
||||
}
|
||||
|
||||
# get ITSMConfigitem object
|
||||
my $ITSMConfigitemObject = $Kernel::OM->Get('Kernel::System::ITSMConfigItem');
|
||||
|
||||
# get all config items ids
|
||||
my @ConfigItemIDs = @{ $ITSMConfigitemObject->ConfigItemSearch( %{ $Self->{SearchCriteria} } ) };
|
||||
|
||||
# get number of config items
|
||||
my $CICount = scalar @ConfigItemIDs;
|
||||
|
||||
# get class argument
|
||||
my $Class = $Self->GetOption('class') // '';
|
||||
|
||||
# if there are any CI to check
|
||||
if ($CICount) {
|
||||
|
||||
# if the scope was explicitely defined, set it, otherwise this script will fall back to the
|
||||
# value set in SysConfig
|
||||
my $Scope = $Self->GetOption('scope');
|
||||
if ($Scope) {
|
||||
$Kernel::OM->Get('Kernel::Config')->Set(
|
||||
Key => 'UniqueCIName::UniquenessCheckScope',
|
||||
Value => $Scope,
|
||||
);
|
||||
}
|
||||
|
||||
if ($Class) {
|
||||
$Self->Print("<yellow>Checking config items of class $Class...</yellow>\n");
|
||||
}
|
||||
else {
|
||||
$Self->Print("<yellow>Checking all config items...\n</yellow>\n");
|
||||
}
|
||||
|
||||
$Self->Print( "<green>" . ( '=' x 69 ) . "</green>\n" );
|
||||
|
||||
my $DuplicatesFound = 0;
|
||||
|
||||
# check config items
|
||||
CONFIGITEMID:
|
||||
for my $ConfigItemID (@ConfigItemIDs) {
|
||||
|
||||
# get the attributes of this config item
|
||||
my $ConfigItem = $ITSMConfigitemObject->ConfigItemGet(
|
||||
ConfigItemID => $ConfigItemID,
|
||||
);
|
||||
|
||||
next CONFIGITEMID if !$ConfigItem->{LastVersionID};
|
||||
|
||||
# get the latest version of this config item
|
||||
my $Version = $ITSMConfigitemObject->VersionGet(
|
||||
VersionID => $ConfigItem->{LastVersionID},
|
||||
XMLDataGet => 1,
|
||||
);
|
||||
|
||||
next CONFIGITEMID if !$Version;
|
||||
|
||||
if ( !$Version->{Name} ) {
|
||||
$Self->Print("<red>Skipping ConfigItem $ConfigItemID as it doesn't have a name.\n</red>\n");
|
||||
next CONFIGITEMID;
|
||||
}
|
||||
|
||||
my $Duplicates = $ITSMConfigitemObject->UniqueNameCheck(
|
||||
ConfigItemID => $ConfigItemID,
|
||||
ClassID => $ConfigItem->{ClassID},
|
||||
Name => $Version->{Name}
|
||||
);
|
||||
|
||||
if ( IsArrayRefWithData($Duplicates) ) {
|
||||
|
||||
$DuplicatesFound = 1;
|
||||
|
||||
my @DuplicateData;
|
||||
|
||||
for my $DuplicateID ( @{$Duplicates} ) {
|
||||
|
||||
# get the # of the duplicate
|
||||
my $DuplicateConfigItem = $ITSMConfigitemObject->ConfigItemGet(
|
||||
ConfigItemID => $DuplicateID,
|
||||
);
|
||||
|
||||
my $DuplicateVersion = $ITSMConfigitemObject->VersionGet(
|
||||
VersionID => $DuplicateConfigItem->{LastVersionID},
|
||||
);
|
||||
|
||||
push @DuplicateData, $DuplicateVersion;
|
||||
}
|
||||
|
||||
$Self->Print(
|
||||
"<yellow>ConfigItem $Version->{Number} (Name: $Version->{Name}, ConfigItemID: "
|
||||
. "$Version->{ConfigItemID}) has the following duplicates:</yellow>\n"
|
||||
);
|
||||
|
||||
# list all the details of the duplicates
|
||||
for my $DuplicateVersion (@DuplicateData) {
|
||||
print "\n";
|
||||
$Self->Print(
|
||||
"<green>\t * $DuplicateVersion->{Number} (ConfigItemID: "
|
||||
. "$DuplicateVersion->{ConfigItemID})</green>\n"
|
||||
);
|
||||
}
|
||||
|
||||
$Self->Print( "<green>" . ( '-' x 69 ) . "</green>\n" );
|
||||
}
|
||||
}
|
||||
|
||||
if ($DuplicatesFound) {
|
||||
$Self->Print("<green>Finished checking for duplicate names.\n</green>\n");
|
||||
}
|
||||
else {
|
||||
$Self->Print("<yellow>No duplicate names found.\n</yellow>\n");
|
||||
}
|
||||
}
|
||||
else {
|
||||
$Self->Print("<yellow>There are NO config items to check.\n</yellow>\n");
|
||||
}
|
||||
|
||||
$Self->Print("<green>Done.</green>\n");
|
||||
return $Self->ExitCodeOk();
|
||||
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
=head1 TERMS AND CONDITIONS
|
||||
|
||||
This software is part of the OTRS project (L<https://otrs.org/>).
|
||||
|
||||
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 L<https://www.gnu.org/licenses/gpl-3.0.txt>.
|
||||
|
||||
=cut
|
||||
Reference in New Issue
Block a user