139 lines
3.7 KiB
Perl
139 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::System::Queue::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 );
|
|
|
|
# preferences table data
|
|
$Self->{PreferencesTable} = 'queue_preferences';
|
|
$Self->{PreferencesTableKey} = 'preferences_key';
|
|
$Self->{PreferencesTableValue} = 'preferences_value';
|
|
$Self->{PreferencesTableQueueID} = 'queue_id';
|
|
|
|
# create cache prefix
|
|
$Self->{CachePrefix} = 'QueuePreferencesDB'
|
|
. $Self->{PreferencesTable}
|
|
. $Self->{PreferencesTableKey}
|
|
. $Self->{PreferencesTableValue}
|
|
. $Self->{PreferencesTableQueueID};
|
|
|
|
$Self->{CacheType} = 'Queue';
|
|
$Self->{CacheTTL} = 60 * 60 * 24 * 20;
|
|
|
|
return $Self;
|
|
}
|
|
|
|
sub QueuePreferencesSet {
|
|
my ( $Self, %Param ) = @_;
|
|
|
|
# check needed stuff
|
|
for (qw(QueueID Key Value)) {
|
|
if ( !defined $Param{$_} ) {
|
|
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
|
Priority => 'error',
|
|
Message => "Need $_!",
|
|
);
|
|
return;
|
|
}
|
|
}
|
|
|
|
# get database object
|
|
my $DBObject = $Kernel::OM->Get('Kernel::System::DB');
|
|
|
|
# delete old data
|
|
return if !$DBObject->Do(
|
|
SQL => "DELETE FROM $Self->{PreferencesTable} WHERE "
|
|
. "$Self->{PreferencesTableQueueID} = ? AND $Self->{PreferencesTableKey} = ?",
|
|
Bind => [ \$Param{QueueID}, \$Param{Key} ],
|
|
);
|
|
|
|
# insert new data
|
|
return if !$DBObject->Do(
|
|
SQL => "INSERT INTO $Self->{PreferencesTable} ($Self->{PreferencesTableQueueID}, "
|
|
. " $Self->{PreferencesTableKey}, $Self->{PreferencesTableValue}) "
|
|
. " VALUES (?, ?, ?)",
|
|
Bind => [ \$Param{QueueID}, \$Param{Key}, \$Param{Value} ],
|
|
);
|
|
|
|
# delete cache
|
|
$Kernel::OM->Get('Kernel::System::Cache')->Delete(
|
|
Type => $Self->{CacheType},
|
|
Key => $Self->{CachePrefix} . $Param{QueueID},
|
|
);
|
|
|
|
return 1;
|
|
}
|
|
|
|
sub QueuePreferencesGet {
|
|
my ( $Self, %Param ) = @_;
|
|
|
|
# check needed stuff
|
|
for (qw(QueueID)) {
|
|
if ( !$Param{$_} ) {
|
|
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
|
Priority => 'error',
|
|
Message => "Need $_!",
|
|
);
|
|
return;
|
|
}
|
|
}
|
|
|
|
# check if queue preferences are available
|
|
return if !$Kernel::OM->Get('Kernel::Config')->Get('QueuePreferences');
|
|
|
|
# read cache
|
|
my $Cache = $Kernel::OM->Get('Kernel::System::Cache')->Get(
|
|
Type => $Self->{CacheType},
|
|
Key => $Self->{CachePrefix} . $Param{QueueID},
|
|
);
|
|
return %{$Cache} if $Cache;
|
|
|
|
# get database object
|
|
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->{PreferencesTableQueueID} = ?",
|
|
Bind => [ \$Param{QueueID} ],
|
|
);
|
|
|
|
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{QueueID},
|
|
Value => \%Data,
|
|
);
|
|
|
|
return %Data;
|
|
}
|
|
|
|
1;
|