projects
/
irc-logger.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8820: add debugging output for reconnection
[irc-logger.git]
/
logger.lisp
diff --git
a/logger.lisp
b/logger.lisp
index c686d4197aac13213bc99af7b8c16b6a3c463615..a05d19e2b496b6b948898dcc003c1bc879396f28 100644
(file)
--- a/
logger.lisp
+++ b/
logger.lisp
@@
-85,7
+85,7
@@
(string-left-trim '(#\#) name))
(defun find-channel-with-name (logger name)
(string-left-trim '(#\#) name))
(defun find-channel-with-name (logger name)
- (find name (the list (channels logger)) :test #'string-equal :key #'name))
+ (find name (the list (channels logger)) :test #'string-equal :key #'
c-
name))
(defun make-output-name (name year month day)
(format nil "~A-~4,'0D.~2,'0D.~2,'0D" (canonicalize-channel-name name)
(defun make-output-name (name year month day)
(format nil "~A-~4,'0D.~2,'0D.~2,'0D" (canonicalize-channel-name name)
@@
-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))
@@
-659,7
+661,7
@@
(setf (get-stream channel i) nil)))
(setf (channels logger) (delete channel-name (channels logger)
:test #'string-equal
(setf (get-stream channel i) nil)))
(setf (channels logger) (delete channel-name (channels logger)
:test #'string-equal
- :key #'name))
+ :key #'
c-
name))
(setf (channel-names logger) (delete channel-name (channel-names logger)
:test #'string-equal))
t)
(setf (channel-names logger) (delete channel-name (channel-names logger)
:test #'string-equal))
t)
@@
-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."