andre/scripts
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

init III

Browse Source
This commit is contained in:
Andre Geißler
2024-10-14 00:08:40 +02:00
parent dbfba56f66
commit 1462d52e13
4572 changed files with 2658864 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

142
Perl OTRS/Kernel/System/Service/PreferencesDB.pm Normal file
View File

@@ -0,0 +1,142 @@
# --
# Copyright (C) 2001-2019 OTRS AG, https://otrs.com/
# --
# $origin: otrs - b9cf29ede488bbc3bf5bd0d49f422ecc65668a0c - Kernel/System/Service/PreferencesDB.pm
# --
# 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::Service::PreferencesDB;
use strict;
use warnings;
our @ObjectDependencies = (
'Kernel::Config',
'Kernel::System::Cache',
'Kernel::System::DB',
'Kernel::System::Log',
);
sub new {
my ( $Type, %Param ) = @_;
# allocate new hash for object
my $Self = {};
bless( $Self, $Type );
$Self->{CacheType} = 'ServicePreferencesDB';
$Self->{CacheTTL} = 60 * 60 * 24 * 20;
# preferences table data
$Self->{PreferencesTable} = 'service_preferences';
$Self->{PreferencesTableKey} = 'preferences_key';
$Self->{PreferencesTableValue} = 'preferences_value';
$Self->{PreferencesTableServiceID} = 'service_id';
# create cache prefix
$Self->{CachePrefix} = 'ServicePreferencesDB'
. $Self->{PreferencesTable}
. $Self->{PreferencesTableKey}
. $Self->{PreferencesTableValue}
. $Self->{PreferencesTableServiceID};
return $Self;
}
sub ServicePreferencesSet {
my ( $Self, %Param ) = @_;
# check needed stuff
for (qw(ServiceID Key Value)) {
if ( !defined $Param{$_} ) {
$Kernel::OM->Get('Kernel::System::Log')->Log(
Priority => 'error',
Message => "Need $_!"
);
return;
}
}
my $DBObject = $Kernel::OM->Get('Kernel::System::DB');
# delete old data
return if !$DBObject->Do(
SQL => "DELETE FROM $Self->{PreferencesTable} WHERE "
. "$Self->{PreferencesTableServiceID} = ? AND $Self->{PreferencesTableKey} = ?",
Bind => [ \$Param{ServiceID}, \$Param{Key} ],
);
# insert new data
return if !$DBObject->Do(
SQL => "INSERT INTO $Self->{PreferencesTable} ($Self->{PreferencesTableServiceID}, "
. " $Self->{PreferencesTableKey}, $Self->{PreferencesTableValue}) "
. " VALUES (?, ?, ?)",
Bind => [ \$Param{ServiceID}, \$Param{Key}, \$Param{Value} ],
);
# delete cache
$Kernel::OM->Get('Kernel::System::Cache')->Delete(
Type => $Self->{CacheType},
Key => $Self->{CachePrefix} . $Param{ServiceID},
);
return 1;
}
sub ServicePreferencesGet {
my ( $Self, %Param ) = @_;
# check needed stuff
for (qw(ServiceID)) {
if ( !$Param{$_} ) {
$Kernel::OM->Get('Kernel::System::Log')->Log(
Priority => 'error',
Message => "Need $_!"
);
return;
}
}
# ---
# ITSMConfigurationManagement
# ---
#
# # check if service preferences are available
# return if !$Kernel::OM->Get('Kernel::Config')->Get('ServicePreferences');
# ---
# read cache
my $Cache = $Kernel::OM->Get('Kernel::System::Cache')->Get(
Type => $Self->{CacheType},
Key => $Self->{CachePrefix} . $Param{ServiceID},
);
return %{$Cache} if $Cache;
my $DBObject = $Kernel::OM->Get('Kernel::System::DB');
# get preferences
return if !$DBObject->Prepare(
SQL => "SELECT $Self->{PreferencesTableKey}, $Self->{PreferencesTableValue} "
. " FROM $Self->{PreferencesTable} WHERE $Self->{PreferencesTableServiceID} = ?",
Bind => [ \$Param{ServiceID} ],
);
my %Data;
while ( my @Row = $DBObject->FetchrowArray() ) {
$Data{ $Row[0] } = $Row[1];
}
# set cache
$Kernel::OM->Get('Kernel::System::Cache')->Set(
Type => $Self->{CacheType},
TTL => $Self->{CacheTTL},
Key => $Self->{CachePrefix} . $Param{ServiceID},
Value => \%Data,
);
return %Data;
}
1;

