projects
/
irc-logger.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
298bc00
)
r8820: add debugging output for reconnection
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Mon, 5 Apr 2004 17:51:29 +0000
(17:51 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Mon, 5 Apr 2004 17:51:29 +0000
(17:51 +0000)
logger.lisp
patch
|
blob
|
history
diff --git
a/logger.lisp
b/logger.lisp
index 86604b365b342a18771abb4233cb9b05f93e6e7c..a05d19e2b496b6b948898dcc003c1bc879396f28 100644
(file)
--- a/
logger.lisp
+++ b/
logger.lisp
@@
-626,6
+626,7
@@
(add-private-log-entry (find-logger-with-nick nick)
"Closing previously active connection [add-logger].")
(ignore-errors (remove-logger nick)))
(add-private-log-entry (find-logger-with-nick nick)
"Closing previously active connection [add-logger].")
(ignore-errors (remove-logger nick)))
+ (format t "Calling create-logger [add-logger].~%")
(let ((logger (create-logger nick server :channels channels :output output
:logging-stream logging-stream :password password
:realname realname :username username
(let ((logger (create-logger nick server :channels channels :output output
:logging-stream logging-stream :password password
:realname realname :username username
@@
-633,6
+634,7
@@
:unknown-log unknown-log
:formats formats
:async async)))
:unknown-log unknown-log
:formats formats
:async async)))
+ (format t "Pushing newly created logger ~A [add-logger].~%" logger)
(push logger *loggers*)
(start-logger logger async)
logger))
(push logger *loggers*)
(start-logger logger async)
logger))
@@
-785,8
+787,7
@@
(sleep 5)
(when (is-connected new-logger)
(log-reconnection new-logger)))))
(sleep 5)
(when (is-connected new-logger)
(log-reconnection new-logger)))))
-
- )
+ ) ;; end closure
(defun daemon-monitor ()
"This function runs in the background and monitors the connection of the logger."
(defun daemon-monitor ()
"This function runs in the background and monitors the connection of the logger."