From: Dylan William Hardison <dylan@hardison.net>
Date: Tue, 13 Mar 2018 14:40:12 +0000 (-0400)
Subject: Bug 1441181 - Step 5 - Add logging to jobqueue
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7b5a64793f8b4b8d464f5522975ef19a830b2c2e;p=thirdparty%2Fbugzilla.git

Bug 1441181 - Step 5 - Add logging to jobqueue
---

diff --git a/Bugzilla/JobQueue.pm b/Bugzilla/JobQueue.pm
index e3cf9733f..8c8d73dcd 100644
--- a/Bugzilla/JobQueue.pm
+++ b/Bugzilla/JobQueue.pm
@@ -11,6 +11,7 @@ use 5.10.1;
 use strict;
 use warnings;
 
+use Bugzilla::Logging;
 use Bugzilla::Constants;
 use Bugzilla::Error;
 use Bugzilla::Install::Util qw(install_string);
@@ -95,6 +96,14 @@ sub insert {
     return $retval;
 }
 
+sub debug {
+    my ($self, @args) = @_;
+    my $caller_pkg = caller;
+    local $Log::Log4perl::caller_depth = $Log::Log4perl::caller_depth + 1;
+    my $logger = Log::Log4perl->get_logger($caller_pkg);
+    $logger->debug(@args);
+}
+
 sub work {
     my ($self, $delay) = @_;
     $delay ||= 5;
@@ -105,6 +114,7 @@ sub work {
         reschedule     => 'drift',
         on_tick        => sub { $self->work_once }
     );
+    DEBUG("working every $delay seconds");
     $loop->add($timer);
     $timer->start;
     Future->wait_any(map { catch_signal($_) } qw( INT TERM HUP ))->get;
diff --git a/Bugzilla/JobQueue/Runner.pm b/Bugzilla/JobQueue/Runner.pm
index d95f9c3c3..a3cf3ff55 100644
--- a/Bugzilla/JobQueue/Runner.pm
+++ b/Bugzilla/JobQueue/Runner.pm
@@ -16,6 +16,7 @@ use strict;
 use warnings;
 use autodie qw(open close unlink system);
 
+use Bugzilla::Logging;
 use Bugzilla::Constants;
 use Bugzilla::DaemonControl qw(:utils);
 use Bugzilla::JobQueue::Worker;