I don't undestand why I don't see the created ticket if calling rpc-example.pl from scripts folder.
Actually I'm running the following script :
Code: Select all
#!/usr/bin/perl -w
use strict;
use warnings;
use Data::Dumper;
# config
#use SOAP::Lite( 'autodispatch', proxy => 'http://127.0.0.1/otrs/rpc.pl' );
use SOAP::Lite;#( 'autodispatch', proxy => 'http://localhost/otrs/rpc.pl' );
my $User = 'soap_user';
my $Pw = 'soap_user';
my $RPC = SOAP::Lite->new(proxy => 'http://localhost/otrs/rpc.pl');
#print Dumper($RPC);
# create a new ticket number
print "NOTICE: TicketObject->TicketCreateNumber()\n";
my $TicketNumber = $RPC->Dispatch( $User, $Pw, 'TicketObject', 'TicketCreateNumber' );
print "NOTICE: New Ticket Number is: $TicketNumber\n";
# create a ticket
my %TicketData = (
Title => 'rpc-example.pl test ticket',
Queue => 'Raw',
Lock => 'unlock',
Priority => 'low',
State => 'new',
CustomerID => 'www.otrs.com',
CustomerUser => 'customer@example.com',
OwnerID => 1,
UserID => 1,
);
print "NOTICE: TicketObject->TicketCreate(%TicketData)\n";
my $TicketID = $RPC->Dispatch( $User, $Pw, 'TicketObject', 'TicketCreate', %TicketData => 1 )
|| die "Failed to create ticket: $!";
print "NOTICE: TicketID is $TicketID\n";
my %ArticleData = (
TicketID => 123,
ArticleType => 'email-external', # email-external|email-internal|phone|fax|...
SenderType => 'agent', # agent|system|customer
From => 'root', # not required but useful
To => 'customer', # not required but useful
Cc => '', # not required but useful
ReplyTo => '', # not required
Subject => 'Test Ticket', # required
Body => "Test Body", # required
MessageID => '', # not required but useful
Charset => 'ISO-8859-15',
HistoryType => 'EmailCustomer', # EmailCustomer|Move|AddNote|PriorityUpdate|WebRequestCustomer|...
HistoryComment => 'Some free text!',
UserID => 1,
NoAgentNotify => 0, # if you don't want to send agent notifications
Type => 'text/plain',
Loop => 0, # auto reject|auto follow up|auto follow up|auto remove
);
my $ArticleID =$RPC->Dispatch($User, $Pw, 'TicketObject', 'ArticleSend', %ArticleData => 1 );
print "NOTICE: ArticleID is $ArticleID \n";
exit 0;
Any suggestions ?