Add some logging when restart is accepted and when a duplicate restart is ignored

Apply suggestion from @corporate-gadfly

Co-authored-by: Corporate Gadfly <corporate-gadfly@users.noreply.github.com>
Signed-off-by: Tim Meusel <tim@bastelfreak.de>

Author: bastelfreak

project.clj

@@ -95,7 +95,7 @@
             [org.openvoxproject/i18n ~i18n-version]]
 
   :eastwood {:ignored-faults {:reflection {puppetlabs.trapperkeeper.logging [{:line 92}]
-                                           puppetlabs.trapperkeeper.internal [{:line 220}]
+                                           puppetlabs.trapperkeeper.internal [{:line 230}]
                                            puppetlabs.trapperkeeper.testutils.logging true
                                            puppetlabs.trapperkeeper.testutils.logging-test true
                                            puppetlabs.trapperkeeper.services.nrepl.nrepl-service-test true

src/puppetlabs/trapperkeeper/internal.clj

@@ -113,15 +113,25 @@
 (defn should-handle-sighup-restart?
   []
   (let [current-ms (now-ms)
-        accepted? (atom false)]
+        accepted? (atom false)
+        previous-ms (atom nil)]
     (swap! last-sighup-restart-ms
            (fn [last-ms]
+             (reset! previous-ms last-ms)
              (if (and (some? last-ms)
                       (< (- current-ms last-ms) min-sighup-restart-interval-ms))
                last-ms
                (do
                  (reset! accepted? true)
                  current-ms))))
+    (if @accepted?
+      (log/debug (i18n/trs "Accepting SIGHUP restart at {0}; previous accepted restart was {1}"
+                           current-ms
+                           @previous-ms))
+      (log/warn (i18n/trs "Ignoring duplicate SIGHUP restart at {0}; previous accepted restart was {1}; minimum interval is {2} ms"
+                          current-ms
+                          @previous-ms
+                          min-sighup-restart-interval-ms)))
     @accepted?))
 
 (defn app-log-id