From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Fri, 23 Dec 2005 15:07:12 +0000 (+0000)
Subject: r10861: increase pause for reconnection
X-Git-Tag: v0.9.3~2
X-Git-Url: http://git.kpe.io/?p=irc-logger.git;a=commitdiff_plain;h=2ca1ab4fda6c7a17b6a8f9ccb903f3ecdf35eefe

r10861: increase pause for reconnection
---

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.")