[otrs-de] Erzeugung eines Tickets aus einer externen Applikation klappt nicht

8 Jun 2009

      Guten Abend,

ich versuche mit dem folgenden Skript ein Ticket außerhalb des OTRS zu 
erzeugen, wobei sich das Skript auf dem Rechner befindet, auf dem auch 
OTRS installiert ist.

#! /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";

### Ende ##

Als Ausgabe erhalte ich:

502
2009060810000074

Sieht ja eigentlich ganz gut aus. Aber wenn ich mich im OTRS anmelde und 
das Ticket aufrufe, dann steht unterhalb von "Antwort erstellen" der 
Hinweis "Need TicketID in TicketStdResponseString() " und es wird auch 
nicht der oben angegeben Body bzw. Subject ausgegeben.

Was stimmt an meinem Skript noch nicht?

Danke für jeden Hinweis und Tipp,

Stefan

[otrs-de] Erzeugung eines Tickets aus einer externen Applikation klappt nicht

Stefan-Michael Guenther