Code: Select all
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper::Simple;
use lib '/var/lib/otrs/otrs-3.2.10';
use Kernel::Config;
use Kernel::System::Encode;
use Kernel::System::Log;
use Kernel::System::Time;
use Kernel::System::Main;
use Kernel::System::DB;
use Kernel::System::Ticket;
my $ConfigObject = Kernel::Config->new();
my $EncodeObject = Kernel::System::Encode->new(
ConfigObject => $ConfigObject,
);
my $LogObject = Kernel::System::Log->new(
ConfigObject => $ConfigObject,
EncodeObject => $EncodeObject,
);
my $TimeObject = Kernel::System::Time->new(
ConfigObject => $ConfigObject,
LogObject => $LogObject,
);
my $MainObject = Kernel::System::Main->new(
ConfigObject => $ConfigObject,
EncodeObject => $EncodeObject,
LogObject => $LogObject,
);
my $DBObject = Kernel::System::DB->new(
ConfigObject => $ConfigObject,
EncodeObject => $EncodeObject,
LogObject => $LogObject,
MainObject => $MainObject,
);
my $TicketObject = Kernel::System::Ticket->new(
ConfigObject => $ConfigObject,
LogObject => $LogObject,
DBObject => $DBObject,
MainObject => $MainObject,
TimeObject => $TimeObject,
EncodeObject => $EncodeObject,
);
my $ticket_id = $ARGV[0];
print "Searching for ticket ID: $ticket_id\n";
my $user_id = $ARGV[1];
my %query = (
Result => 'ARRAY',
TicketNumber => "'%$ticket_id%'",
UserID => $user_id,
);
my @results = $TicketObject->TicketSearch(%query);
warn Dumper(@results);
Code: Select all
ERROR: ?LogPrefix?-10 Perl: 5.16.3 OS: linux Time: Thu Apr 3 12:50:02 2014
Message: Need UserID or CustomerUserID params for permission check!
Traceback (13867):
Module: Kernel::System::TicketSearch::TicketSearch (OTRS 3.2.10) Line: 303
Module: find-ticket.pl (unknown version) Line: 61
The other problem is that if I search for a ticket number and UserID where a match exists, I get the following error:
Code: Select all
ERROR: ?LogPrefix?-10 Perl: 5.16.3 OS: linux Time: Thu Apr 3 12:53:38 2014
Message: Can't write '/var/lib/otrs/otrs-3.2.10/var/tmp/CacheFileStorable/CacheInternalGroup/e/1/e15d8cabb9ff6571e72982e334005aef': Permission denied
Traceback (13952):
Module: Kernel::System::Main::FileWrite (OTRS 3.2.10) Line: 446
Module: Kernel::System::Cache::FileStorable::Set (OTRS 3.2.10) Line: 91
Module: Kernel::System::Cache::Set (OTRS 3.2.10) Line: 132
Module: Kernel::System::CacheInternal::Set (OTRS 3.2.10) Line: 134
Module: Kernel::System::Group::GroupGroupMemberList (OTRS 3.2.10) Line: 882
Module: Kernel::System::Group::GroupMemberList (OTRS 3.2.10) Line: 543
Module: Kernel::System::TicketSearch::TicketSearch (OTRS 3.2.10) Line: 750
Module: find-ticket.pl (unknown version) Line: 61
ERROR: ?LogPrefix?-10 Perl: 5.16.3 OS: linux Time: Thu Apr 3 12:53:38 2014
Message: Can't write '/var/lib/otrs/otrs-3.2.10/var/tmp/CacheFileStorable/CacheInternalGroup/c/f/cf99d5189a554a526c03423cba336e49': Permission denied
Traceback (13952):
Module: Kernel::System::Main::FileWrite (OTRS 3.2.10) Line: 446
Module: Kernel::System::Cache::FileStorable::Set (OTRS 3.2.10) Line: 91
Module: Kernel::System::Cache::Set (OTRS 3.2.10) Line: 132
Module: Kernel::System::CacheInternal::Set (OTRS 3.2.10) Line: 134
Module: Kernel::System::Group::GroupMemberList (OTRS 3.2.10) Line: 574
Module: Kernel::System::TicketSearch::TicketSearch (OTRS 3.2.10) Line: 750
Module: find-ticket.pl (unknown version) Line: 61