Well, something “broke”, and I’m not sure what.

I’m getting errors via cronjobs for GenericAgent.pl, so I ran it with a trace, but no real hint as to the problem.

The command-line execution (which produces the same output I get via cron):

echo# ./GenericAgent.pl

Subroutine new redefined at /usr/local/www/secure/otrs/Kernel/Config/GenericAgent.pm line 78.

Subroutine JobRun redefined at /usr/local/www/secure/otrs/Kernel/Config/GenericAgent.pm line 205.

Subroutine _JobRunTicket redefined at /usr/local/www/secure/otrs/Kernel/Config/GenericAgent.pm line 423.

Subroutine JobList redefined at /usr/local/www/secure/otrs/Kernel/Config/GenericAgent.pm line 769.

Subroutine JobGet redefined at /usr/local/www/secure/otrs/Kernel/Config/GenericAgent.pm line 796.

Subroutine JobAdd redefined at /usr/local/www/secure/otrs/Kernel/Config/GenericAgent.pm line 1029.

Subroutine JobDelete redefined at /usr/local/www/secure/otrs/Kernel/Config/GenericAgent.pm line 1092.

Subroutine _JobUpdateRunTime redefined at /usr/local/www/secure/otrs/Kernel/Config/GenericAgent.pm line 1115.

echo#

The output of the trace is:

echo# perl -d GenericAgent.pl

Loading DB routines from perl5db.pl version 1.28

Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(GenericAgent.pl:33): $VERSION = qw($Revision: 1.44 $) [1];

DB<1> n

main::(GenericAgent.pl:47): my %Opts = ();

DB<1> n

main::(GenericAgent.pl:48): getopt( 'fhcdl', \%Opts );

DB<1> n

main::(GenericAgent.pl:49): if ( $Opts{'h'} ) {

DB<1> n

main::(GenericAgent.pl:61): if ( !$Opts{'d'} ) {

DB<1> n

main::(GenericAgent.pl:62): $Opts{'d'} = 0;

DB<1> n

main::(GenericAgent.pl:66): if ( !$Opts{'l'} ) {

DB<1> n

main::(GenericAgent.pl:67): $Opts{'l'} = 3000;

DB<1> n

main::(GenericAgent.pl:71): my $UserIDOfGenericAgent = 1;

DB<1> n

main::(GenericAgent.pl:74): my %CommonObject = ();

DB<1> n

main::(GenericAgent.pl:75): $CommonObject{ConfigObject} = Kernel::Config->new();

DB<1> n

main::(GenericAgent.pl:76): $CommonObject{LogObject} = Kernel::System::Log->new(

main::(GenericAgent.pl:77): LogPrefix => 'OTRS-GenericAgent',

main::(GenericAgent.pl:78): %CommonObject,

main::(GenericAgent.pl:79): );

DB<1> n

main::(GenericAgent.pl:80): $CommonObject{MainObject} = Kernel::System::Main->new(%CommonObject);

DB<1> n

main::(GenericAgent.pl:81): $CommonObject{DBObject} = Kernel::System::DB->new(%CommonObject);

DB<1> n

main::(GenericAgent.pl:82): $CommonObject{PIDObject} = Kernel::System::PID->new(%CommonObject);

DB<1> n

main::(GenericAgent.pl:83): $CommonObject{TimeObject} = Kernel::System::Time->new(%CommonObject);

DB<1> n

main::(GenericAgent.pl:84): $CommonObject{TicketObject} = Kernel::System::Ticket->new( %CommonObject, Debug => $Opts{'d'}, );

DB<1> n

main::(GenericAgent.pl:85): $CommonObject{QueueObject} = Kernel::System::Queue->new(%CommonObject);

DB<1> n

main::(GenericAgent.pl:86): $CommonObject{GenericAgentObject} = Kernel::System::GenericAgent->new(

main::(GenericAgent.pl:87): %CommonObject,

main::(GenericAgent.pl:88): Debug => $Opts{'d'},

main::(GenericAgent.pl:89): NoticeSTDOUT => 1,

main::(GenericAgent.pl:90): );

DB<1> n

main::(GenericAgent.pl:93): if ( !$Opts{'c'} ) {

DB<1> n

main::(GenericAgent.pl:94): $Opts{'c'} = 'Kernel::Config::GenericAgent';

DB<1> n

main::(GenericAgent.pl:96): if ( $Opts{'c'} eq 'db' ) {

DB<1> n

main::(GenericAgent.pl:100): if ( !$CommonObject{MainObject}->Require( $Opts{'c'} ) ) {

DB<1> n

Subroutine new redefined at /usr/local/www/secure/otrs/Kernel/Config/GenericAgent.pm line 78.

at /usr/local/www/secure/otrs/Kernel/Config/GenericAgent.pm line 78