136
Perl OTRS/Kernel/System/Service/PreferencesDB.pm.custom_backup Normal file
View File

@@ -0,0 +1,136 @@
# --
# 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::Service::PreferencesDB;
use strict;
use warnings;
our @ObjectDependencies = (
'Kernel::Config',
'Kernel::System::Cache',
'Kernel::System::DB',
'Kernel::System::Log',
);
sub new {
my ( $Type, %Param ) = @_;
# allocate new hash for object
my $Self = {};
bless( $Self, $Type );
$Self->{CacheType} = 'ServicePreferencesDB';
$Self->{CacheTTL} = 60 * 60 * 24 * 20;
# preferences table data
$Self->{PreferencesTable} = 'service_preferences';
$Self->{PreferencesTableKey} = 'preferences_key';
$Self->{PreferencesTableValue} = 'preferences_value';
$Self->{PreferencesTableServiceID} = 'service_id';
# create cache prefix
$Self->{CachePrefix} = 'ServicePreferencesDB'
. $Self->{PreferencesTable}
. $Self->{PreferencesTableKey}
. $Self->{PreferencesTableValue}
. $Self->{PreferencesTableServiceID};
return $Self;
}
sub ServicePreferencesSet {
my ( $Self, %Param ) = @_;
# check needed stuff
for (qw(ServiceID Key Value)) {
if ( !defined $Param{$_} ) {
$Kernel::OM->Get('Kernel::System::Log')->Log(
Priority => 'error',
Message => "Need $_!"
);
return;
}
}
my $DBObject = $Kernel::OM->Get('Kernel::System::DB');
# delete old data
return if !$DBObject->Do(
SQL => "DELETE FROM $Self->{PreferencesTable} WHERE "
. "$Self->{PreferencesTableServiceID} = ? AND $Self->{PreferencesTableKey} = ?",
Bind => [ \$Param{ServiceID}, \$Param{Key} ],
);
# insert new data
return if !$DBObject->Do(
SQL => "INSERT INTO $Self->{PreferencesTable} ($Self->{PreferencesTableServiceID}, "
. " $Self->{PreferencesTableKey}, $Self->{PreferencesTableValue}) "
. " VALUES (?, ?, ?)",
Bind => [ \$Param{ServiceID}, \$Param{Key}, \$Param{Value} ],
);
# delete cache
$Kernel::OM->Get('Kernel::System::Cache')->Delete(
Type => $Self->{CacheType},
Key => $Self->{CachePrefix} . $Param{ServiceID},
);
return 1;
}
sub ServicePreferencesGet {
my ( $Self, %Param ) = @_;
# check needed stuff
for (qw(ServiceID)) {
if ( !$Param{$_} ) {
$Kernel::OM->Get('Kernel::System::Log')->Log(
Priority => 'error',
Message => "Need $_!"
);
return;
}
}
# check if service preferences are available
return if !$Kernel::OM->Get('Kernel::Config')->Get('ServicePreferences');
# read cache
my $Cache = $Kernel::OM->Get('Kernel::System::Cache')->Get(
Type => $Self->{CacheType},
Key => $Self->{CachePrefix} . $Param{ServiceID},
);
return %{$Cache} if $Cache;
my $DBObject = $Kernel::OM->Get('Kernel::System::DB');
# get preferences
return if !$DBObject->Prepare(
SQL => "SELECT $Self->{PreferencesTableKey}, $Self->{PreferencesTableValue} "
. " FROM $Self->{PreferencesTable} WHERE $Self->{PreferencesTableServiceID} = ?",
Bind => [ \$Param{ServiceID} ],
);
my %Data;
while ( my @Row = $DBObject->FetchrowArray() ) {
$Data{ $Row[0] } = $Row[1];
}
# set cache
$Kernel::OM->Get('Kernel::System::Cache')->Set(
Type => $Self->{CacheType},
TTL => $Self->{CacheTTL},
Key => $Self->{CachePrefix} . $Param{ServiceID},
Value => \%Data,
);
return %Data;
}
1;

