projects
/
irc-logger.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a1b6f3f
)
r8484: support topicwhotime
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 4 Jan 2004 13:20:06 +0000
(13:20 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 4 Jan 2004 13:20:06 +0000
(13:20 +0000)
logger.lisp
patch
|
blob
|
history
diff --git
a/logger.lisp
b/logger.lisp
index 26c78f55ac2350e51b524c6bf5bff87b36382a8e..7c341299b3d07f120ed3c9b436477dbbd18197f4 100644
(file)
--- a/
logger.lisp
+++ b/
logger.lisp
@@
-469,6
+469,12
@@
(output-event msg :rpl_topic (format nil "~{~A~^ ~}" (arguments msg))
(trailing-argument msg)))
(output-event msg :rpl_topic (format nil "~{~A~^ ~}" (arguments msg))
(trailing-argument msg)))
+(defun rpl_topicwhotime-hook (msg)
+ (output-event msg :rpl_topicwhotime
+ (format nil "~{~A~^ ~}" (arguments msg))
+ (trailing-argument msg)))
+
+
(defun invite-hook (msg)
(let ((logger (find-logger-with-connection (connection msg))))
(format
(defun invite-hook (msg)
(let ((logger (find-logger-with-connection (connection msg))))
(format
@@
-522,6
+528,7
@@
(add-hook conn 'irc::irc-rpl_topic-message 'rpl_topic-hook)
(add-hook conn 'irc::irc-rpl_namreply-message 'rpl_namreply-hook)
(add-hook conn 'irc::irc-rpl_endofnames-message 'rpl_endofnames-hook)
(add-hook conn 'irc::irc-rpl_topic-message 'rpl_topic-hook)
(add-hook conn 'irc::irc-rpl_namreply-message 'rpl_namreply-hook)
(add-hook conn 'irc::irc-rpl_endofnames-message 'rpl_endofnames-hook)
+ (add-hook conn 'irc::irc-rpl_topicwhotime-message 'rpl_topicwhotime-hook)
conn))
(defmethod cl-irc::irc-message-event :around ((msg cl-irc::irc-message))
conn))
(defmethod cl-irc::irc-message-event :around ((msg cl-irc::irc-message))
@@
-534,7
+541,8
@@
irc::irc-pong-message irc::irc-kill-message irc::irc-invite-message
irc::irc-rpl_killdone-message irc::irc-rpl_closing-message
irc::irc-rpl_topic-message irc::irc-rpl_namreply-message
irc::irc-pong-message irc::irc-kill-message irc::irc-invite-message
irc::irc-rpl_killdone-message irc::irc-rpl_closing-message
irc::irc-rpl_topic-message irc::irc-rpl_namreply-message
- irc::irc-rpl_endofnames-message)
+ irc::irc-rpl_endofnames-message irc::irc-rpl_topicwhotime-message
+ irc::irc-rpl_motd irc::irc-rpl_motdstart-message irc::irc-rpl_endofmotd-message)
;; nothing to do
)
(t
;; nothing to do
)
(t