128 lines
3.7 KiB
Perl
128 lines
3.7 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::Modules::AdminCloudServiceSupportDataCollector;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
our $ObjectManagerDisabled = 1;
|
|
|
|
sub new {
|
|
my ( $Type, %Param ) = @_;
|
|
|
|
# allocate new hash for object
|
|
my $Self = {%Param};
|
|
bless( $Self, $Type );
|
|
|
|
return $Self;
|
|
}
|
|
|
|
sub Run {
|
|
my ( $Self, %Param ) = @_;
|
|
|
|
# get layout object
|
|
my $LayoutObject = $Kernel::OM->Get('Kernel::Output::HTML::Layout');
|
|
my $SystemDataObject = $Kernel::OM->Get('Kernel::System::SystemData');
|
|
|
|
# ------------------------------------------------------------ #
|
|
# edit action
|
|
# ------------------------------------------------------------ #
|
|
if ( $Self->{Subaction} eq 'EditAction' ) {
|
|
|
|
# challenge token check for write action
|
|
$LayoutObject->ChallengeTokenCheck();
|
|
|
|
# get needed objects
|
|
my $ParamObject = $Kernel::OM->Get('Kernel::System::Web::Request');
|
|
my $RegistrationObject = $Kernel::OM->Get('Kernel::System::Registration');
|
|
|
|
my $RegistrationType = $SystemDataObject->SystemDataGet(
|
|
Key => 'Registration::Type',
|
|
) || '';
|
|
my $Description = $SystemDataObject->SystemDataGet(
|
|
Key => 'Registration::Description',
|
|
) || '';
|
|
my $SupportDataSending = $ParamObject->GetParam( Param => 'SupportDataSending' ) || 'No';
|
|
|
|
my %Result = $RegistrationObject->RegistrationUpdateSend(
|
|
Type => $RegistrationType,
|
|
Description => $Description,
|
|
SupportDataSending => $SupportDataSending,
|
|
);
|
|
|
|
# log change
|
|
if ( $Result{Success} ) {
|
|
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
|
Priority => 'notice',
|
|
Message =>
|
|
"System Registration: User $Self->{UserID} changed Support Data Sending to: $SupportDataSending!",
|
|
);
|
|
|
|
}
|
|
|
|
return $LayoutObject->Redirect(
|
|
OP => 'Action=AdminCloudServiceSupportDataCollector',
|
|
);
|
|
}
|
|
|
|
# ------------------------------------------------------------ #
|
|
# edit action
|
|
# ------------------------------------------------------------ #
|
|
else {
|
|
|
|
my $RegistrationState = $SystemDataObject->SystemDataGet(
|
|
Key => 'Registration::State',
|
|
) || '';
|
|
my $SupportDataSending = $SystemDataObject->SystemDataGet(
|
|
Key => 'Registration::SupportDataSending',
|
|
) || 'No';
|
|
|
|
if ( $RegistrationState ne 'registered' ) {
|
|
|
|
$LayoutObject->Block(
|
|
Name => 'NotRegistered',
|
|
);
|
|
}
|
|
else {
|
|
# check SupportDataSending if it is enable
|
|
$Param{SupportDataSendingChecked} = '';
|
|
|
|
if ( $SupportDataSending ne 'Yes' ) {
|
|
|
|
$LayoutObject->Block(
|
|
Name => 'RegisteredNotSending',
|
|
);
|
|
}
|
|
else {
|
|
$Param{SupportDataSendingChecked} = 'checked="checked"';
|
|
}
|
|
|
|
$LayoutObject->Block(
|
|
Name => 'SendingEdit',
|
|
Data => {
|
|
%Param,
|
|
}
|
|
);
|
|
|
|
}
|
|
}
|
|
|
|
my $Output = $LayoutObject->Header();
|
|
$Output .= $LayoutObject->NavigationBar();
|
|
$Output .= $LayoutObject->Output(
|
|
TemplateFile => 'AdminCloudServiceSupportDataCollector',
|
|
Data => \%Param,
|
|
);
|
|
$Output .= $LayoutObject->Footer();
|
|
|
|
return $Output;
|
|
}
|
|
|
|
1;
|