From 2ca1ab4fda6c7a17b6a8f9ccb903f3ecdf35eefe Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Fri, 23 Dec 2005 15:07:12 +0000
Subject: [PATCH] r10861: increase pause for reconnection

---
 logger.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/logger.lisp b/logger.lisp
index cb1a243..a6aea52 100644
--- a/logger.lisp
+++ b/logger.lisp
@@ -821,13 +821,14 @@
                           :formats *recon-formats*)))
       (cond
        (new-logger
-	(sleep 20)
+	(sleep 240)
 	(cond
          ((is-connected new-logger)
           (log-reconnection new-logger))
          (t
           (log-daemon-message new-logger "Newly added logger is not connected. Removing connection and will re-attempt.")
           (ignore-errors (remove-logger new-logger))
+          (sleep 60)
           (setq new-logger nil))))
        (t
         (log-daemon-message nil "Got NIL for new logger. Waiting and retrying.")
-- 
2.34.1