perl – 如何通过OTRS中的Web服务(SOAP或REST)将配置项链接/获取到故障单

首先,您应该编写一个新的通用接口连接器操作,该操作将处理来自LinkObject类的方法LinkAdd(APIdoc)

然后通过新的XML文件创建并注册新操作,如下所示：

文件名：GenericInterfaceLinkObjectConnector.xml

<?xml version="1.0" encoding="utf-8"?>
<otrs_config version="1.0" init="Application">
<ConfigItem Name="GenericInterface::Operation::Module###LinkObject::LinkAdd" required="0" Valid="1">
        <Description Translatable="1">GenericInterface module registration for the operation layer.</Description>
        <Group>GenericInterface</Group>
        <SubGroup>GenericInterface::Operation::ModuleRegistration</SubGroup>
        <Setting>
            <Hash>
                <Item Key="Name">LinkAdd</Item>
                <Item Key="Controller">LinkObject</Item>
                <Item Key="ConfigDialog">AdminGenericInterfaceOperationDefault</Item>
            </Hash>
        </Setting>
    </ConfigItem>
</otrs_config>

之后,您可以从OTRS GUI发布新的提供程序WebService,其中使用了新创建的连接器.

确保您传递了方法所需的所有参数！

$True = $LinkObject->LinkAdd(
    SourceObject => 'Ticket',SourceKey    => '321',Targetobject => 'FAQ',TargetKey    => '5',Type         => 'ParentChild',State        => 'Valid',UserID       => 1,);

更新：

请阅读此Document以了解如何构建通用接口,然后请添加新的连接器(LinkObject)

注册连接器及其操作 – 将XML文件放在/ Kernel / Config / Files / …

然后转到Sysconfig – > GenericInterface – > GenericInterface :: Operation :: ModuleRegistration并在GenericInterface :: Operation :: Module ### LinkObject :: LinkAdd旁边设置一个勾号并保存更改

然后将此Connector文件添加到/Custom/Kernel/GenericInterface/Operation/LinkObject/LinkAdd.pm

# --
# Kernel/GenericInterface/Operation/LinkObject/LinkAdd.pm - GenericInterface LinkAdd operation backend
# copyright (C) 2016 ArtyCo (Artjoms Petrovs),http://artjoms.lv/
# --
# 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::GenericInterface::Operation::LinkObject::LinkAdd;

use strict;
use warnings;

use Kernel::GenericInterface::Operation::Common;
use Kernel::System::LinkObject;
use Kernel::System::VariableCheck qw(IsstringWithData IsHashRefWithData);

=head1 NAME

Kernel::GenericInterface::Operation::LinkObject::LinkAdd - GenericInterface Link Create Operation backend

=head1 SYnopSIS

=head1 PUBLIC INTERFACE

=over 4

=cut

=item new()

usually,you want to create an instance of this
by using Kernel::GenericInterface::Operation->new();

=cut

sub new {
    my ( $Type,%Param ) = @_;

    my $Self = {};
    bless( $Self,$Type );

    # check needed objects
    for my $Needed (
        qw(DebuggerObject ConfigObject MainObject logobject TimeObject DBObject EncodeObject WebserviceID)
        )
    {
        if ( !$Param{$Needed} ) {
            return {
                Success      => 0,ErrorMessage => "Got no $Needed!"
            };
        }

        $Self->{$Needed} = $Param{$Needed};
    }

    # create additional objects
    $Self->{CommonObject} = Kernel::GenericInterface::Operation::Common->new( %{$Self} );
    $Self->{LinkObject}
        = Kernel::System->LinkObject->new( %{$Self} );

    return $Self;
}

=item Run()

Create a new link.

    my $Result = $OperationObject->Run(
        Data => {
            SourceObject => 'Ticket',Targetobject => 'Ticket',TargetKey    => '12345',},);

    $Result = {
        Success      => 1,# 0 or 1
        ErrorMessage => '',# In case of an error
        Data         => {
            Result => 1,# 0 or 1 
        },};

=cut

sub Run {
    my ( $Self,%Param ) = @_;

    # check needed stuff
    if ( !IsHashRefWithData( $Param{Data} ) ) {
        return $Self->{CommonObject}->ReturnError(
            ErrorCode    => 'LinkAdd.MissingParameter',ErrorMessage => "LinkAdd: The request is empty!",);
    }



    my $LinkID = $Self->{LinkObject}->LinkAdd(
        %Param,);

    if ( !$LinkID ) {
        return $Self->{CommonObject}->ReturnError(
            ErrorCode    => 'LinkAdd.AuthFail',ErrorMessage => "LinkAdd: Authorization failing!",);
    }

    return {
        Success => 1,Data    => {
            Result => $LinkID,};
}

1;

=back

=head1 TERMS AND CONDITIONS

This software is part of the OTRS project (L<http://otrs.org/>).

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 L<http://www.gnu.org/licenses/agpl.txt>.

=cut

然后它应该出现,可以从管理员使用 – > Web服务 – >可用操作下拉列表当然可以用作Web服务.

PHP使用示例如下所示：

#### Initialize new client session ####
$client = new SoapClient(
 null,array(
 'location' => $url,'uri' => "Core",'trace' => 1,'login' => $username,'password' => $password,'style' => SOAP_RPC,'use' => SOAP_ENCODED
 )
);
#### Create and send the SOAP Function Call ####
$success = $client->__soapCall("dispatch",array($username,$password,"LinkObject","LinkAdd","SourceObject",'Ticket',"SourceKey",$ticket_id1,"Targetobject","TargetKey",$ticket_id2,"Type",'ParentChild',"State",'Valid',"UserID",'1'
));

如果出现错误 – 启用调试,请查看系统日志并检查OTRS的所有初始设置

祝你好运！

更新#2

要注册Web服务 – 按“添加新的Web服务”按钮,根据需要对其进行命名并设置以下设置(选择LinkAdd操作)并保存

更新#3

这是OTRS 5的更新模块文件

# --
# Kernel/GenericInterface/Operation/LinkObject/LinkAdd.pm - GenericInterface LinkAdd operation backend
# copyright (C) 2016 ArtyCo (Artjoms Petrovs),$Type );

    # check needed objects
    for my $Needed (
        qw( DebuggerObject WebserviceID )
        )
    {
        if ( !$Param{$Needed} ) {
            return {
                Success      => 0,ErrorMessage => "Got no $Needed!"
            };
        }

        $Self->{$Needed} = $Param{$Needed};
    }

    # create additional objects
    $Self->{CommonObject} = Kernel::GenericInterface::Operation::Common->new( %{$Self} );
    $Self->{LinkObject}
        = $Kernel::OM->Get('Kernel::System::LinkObject');

    return $Self;
}

=item Run()

Create a new link.

    my $Result = $OperationObject->Run(
        Data => {
            SourceObject => 'Ticket',see L<http://www.gnu.org/licenses/agpl.txt>.

=cut