#!/usr/bin/perl -w
# --
# otrs.addUser - Add User from CLI
# Copyright (C) 2002 Atif Ghaffar <aghaffar@developer.ch>
# --
# $Id: otrs.addUser,v 1.8 2003/03/06 22:11:59 martin Exp $
# --
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
# the enclosed file COPYING for license information (GPL). If you
# did not receive this file, see http://www.gnu.org/licenses/gpl.txt.
# --

  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::DB;
  use Kernel::System::Ticket;  my $ConfigObject = Kernel::Config->new();
  my $TimeObject    = Kernel::System::Time->new(
      ConfigObject => $ConfigObject,
  );
  my $LogObject    = Kernel::System::Log->new(
      ConfigObject => $ConfigObject,
  );
  my $DBObject = Kernel::System::DB->new(
      ConfigObject => $ConfigObject,
      LogObject => $LogObject,
  );
  my $TicketObject = Kernel::System::Ticket->new(
      ConfigObject => $ConfigObject,
      LogObject => $LogObject,
      DBObject => $DBObject,
  );

  my $TicketID = $TicketObject->TicketCreate(
        TN => $TicketObject->TicketCreateNumber(),
        QueueID => 123,                # or Queue => 'SomeQueue'
        Lock => 'unlock',
        GroupID => 1,
        Priority => '3 normal'         # or PriorityID => 2,
        State => 'new',                # or StateID => 5,
        CustomerNo => '123465',
        CustomerUser => 'customer@example.com',
        UserID => 123, # new owner
        CreateUserID => 123,
  );
   print "Ticket added. Ticket ID  is $TicketID"; 
  
# --
exit (0);