Interpreter: Debugging improvements

diff --git a/src/lib/unlang/interpret.c b/src/lib/unlang/interpret.c
index a5754c595f737ae9b531ab363a605d65bfe87430..95bf73c7d252062ba6bbe4989d67a8754c275107 100644 (file)
--- a/src/lib/unlang/interpret.c
+++ b/src/lib/unlang/interpret.c
@@ -899,7 +899,7 @@ rlm_rcode_t unlang_interpret_synchronous(REQUEST *request, CONF_SECTION *cs, rlm
                 *      failure, all kinds of bad things happen.  Oh
                 *      well.
                 */
-               DEBUG4("Corralling events (%s wait)", wait_for_events ? "will" : "will not");
+               DEBUG3("Gathering events - %s", wait_for_events ? "will wait" : "Will not wait");
                num_events = fr_event_corral(el, fr_time(), wait_for_events);
                if (num_events < 0) {
                        RPERROR("Failed retrieving events");
@@ -907,6 +907,9 @@ rlm_rcode_t unlang_interpret_synchronous(REQUEST *request, CONF_SECTION *cs, rlm
                        break;
                }
 
+               DEBUG3("%u event(s) pending%s",
+                      num_events == -1 ? 0 : num_events, num_events == -1 ? " - event loop exiting" : "");
+
                /*
                 *      We were NOT waiting, AND there are no more
                 *      events to run, AND there are no more requests
@@ -923,7 +926,7 @@ rlm_rcode_t unlang_interpret_synchronous(REQUEST *request, CONF_SECTION *cs, rlm
                 *      setting new timers.
                 */
                if (num_events > 0) {
-                       DEBUG4("Servicing events");
+                       DEBUG4("Servicing event(s)");
                        fr_event_service(el);
                }