init III

2024-10-14 00:08:40 +02:00
parent dbfba56f66
commit 1462d52e13
4572 changed files with 2658864 additions and 0 deletions
--- a/OTRS/Kernel/System/Package/Event/SupportDataSend.pm
+++ b/OTRS/Kernel/System/Package/Event/SupportDataSend.pm
@@ -0,0 +1,108 @@
+# --
+# 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::Package::Event::SupportDataSend;
+
+use strict;
+use warnings;
+
+use Kernel::System::VariableCheck qw(:all);
+
+our @ObjectDependencies = (
+    'Kernel::System::Cache',
+    'Kernel::System::DateTime',
+    'Kernel::System::Log',
+    'Kernel::System::SystemData',
+);
+
+sub new {
+    my ( $Type, %Param ) = @_;
+
+    # allocate new hash for object
+    my $Self = {};
+    bless( $Self, $Type );
+
+    return $Self;
+}
+
+sub Run {
+    my ( $Self, %Param ) = @_;
+
+    # check needed stuff
+    for (qw(Data Event Config)) {
+        if ( !$Param{$_} ) {
+            $Kernel::OM->Get('Kernel::System::Log')->Log(
+                Priority => 'error',
+                Message  => "Need $_!"
+            );
+            return;
+        }
+    }
+
+    # get system data object
+    my $SystemDataObject = $Kernel::OM->Get('Kernel::System::SystemData');
+
+    my $RegistrationState = $SystemDataObject->SystemDataGet(
+        Key => 'Registration::State',
+    ) || '';
+
+    # do nothing if system is not register
+    return 1 if $RegistrationState ne 'registered';
+
+    my $SupportDataSending = $SystemDataObject->SystemDataGet(
+        Key => 'Registration::SupportDataSending',
+    ) || 'No';
+
+    # return if Data Sending is not activated
+    return 1 if $SupportDataSending ne 'Yes';
+
+    # delete cache
+    $Kernel::OM->Get('Kernel::System::Cache')->Delete(
+        Type => 'SupportDataCollector',
+        Key  => 'DataCollect',
+    );
+
+    # get time object
+    my $NewUpdateDateTimeObject = $Kernel::OM->Create('Kernel::System::DateTime');
+    $NewUpdateDateTimeObject->Add( Hours => 1 );
+
+    # get current update time
+    my $CurrentUpdateTime = $SystemDataObject->SystemDataGet(
+        Key => 'Registration::NextUpdateTime',
+    );
+
+    # if there is no update time set it for 1 hour
+    if ( !defined $CurrentUpdateTime ) {
+        $SystemDataObject->SystemDataAdd(
+            Key    => 'Registration::NextUpdateTime',
+            Value  => $NewUpdateDateTimeObject->ToString(),
+            UserID => 1,
+        );
+        return 1;
+    }
+
+    my $CurrentUpdateDateTimeObject = $Kernel::OM->Create(
+        'Kernel::System::DateTime',
+        ObjectParams => {
+            String => $CurrentUpdateTime,
+        }
+    );
+
+    # return success if the next update is schedule in or less than 1 hour
+    return 1 if $CurrentUpdateDateTimeObject <= $NewUpdateDateTimeObject;
+
+    # otherwise update next update for 1 hour
+    $SystemDataObject->SystemDataUpdate(
+        Key    => 'Registration::NextUpdateTime',
+        Value  => $NewUpdateDateTimeObject->ToString(),
+        UserID => 1,
+    );
+    return 1;
+}
+
+1;