136
Perl OTRS/Kernel/System/Service/PreferencesDB.pm.save Normal file
View File

@@ -0,0 +1,136 @@
# --
# Copyright (C) 2001-2016 OTRS AG, http://otrs.com/
# --
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
# the enclosed file COPYING for license information (AGPL). If you
# did not receive this file, see http://www.gnu.org/licenses/agpl.txt.
# --
package Kernel::System::Service::PreferencesDB;
use strict;
use warnings;
our @ObjectDependencies = (
'Kernel::Config',
'Kernel::System::Cache',
'Kernel::System::DB',
'Kernel::System::Log',
);
sub new {
my ( $Type, %Param ) = @_;
# allocate new hash for object
my $Self = {};
bless( $Self, $Type );
$Self->{CacheType} = 'ServicePreferencesDB';
$Self->{CacheTTL} = 60 * 60 * 24 * 20;
# preferences table data
$Self->{PreferencesTable} = 'service_preferences';
$Self->{PreferencesTableKey} = 'preferences_key';
$Self->{PreferencesTableValue} = 'preferences_value';
$Self->{PreferencesTableServiceID} = 'service_id';
# create cache prefix
$Self->{CachePrefix} = 'ServicePreferencesDB'
. $Self->{PreferencesTable}
. $Self->{PreferencesTableKey}
. $Self->{PreferencesTableValue}
. $Self->{PreferencesTableServiceID};
return $Self;
}
sub ServicePreferencesSet {
my ( $Self, %Param ) = @_;
# check needed stuff
for (qw(ServiceID Key Value)) {
if ( !defined $Param{$_} ) {
$Kernel::OM->Get('Kernel::System::Log')->Log(
Priority => 'error',
Message => "Need $_!"
);
return;
}
}
my $DBObject = $Kernel::OM->Get('Kernel::System::DB');
# delete old data
return if !$DBObject->Do(
SQL => "DELETE FROM $Self->{PreferencesTable} WHERE "
. "$Self->{PreferencesTableServiceID} = ? AND $Self->{PreferencesTableKey} = ?",
Bind => [ \$Param{ServiceID}, \$Param{Key} ],
);
# insert new data
return if !$DBObject->Do(
SQL => "INSERT INTO $Self->{PreferencesTable} ($Self->{PreferencesTableServiceID}, "
. " $Self->{PreferencesTableKey}, $Self->{PreferencesTableValue}) "
. " VALUES (?, ?, ?)",
Bind => [ \$Param{ServiceID}, \$Param{Key}, \$Param{Value} ],
);
# delete cache
$Kernel::OM->Get('Kernel::System::Cache')->Delete(
Type => $Self->{CacheType},
Key => $Self->{CachePrefix} . $Param{ServiceID},
);
return 1;
}
sub ServicePreferencesGet {
my ( $Self, %Param ) = @_;
# check needed stuff
for (qw(ServiceID)) {
if ( !$Param{$_} ) {
$Kernel::OM->Get('Kernel::System::Log')->Log(
Priority => 'error',
Message => "Need $_!"
);
return;
}
}
# check if service preferences are available
return if !$Kernel::OM->Get('Kernel::Config')->Get('ServicePreferences');
# read cache
my $Cache = $Kernel::OM->Get('Kernel::System::Cache')->Get(
Type => $Self->{CacheType},
Key => $Self->{CachePrefix} . $Param{ServiceID},
);
return %{$Cache} if $Cache;
my $DBObject = $Kernel::OM->Get('Kernel::System::DB');
# get preferences
return if !$DBObject->Prepare(
SQL => "SELECT $Self->{PreferencesTableKey}, $Self->{PreferencesTableValue} "
. " FROM $Self->{PreferencesTable} WHERE $Self->{PreferencesTableServiceID} = ?",
Bind => [ \$Param{ServiceID} ],
);
my %Data;
while ( my @Row = $DBObject->FetchrowArray() ) {
$Data{ $Row[0] } = $Row[1];
}
# set cache
$Kernel::OM->Get('Kernel::System::Cache')->Set(
Type => $Self->{CacheType},
TTL => $Self->{CacheTTL},
Key => $Self->{CachePrefix} . $Param{ServiceID},
Value => \%Data,
);
return %Data;
}
1;