init III
This commit is contained in:
465
Perl OTRS/Kernel/System/CloudService/Backend/Configuration.pm
Normal file
465
Perl OTRS/Kernel/System/CloudService/Backend/Configuration.pm
Normal file
@@ -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::CloudService::Backend::Configuration;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use Kernel::System::VariableCheck qw(:all);
|
||||
|
||||
our @ObjectDependencies = (
|
||||
'Kernel::Config',
|
||||
'Kernel::System::Cache',
|
||||
'Kernel::System::DB',
|
||||
'Kernel::System::Log',
|
||||
'Kernel::System::Main',
|
||||
'Kernel::System::Valid',
|
||||
'Kernel::System::YAML',
|
||||
);
|
||||
|
||||
=head1 NAME
|
||||
|
||||
Kernel::System::CloudService::Backend::Configuration
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
CloudService configuration backend.
|
||||
|
||||
=head1 PUBLIC INTERFACE
|
||||
|
||||
=head2 new()
|
||||
|
||||
Don't use the constructor directly, use the ObjectManager instead:
|
||||
|
||||
my $CloudServiceObject = $Kernel::OM->Get('Kernel::System::CloudService::Backend::Configuration');
|
||||
|
||||
=cut
|
||||
|
||||
sub new {
|
||||
my ( $CloudService, %Param ) = @_;
|
||||
|
||||
# allocate new hash for object
|
||||
my $Self = {};
|
||||
bless( $Self, $CloudService );
|
||||
|
||||
$Self->{CacheType} = 'CloudService';
|
||||
$Self->{CacheTTL} = 60 * 60; # 1 hour
|
||||
|
||||
return $Self;
|
||||
}
|
||||
|
||||
=head2 CloudServiceAdd()
|
||||
|
||||
add new CloudServices
|
||||
|
||||
returns id of new CloudService if successful or undef otherwise
|
||||
|
||||
my $ID = $CloudServiceObject->CloudServiceAdd(
|
||||
Name => 'some name',
|
||||
Config => $ConfigHashRef,
|
||||
ValidID => 1,
|
||||
UserID => 123,
|
||||
);
|
||||
|
||||
=cut
|
||||
|
||||
sub CloudServiceAdd {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
# check needed stuff
|
||||
for my $Key (qw(Name Config ValidID UserID)) {
|
||||
if ( !$Param{$Key} ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Need $Key!",
|
||||
);
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
# check config
|
||||
if ( !IsHashRefWithData( $Param{Config} ) ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "CloudService Config should be a non empty hash reference!",
|
||||
);
|
||||
return;
|
||||
}
|
||||
|
||||
my %ExistingCloudServices = reverse %{ $Self->CloudServiceList( Valid => 0 ) };
|
||||
if ( $ExistingCloudServices{ $Param{Name} } ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "A CloudService with the name $Param{Name} already exists.",
|
||||
);
|
||||
return;
|
||||
}
|
||||
|
||||
# dump config as string
|
||||
my $Config = $Kernel::OM->Get('Kernel::System::YAML')->Dump( Data => $Param{Config} );
|
||||
|
||||
# get database object
|
||||
my $DBObject = $Kernel::OM->Get('Kernel::System::DB');
|
||||
|
||||
# sql
|
||||
return if !$DBObject->Do(
|
||||
SQL => '
|
||||
INSERT INTO cloud_service_config
|
||||
(name, config, valid_id, create_time, create_by, change_time, change_by)
|
||||
VALUES (?, ?, ?, current_timestamp, ?, current_timestamp, ?)',
|
||||
Bind => [
|
||||
\$Param{Name}, \$Config, \$Param{ValidID},
|
||||
\$Param{UserID}, \$Param{UserID},
|
||||
],
|
||||
);
|
||||
|
||||
return if !$DBObject->Prepare(
|
||||
SQL => 'SELECT id FROM cloud_service_config WHERE name = ?',
|
||||
Bind => [ \$Param{Name} ],
|
||||
);
|
||||
|
||||
my $ID;
|
||||
while ( my @Row = $DBObject->FetchrowArray() ) {
|
||||
$ID = $Row[0];
|
||||
}
|
||||
|
||||
# delete cache
|
||||
$Kernel::OM->Get('Kernel::System::Cache')->CleanUp(
|
||||
Type => $Self->{CacheType},
|
||||
);
|
||||
|
||||
return $ID;
|
||||
}
|
||||
|
||||
=head2 CloudServiceGet()
|
||||
|
||||
get CloudServices attributes
|
||||
|
||||
my $CloudService = $CloudServiceObject->CloudServiceGet(
|
||||
ID => 123, # ID or Name must be provided
|
||||
Name => 'MyCloudService',
|
||||
);
|
||||
|
||||
Returns:
|
||||
|
||||
$CloudService = {
|
||||
ID => 123,
|
||||
Name => 'some name',
|
||||
Config => $ConfigHashRef,
|
||||
ValidID => 123,
|
||||
CreateTime => '2011-02-08 15:08:00',
|
||||
ChangeTime => '2011-02-08 15:08:00',
|
||||
};
|
||||
|
||||
=cut
|
||||
|
||||
sub CloudServiceGet {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
# check needed stuff
|
||||
if ( !$Param{ID} && !$Param{Name} ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => 'Need ID or Name!',
|
||||
);
|
||||
return;
|
||||
}
|
||||
|
||||
# get cache object
|
||||
my $CacheObject = $Kernel::OM->Get('Kernel::System::Cache');
|
||||
|
||||
# check cache
|
||||
my $CacheKey;
|
||||
if ( $Param{ID} ) {
|
||||
$CacheKey = 'CloudServiceGet::ID::' . $Param{ID};
|
||||
}
|
||||
else {
|
||||
$CacheKey = 'CloudServiceGet::Name::' . $Param{Name};
|
||||
|
||||
}
|
||||
my $Cache = $CacheObject->Get(
|
||||
Type => $Self->{CacheType},
|
||||
Key => $CacheKey,
|
||||
);
|
||||
return $Cache if $Cache;
|
||||
|
||||
# get database object
|
||||
my $DBObject = $Kernel::OM->Get('Kernel::System::DB');
|
||||
|
||||
# sql
|
||||
if ( $Param{ID} ) {
|
||||
return if !$DBObject->Prepare(
|
||||
SQL => '
|
||||
SELECT id, name, config, valid_id, create_time, change_time
|
||||
FROM cloud_service_config
|
||||
WHERE id = ?',
|
||||
Bind => [ \$Param{ID} ],
|
||||
Limit => 1,
|
||||
);
|
||||
}
|
||||
else {
|
||||
return if !$DBObject->Prepare(
|
||||
SQL => '
|
||||
SELECT id, name, config, valid_id, create_time, change_time
|
||||
FROM cloud_service_config
|
||||
WHERE name = ?',
|
||||
Bind => [ \$Param{Name} ],
|
||||
Limit => 1,
|
||||
);
|
||||
}
|
||||
|
||||
my %Data;
|
||||
while ( my @Data = $DBObject->FetchrowArray() ) {
|
||||
|
||||
%Data = (
|
||||
ID => $Data[0],
|
||||
Name => $Data[1],
|
||||
Config => $Data[2],
|
||||
ValidID => $Data[3],
|
||||
CreateTime => $Data[4],
|
||||
ChangeTime => $Data[5],
|
||||
);
|
||||
}
|
||||
|
||||
# Convert YAML string back to Perl data structure.
|
||||
if ( $Data{Config} ) {
|
||||
$Data{Config} = $Kernel::OM->Get('Kernel::System::YAML')->Load( Data => $Data{Config} );
|
||||
}
|
||||
|
||||
# set cache
|
||||
$CacheObject->Set(
|
||||
Type => $Self->{CacheType},
|
||||
Key => $CacheKey,
|
||||
Value => \%Data,
|
||||
TTL => $Self->{CacheTTL},
|
||||
);
|
||||
|
||||
return \%Data;
|
||||
}
|
||||
|
||||
=head2 CloudServiceUpdate()
|
||||
|
||||
update CloudService attributes
|
||||
|
||||
returns 1 if successful or undef otherwise
|
||||
|
||||
my $Success = $CloudServiceObject->CloudServiceUpdate(
|
||||
ID => 123,
|
||||
Name => 'some name',
|
||||
Config => $ConfigHashRef,
|
||||
ValidID => 1,
|
||||
UserID => 123,
|
||||
);
|
||||
|
||||
=cut
|
||||
|
||||
sub CloudServiceUpdate {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
# check needed stuff
|
||||
for my $Key (qw(ID Name Config ValidID UserID)) {
|
||||
if ( !$Param{$Key} ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Need $Key!",
|
||||
);
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
# check config
|
||||
if ( !IsHashRefWithData( $Param{Config} ) ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "CloudService Config should be a non empty hash reference!",
|
||||
);
|
||||
return;
|
||||
}
|
||||
|
||||
my %ExistingCloudServices = reverse %{ $Self->CloudServiceList( Valid => 0 ) };
|
||||
if ( $ExistingCloudServices{ $Param{Name} } != $Param{ID} ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "A CloudService with the name $Param{Name} already exists.",
|
||||
);
|
||||
return;
|
||||
}
|
||||
|
||||
# dump config as string
|
||||
my $Config = $Kernel::OM->Get('Kernel::System::YAML')->Dump( Data => $Param{Config} );
|
||||
|
||||
# get database object
|
||||
my $DBObject = $Kernel::OM->Get('Kernel::System::DB');
|
||||
|
||||
# check if config and valid_id is the same
|
||||
return if !$DBObject->Prepare(
|
||||
SQL => '
|
||||
SELECT config, valid_id, name
|
||||
FROM cloud_service_config
|
||||
WHERE id = ?',
|
||||
Bind => [ \$Param{ID} ],
|
||||
Limit => 1,
|
||||
);
|
||||
|
||||
my $ConfigCurrent;
|
||||
my $ValidIDCurrent;
|
||||
my $NameCurrent;
|
||||
while ( my @Data = $DBObject->FetchrowArray() ) {
|
||||
$ConfigCurrent = $Data[0];
|
||||
$ValidIDCurrent = $Data[1];
|
||||
$NameCurrent = $Data[2];
|
||||
}
|
||||
if (
|
||||
$ValidIDCurrent eq $Param{ValidID}
|
||||
&& $Config eq $ConfigCurrent
|
||||
&& $NameCurrent eq $Param{Name}
|
||||
)
|
||||
{
|
||||
return 1;
|
||||
}
|
||||
|
||||
# sql
|
||||
return if !$DBObject->Do(
|
||||
SQL => '
|
||||
UPDATE cloud_service_config
|
||||
SET name = ?, config = ?, valid_id = ?, change_time = current_timestamp, change_by = ?
|
||||
WHERE id = ?',
|
||||
Bind => [
|
||||
\$Param{Name}, \$Config, \$Param{ValidID}, \$Param{UserID},
|
||||
\$Param{ID},
|
||||
],
|
||||
);
|
||||
|
||||
# delete cache
|
||||
$Kernel::OM->Get('Kernel::System::Cache')->CleanUp(
|
||||
Type => $Self->{CacheType},
|
||||
);
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
=head2 CloudServiceDelete()
|
||||
|
||||
delete a CloudService
|
||||
|
||||
returns 1 if successful or undef otherwise
|
||||
|
||||
my $Success = $CloudServiceObject->CloudServiceDelete(
|
||||
ID => 123,
|
||||
UserID => 123,
|
||||
);
|
||||
|
||||
=cut
|
||||
|
||||
sub CloudServiceDelete {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
# check needed stuff
|
||||
for my $Key (qw(ID UserID)) {
|
||||
if ( !$Param{$Key} ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Need $Key!",
|
||||
);
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
# check if exists
|
||||
my $CloudService = $Self->CloudServiceGet(
|
||||
ID => $Param{ID},
|
||||
);
|
||||
return if !IsHashRefWithData($CloudService);
|
||||
|
||||
# delete web service
|
||||
return if !$Kernel::OM->Get('Kernel::System::DB')->Do(
|
||||
SQL => 'DELETE FROM cloud_service_config WHERE id = ?',
|
||||
Bind => [ \$Param{ID} ],
|
||||
);
|
||||
|
||||
# delete cache
|
||||
$Kernel::OM->Get('Kernel::System::Cache')->CleanUp(
|
||||
Type => $Self->{CacheType},
|
||||
);
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
=head2 CloudServiceList()
|
||||
|
||||
get CloudService list
|
||||
|
||||
my $List = $CloudServiceObject->CloudServiceList();
|
||||
|
||||
or
|
||||
|
||||
my $List = $CloudServiceObject->CloudServiceList(
|
||||
Valid => 0, # 0 | 1 (optional) (default 1)
|
||||
);
|
||||
|
||||
=cut
|
||||
|
||||
sub CloudServiceList {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
# set default
|
||||
$Param{Valid} //= 1;
|
||||
|
||||
# get cache object
|
||||
my $CacheObject = $Kernel::OM->Get('Kernel::System::Cache');
|
||||
|
||||
my $CacheKey = 'CloudServiceList::Valid::' . $Param{Valid};
|
||||
my $Cache = $CacheObject->Get(
|
||||
Type => 'CloudService',
|
||||
Key => $CacheKey,
|
||||
);
|
||||
return $Cache if ref $Cache;
|
||||
|
||||
my $SQL = 'SELECT id, name FROM cloud_service_config';
|
||||
|
||||
if ( $Param{Valid} ) {
|
||||
|
||||
# get valid object
|
||||
my $ValidObject = $Kernel::OM->Get('Kernel::System::Valid');
|
||||
|
||||
$SQL .= ' WHERE valid_id IN (' . join ', ', $ValidObject->ValidIDsGet() . ')';
|
||||
}
|
||||
|
||||
# get database object
|
||||
my $DBObject = $Kernel::OM->Get('Kernel::System::DB');
|
||||
|
||||
return if !$DBObject->Prepare( SQL => $SQL );
|
||||
|
||||
my %Data;
|
||||
while ( my @Row = $DBObject->FetchrowArray() ) {
|
||||
$Data{ $Row[0] } = $Row[1];
|
||||
}
|
||||
|
||||
# set cache
|
||||
$CacheObject->Set(
|
||||
Type => 'CloudService',
|
||||
Key => $CacheKey,
|
||||
Value => \%Data,
|
||||
TTL => $Self->{CacheTTL},
|
||||
);
|
||||
|
||||
return \%Data;
|
||||
}
|
||||
|
||||
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
|
||||
566
Perl OTRS/Kernel/System/CloudService/Backend/Run.pm
Normal file
566
Perl OTRS/Kernel/System/CloudService/Backend/Run.pm
Normal file
@@ -0,0 +1,566 @@
|
||||
# --
|
||||
# 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::CloudService::Backend::Run;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use Kernel::System::VariableCheck qw(:all);
|
||||
|
||||
our @ObjectDependencies = (
|
||||
'Kernel::Config',
|
||||
'Kernel::System::Cache',
|
||||
'Kernel::System::Encode',
|
||||
'Kernel::System::JSON',
|
||||
'Kernel::System::Log',
|
||||
'Kernel::System::OTRSBusiness',
|
||||
'Kernel::System::SystemData',
|
||||
'Kernel::System::WebUserAgent',
|
||||
);
|
||||
|
||||
=head1 NAME
|
||||
|
||||
Kernel::System::CloudService::Backend::Run - cloud service lib
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
All functions for cloud service communication.
|
||||
|
||||
=head1 PUBLIC INTERFACE
|
||||
|
||||
=head2 new()
|
||||
|
||||
create a CloudService object. Do not use it directly, instead use:
|
||||
|
||||
my $CloudServiceObject = $Kernel::OM->Get('Kernel::System::CloudService::Backend::Run');
|
||||
|
||||
=cut
|
||||
|
||||
sub new {
|
||||
my ( $Type, %Param ) = @_;
|
||||
|
||||
# allocate new hash for object
|
||||
my $Self = {};
|
||||
bless( $Self, $Type );
|
||||
|
||||
# set system registration data
|
||||
%{ $Self->{RegistrationData} } =
|
||||
$Kernel::OM->Get('Kernel::System::SystemData')->SystemDataGroupGet(
|
||||
Group => 'Registration',
|
||||
UserID => 1,
|
||||
);
|
||||
|
||||
# set URL for calling cloud services
|
||||
$Self->{CloudServiceURL} = 'https://cloud.otrs.com/otrs/public.pl';
|
||||
|
||||
return $Self;
|
||||
}
|
||||
|
||||
=head2 Request()
|
||||
|
||||
perform a cloud service communication and return result data
|
||||
|
||||
my $RequestResult = $CloudServiceObject->Request(
|
||||
OTRSIDAuth => { # will be send encoded as JSON
|
||||
OTRSID => '',
|
||||
Password => '',
|
||||
},
|
||||
UniqueIDAuth => { # will send encoded as JSON
|
||||
UniqueID => '',
|
||||
APIKey => '',
|
||||
},
|
||||
RequestData => { # this complex structure will be send encoded as JSON
|
||||
CloudServiceTest => [
|
||||
{
|
||||
InstanceName = 'AnyName', # optional
|
||||
Operation => "ConfigurationSet",
|
||||
Data => {
|
||||
# ... request operation data ...
|
||||
},
|
||||
},
|
||||
{
|
||||
Operation => "SomeOperation",
|
||||
Data => {
|
||||
# ... request operation data ...
|
||||
},
|
||||
},
|
||||
# ... other entries may follow ...
|
||||
],
|
||||
FeatureAddonManagement => [
|
||||
{
|
||||
Operation => "FAOListAssigned",
|
||||
Data => {
|
||||
# ... request operation data ...
|
||||
},
|
||||
},
|
||||
{
|
||||
InstanceName = 'InstanceNameOne', # optional
|
||||
Operation => "FAOGet",
|
||||
Data => {
|
||||
# ... request operation data ...
|
||||
},
|
||||
},
|
||||
{
|
||||
InstanceName = 'InstanceNameTwo', # optional
|
||||
Operation => "FAOGet",
|
||||
Data => {
|
||||
# ... request operation data ...
|
||||
},
|
||||
},
|
||||
# ... other entries may follow ...
|
||||
],
|
||||
# ... other entries may follow ...
|
||||
},
|
||||
Timeout => 15, # optional, timeout
|
||||
Proxy => 'proxy.example.com', # optional, proxy
|
||||
);
|
||||
|
||||
|
||||
Returns:
|
||||
$RequestResult {
|
||||
Success => 1,
|
||||
ErrorMessage => '...', # optional
|
||||
Results => {
|
||||
CloudServiceTest => [
|
||||
{
|
||||
Success => 1, # 1 or 0
|
||||
ErrorMessage => '...', # optional
|
||||
InstanceName = 'AnyName', # optional
|
||||
Operation => "ConfigurationSet",
|
||||
Data => {
|
||||
# ... response operation data ..
|
||||
},
|
||||
},
|
||||
{
|
||||
Success => 0, # 1 or 0
|
||||
ErrorMessage => '...', # optional
|
||||
Operation => "SomeOperation",
|
||||
Data => {
|
||||
# ... response operation data ...
|
||||
},
|
||||
},
|
||||
],
|
||||
|
||||
FeatureAddonManagement => [
|
||||
{
|
||||
Success => 1, # 1 or 0
|
||||
ErrorMessage => '...', # optional
|
||||
Operation => "FAOListAssigned",
|
||||
Data => {
|
||||
# ... response operation data ..
|
||||
},
|
||||
},
|
||||
{
|
||||
Success => 1, # 1 or 0
|
||||
ErrorMessage => '...', # optional
|
||||
InstanceName = 'InstanceNameOne', # optional
|
||||
Operation => "FaoGet",
|
||||
Data => {
|
||||
# ... response operation data ...
|
||||
},
|
||||
},
|
||||
{
|
||||
Success => 0, # 1 or 0
|
||||
ErrorMessage => '...', # optional
|
||||
InstanceName = 'InstanceNameTwo', # optional
|
||||
Operation => "FaoGet",
|
||||
Data => {
|
||||
# ... response operation data ...
|
||||
},
|
||||
},
|
||||
],
|
||||
},
|
||||
};
|
||||
|
||||
=cut
|
||||
|
||||
sub Request {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
# create config object
|
||||
my $ConfigObject = $Kernel::OM->Get('Kernel::Config');
|
||||
|
||||
# If OTRSSTORM package is installed, system is able to do a Cloud request even if CloudService is disabled.
|
||||
if ( !$Kernel::OM->Get('Kernel::System::OTRSBusiness')->OTRSSTORMIsInstalled() ) {
|
||||
|
||||
# check if cloud services are disabled
|
||||
my $CloudServicesDisabled = $ConfigObject->Get('CloudServices::Disabled');
|
||||
|
||||
return if $CloudServicesDisabled;
|
||||
}
|
||||
|
||||
# check needed stuff
|
||||
if ( !defined $Param{RequestData} ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Need RequestData!"
|
||||
);
|
||||
return;
|
||||
}
|
||||
|
||||
# RequestData might be a hash
|
||||
if ( !IsHashRefWithData( $Param{RequestData} ) ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Wrong structure for RequestData, it might be an hash with data!",
|
||||
);
|
||||
return;
|
||||
}
|
||||
|
||||
# check in detail each request data
|
||||
for my $CloudService ( sort keys %{ $Param{RequestData} } ) {
|
||||
|
||||
# check if CloudService is defined and not empty
|
||||
if ( !$CloudService ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "A CloudService name is needed!",
|
||||
);
|
||||
return;
|
||||
}
|
||||
|
||||
# check if CloudService is defined and not empty
|
||||
if ( !IsArrayRefWithData( $Param{RequestData}->{$CloudService} ) ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "CloudService::$CloudService data structure is not valid!",
|
||||
);
|
||||
return;
|
||||
}
|
||||
|
||||
for my $Instance ( @{ $Param{RequestData}->{$CloudService} } ) {
|
||||
|
||||
# check if Operation is present
|
||||
if ( !$Instance->{Operation} ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Each operation request needs a Operation name!",
|
||||
);
|
||||
return;
|
||||
}
|
||||
|
||||
# if Data is present it might be a hash
|
||||
if ( $Instance->{Data} && ref $Instance->{Data} ne 'HASH' ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Request Data needs to be a hash structure!",
|
||||
);
|
||||
return;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
# create json object
|
||||
my $JSONObject = $Kernel::OM->Get('Kernel::System::JSON');
|
||||
|
||||
# get UniqueIDAut structure if needed
|
||||
my $UniqueIDAuth;
|
||||
if (
|
||||
defined $Self->{RegistrationData}->{State}
|
||||
&& $Self->{RegistrationData}->{State} eq 'registered'
|
||||
)
|
||||
{
|
||||
|
||||
# create cache object
|
||||
my $CacheObject = $Kernel::OM->Get('Kernel::System::Cache');
|
||||
|
||||
# check cache
|
||||
my $CacheKey = "APIKey::" . ( $Self->{RegistrationData}->{APIKey} || '' )
|
||||
. "::UniqueID::" . ( $Self->{RegistrationData}->{UniqueID} || '' );
|
||||
my $CacheContent = $CacheObject->Get(
|
||||
Type => 'RequestUniqueIDAuth',
|
||||
Key => $CacheKey,
|
||||
);
|
||||
|
||||
if ( defined $CacheContent ) {
|
||||
$UniqueIDAuth = $CacheContent;
|
||||
}
|
||||
else {
|
||||
# create JSON string
|
||||
$UniqueIDAuth = $JSONObject->Encode(
|
||||
Data => {
|
||||
APIKey => $Self->{RegistrationData}->{APIKey} || '',
|
||||
UniqueID => $Self->{RegistrationData}->{UniqueID} || '',
|
||||
},
|
||||
);
|
||||
$CacheObject->Set(
|
||||
Type => 'RequestUniqueIDAuth',
|
||||
Key => $CacheKey,
|
||||
Value => $UniqueIDAuth || '',
|
||||
TTL => 3 * 24 * 60 * 60,
|
||||
);
|
||||
}
|
||||
}
|
||||
|
||||
# get OTRSIDAuth structure if needed
|
||||
my $OTRSIDAuth = '';
|
||||
if ( $Param{OTRSID} && $Param{Password} ) {
|
||||
|
||||
$OTRSIDAuth = $JSONObject->Encode(
|
||||
Data => {
|
||||
OTRSID => $Param{OTRSID},
|
||||
Password => $Param{Password},
|
||||
},
|
||||
);
|
||||
}
|
||||
|
||||
my $RequestTimeout = $Param{Timeout} || $ConfigObject->Get('WebUserAgent::Timeout') || 15;
|
||||
my $RequestProxy = $Param{Proxy} || $ConfigObject->Get('WebUserAgent::Proxy') || '';
|
||||
|
||||
# set timeout setting for packages
|
||||
if ( grep {/^Package/i} sort keys %{ $Param{RequestData} } ) {
|
||||
$RequestTimeout = $ConfigObject->Get('Package::Timeout') || 120;
|
||||
}
|
||||
|
||||
# create JSON string
|
||||
my $RequestData = $JSONObject->Encode(
|
||||
Data => $Param{RequestData},
|
||||
);
|
||||
|
||||
# add params to webuseragent object
|
||||
$Kernel::OM->ObjectParamAdd(
|
||||
'Kernel::System::WebUserAgent' => {
|
||||
Timeout => $RequestTimeout,
|
||||
Proxy => $RequestProxy,
|
||||
},
|
||||
);
|
||||
|
||||
# Perform web service request.
|
||||
my %Response;
|
||||
TRY:
|
||||
for my $Try ( 1 .. 3 ) {
|
||||
|
||||
%Response = $Kernel::OM->Get('Kernel::System::WebUserAgent')->Request(
|
||||
Type => 'POST',
|
||||
URL => $Self->{CloudServiceURL},
|
||||
Data => {
|
||||
Action => 'PublicCloudService',
|
||||
RequestData => $RequestData,
|
||||
UniqueIDAuth => $UniqueIDAuth,
|
||||
OTRSIDAuth => $OTRSIDAuth,
|
||||
},
|
||||
);
|
||||
|
||||
last TRY if %Response
|
||||
&& $Response{Status} eq '200 OK'
|
||||
&& $Response{Content}
|
||||
&& ref $Response{Content} eq 'SCALAR';
|
||||
}
|
||||
|
||||
# test if the web response was successful
|
||||
if ( !%Response || $Response{Status} ne '200 OK' ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'notice',
|
||||
Message => "PublicCloudService - Can't connect to server - $Response{Status}",
|
||||
);
|
||||
return;
|
||||
}
|
||||
|
||||
# check if we have content as a scalar ref
|
||||
if ( !$Response{Content} || ref $Response{Content} ne 'SCALAR' ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'notice',
|
||||
Message =>
|
||||
"PublicCloudService - No content received from public cloud service. Please try again later.'",
|
||||
);
|
||||
return;
|
||||
}
|
||||
|
||||
# convert internal used charset
|
||||
$Kernel::OM->Get('Kernel::System::Encode')->EncodeInput(
|
||||
$Response{Content},
|
||||
);
|
||||
|
||||
# decode JSON data
|
||||
my $ResponseData = $JSONObject->Decode(
|
||||
Data => ${ $Response{Content} },
|
||||
);
|
||||
|
||||
# check response structure
|
||||
if ( !IsHashRefWithData($ResponseData) ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Can't decode JSON data: 'PublicCloudService'!",
|
||||
);
|
||||
return;
|
||||
}
|
||||
|
||||
# check if we have an error
|
||||
if ( !$ResponseData->{Success} ) {
|
||||
my $ResponseErrorMessage = $ResponseData->{ErrorMessage} || 'No error message available.';
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'notice',
|
||||
Message => "PublicCloudService - Error from server: $ResponseErrorMessage !",
|
||||
);
|
||||
return;
|
||||
}
|
||||
|
||||
# return data from server if defined
|
||||
return $ResponseData->{Results} if defined $ResponseData->{Results};
|
||||
return;
|
||||
}
|
||||
|
||||
=head2 OperationResultGet()
|
||||
|
||||
my $OperationResult = $CloudServiceObject->OperationResultGet(
|
||||
CloudService => 'Test',
|
||||
Operation => 'test',
|
||||
InstanceName => 'AnyName', # optional
|
||||
RequestResult => {
|
||||
Success => 1,
|
||||
Results => {
|
||||
Test => [
|
||||
{
|
||||
Success => 1,
|
||||
InstanceName => 'AnyName',
|
||||
Operation => 'Test',
|
||||
Data => {
|
||||
# ... response operation data ..
|
||||
},
|
||||
},
|
||||
{
|
||||
Success => 0,
|
||||
ErrorMessage => 'some message',
|
||||
Operation => 'SomeOperation',
|
||||
Data => {
|
||||
# ... response operation data ...
|
||||
},
|
||||
},
|
||||
],
|
||||
},
|
||||
};
|
||||
);
|
||||
|
||||
Returns:
|
||||
|
||||
$OperationResult {
|
||||
Success => 1,
|
||||
ErrorMessage => 'a message' # optional
|
||||
InstanceName => 'AnyName',
|
||||
Operation => "Test",
|
||||
Data => {
|
||||
# ... response operation data ..
|
||||
},
|
||||
},
|
||||
|
||||
=cut
|
||||
|
||||
sub OperationResultGet {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
# check needed
|
||||
for my $Needed (qw(RequestResult CloudService Operation)) {
|
||||
|
||||
if ( !$Param{$Needed} ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Need $Needed!",
|
||||
);
|
||||
|
||||
return {
|
||||
Success => 0,
|
||||
};
|
||||
}
|
||||
}
|
||||
|
||||
# check RequestResult internals
|
||||
if ( !IsHashRefWithData( $Param{RequestResult} ) ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "The format of the request result is invalid!",
|
||||
);
|
||||
|
||||
return {
|
||||
Success => 0,
|
||||
};
|
||||
}
|
||||
|
||||
if ( !$Param{RequestResult}->{ $Param{CloudService} } ) {
|
||||
my $Message = "No CloudService:'$Param{CloudService}' found in the request result!";
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "$Message",
|
||||
);
|
||||
|
||||
return {
|
||||
Success => 0,
|
||||
ErrorMessage => $Message,
|
||||
};
|
||||
}
|
||||
|
||||
if ( !IsArrayRefWithData( $Param{RequestResult}->{ $Param{CloudService} } ) ) {
|
||||
my $Message = "Results from CloudService:'$Param{CloudService}' are invalid!";
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "$Message",
|
||||
);
|
||||
|
||||
return {
|
||||
Success => 0,
|
||||
ErrorMessage => $Message,
|
||||
};
|
||||
}
|
||||
|
||||
# create a shortcut for actual cloud-service results
|
||||
my @CloudServiceResults = @{ $Param{RequestResult}->{ $Param{CloudService} } };
|
||||
|
||||
RESULT:
|
||||
for my $OperationResult (@CloudServiceResults) {
|
||||
|
||||
next RESULT if $OperationResult->{Operation} ne $Param{Operation};
|
||||
|
||||
if ( !$Param{InstanceName} ) {
|
||||
|
||||
next RESULT if defined $OperationResult->{InstanceName};
|
||||
}
|
||||
else {
|
||||
|
||||
if (
|
||||
!defined $OperationResult->{InstanceName}
|
||||
|| $OperationResult->{InstanceName} ne $Param{InstanceName}
|
||||
)
|
||||
{
|
||||
next RESULT;
|
||||
}
|
||||
}
|
||||
|
||||
return $OperationResult;
|
||||
}
|
||||
|
||||
# if not found return an error
|
||||
my $Message = "No Results from CloudService:'$Param{CloudService}' Operation:'$Param{Operation}'";
|
||||
if ( $Param{InstanceName} ) {
|
||||
$Message .= " InstanceName:'$Param{InstanceName}'!";
|
||||
}
|
||||
else {
|
||||
$Message .= " Without InstanceName!";
|
||||
}
|
||||
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => $Message,
|
||||
);
|
||||
|
||||
return {
|
||||
Success => 0,
|
||||
Message => "No results found!",
|
||||
};
|
||||
}
|
||||
|
||||
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