OTRS предоставляет возможность доступа к своему API через WebServices. С OTRS API можно ознакомиться здесь. Доступ к OTRS API предоставляется через url http://localhost/otrs/rpc.pl, при необходимости localhost надо заменить на ip-адрес или имя сервера с OTRS.
Для выполнения тестового вызова я использовал ActivePerl. Изначально в нем нет модуля SOAP::Lite, его надо установить после установки Perl'а.
Сначала запустим Perl командой: perl -MCPAN -e shell,а в появившейся консоли дадим команду: install SOAP::Lite. Скорее всего компилятор gcc и средство сборки make не установлены, так что процесс займет немало времени. По ходу выполнения действий по установке модуля необходимо подтверждать действия.
Введем код тестовой программы в файл test_otrs.pl:
use warnings;
use SOAP::Lite('autodispatch', proxy => 'http://localhost/otrs/rpc.pl'); # должен быть указан адрес OTRS-сервера
my $RPC = Core.new();
my %Ticket = $RPC->Dispatch('some_user','some_pass','TicketObject','TicketGet', TicketID=>1); # login и пароль указываются в настройках, а здесь приведены значения по умолчанию
print "$Ticket{TicketNumber}\n";
Программа просто выводит номер заявки по ее идентификатору, но то, что она это делает, означает, что web-сервисы работают. Подобным образом можно вызывать и другие функции системы.
Для выполнения тестового вызова я использовал ActivePerl. Изначально в нем нет модуля SOAP::Lite, его надо установить после установки Perl'а.
Сначала запустим Perl командой: perl -MCPAN -e shell,а в появившейся консоли дадим команду: install SOAP::Lite. Скорее всего компилятор gcc и средство сборки make не установлены, так что процесс займет немало времени. По ходу выполнения действий по установке модуля необходимо подтверждать действия.
Введем код тестовой программы в файл test_otrs.pl:
use warnings;
use SOAP::Lite('autodispatch', proxy => 'http://localhost/otrs/rpc.pl'); # должен быть указан адрес OTRS-сервера
my $RPC = Core.new();
my %Ticket = $RPC->Dispatch('some_user','some_pass','TicketObject','TicketGet', TicketID=>1); # login и пароль указываются в настройках, а здесь приведены значения по умолчанию
print "$Ticket{TicketNumber}\n";
Программа просто выводит номер заявки по ее идентификатору, но то, что она это делает, означает, что web-сервисы работают. Подобным образом можно вызывать и другие функции системы.
Комментариев нет:
Отправить комментарий