[otrs] Cannot create a ticket with an external applikation

7 Jul 2009

      Hello,

we are currently trying to create a ticket with an applikation which is 
running on the same server as OTRS, but does not belong to OTRS.

Here is the script:

#! /usr/bin/perl

	use strict;
	use warnings;
	use File::Basename;
	use FindBin qw($RealBin);
	use lib dirname($RealBin);
	use lib dirname($RealBin) . "/Kernel/cpan-lib";
         use Kernel::Config;
         use Kernel::System::Time;
         use Kernel::System::Log;
         use Kernel::System::Main;
         use Kernel::System::DB;
         use Kernel::System::Ticket;

         my $ConfigObject = Kernel::Config->new();
         my $LogObject    = Kernel::System::Log->new(
             ConfigObject => $ConfigObject,
         );
         my $TimeObject = Kernel::System::Time->new(
             LogObject    => $LogObject,
             ConfigObject => $ConfigObject,
         );
         my $MainObject = Kernel::System::Main->new(
             LogObject    => $LogObject,
             ConfigObject => $ConfigObject,
         );
         my $DBObject = Kernel::System::DB->new(
             ConfigObject => $ConfigObject,
             MainObject   => $MainObject,
             LogObject    => $LogObject,
         );
         my $TicketObject = Kernel::System::Ticket->new(
             ConfigObject => $ConfigObject,
             LogObject    => $LogObject,
             DBObject     => $DBObject,
             MainObject   => $MainObject,
             TimeObject   => $TimeObject,
         );

         my $TicketID = $TicketObject->TicketCreate(
         Title        => 'Some Ticket Title',
         Queue        => 'testqueue',            # or QueueID => 123,
         Lock         => 'unlock',
         Priority     => '3 normal',       # or PriorityID => 2,
         State        => 'new',            # or StateID => 5,
         CustomerID   => 'maxmustermann',
         CustomerUser => 'm.mustermann@in-put.de',
         OwnerID      => 3,
         UserID       => 3,
         Subject      => "dies ist ein Test",
         Body         => "und hier steht der text",
     );

         my $TicketNumber = $TicketObject->TicketNumberLookup (
                 TicketID => $TicketID,
                 UserID => 3,
                 );

print "$TicketID\n";
print "$TicketNumber\n";

### End ##

When I start the script, I get the following output:

502
2009060810000074

Looks fine so far, but when I login into OTRS there is the hint "Need 
TicketID in TicketStdResponseString()" underneath "Compose Answer" and 
the body and subject which has been used in the script, isn't displayed 
either.

What's wrong with that skript?

Thanks for your help,

Stefan

[otrs] Cannot create a ticket with an external applikation

Stefan-Michael Guenther