Unlock Tickets with Perl API

[grisuu]

Hey,
I want to unlock a series of locked tickets. So I wrote a perl script which uses these small code snippets as shown in the otrs api doc.
In detail I am using Kernel::System::Ticket. I've created all the necessary objects and used the method “TicketLockSet”. So far the script works and all the specified tickets become unlocked. But in the end of the execution I get the following error:

(in cleanup) Can't call method "Get" on an undefined value at /opt/otrs-3.0.9/Kernel/System/EventHandler.pm line 195 during global destruction.

I'm not an experienced perl developer so maybe someone could give me a hint?

Thanks

[MichaelR]

Have you created an EventHandler object at the start of the script?

[grisuu]

Have you created an EventHandler object at the start of the script?

No, I haven't created it. How do I have to integrate the object?

[MichaelR]

From what I can see you need to call EventHandlerInit and pass in the required variables. I don't think you are passing the appropriate vars.
If you post your code (or the section causing the error) I will be able to help you further.

[grisuu]

From what I can see you need to call EventHandlerInit and pass in the required variables. I don't think you are passing the appropriate vars.
If you post your code (or the section causing the error) I will be able to help you further.

Ok, thanks for the support. I've already solved the problem. It wasn't necessary to create an new EventHandler-Object because the TicketObject already creates it internally. So what I did:

$TicketObject->TicketLockSet(..) and $TicketObject->EventHandler( Event => 'TicketLockUpdate'...) for all those tickets.

At the end of the script I call $TicketObject->EventHandlerTransaction();

and the problem is gone..

Thank you for your hints!