From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sun, 4 Jan 2004 13:20:06 +0000 (+0000)
Subject: r8484: support topicwhotime
X-Git-Tag: v0.9.3~33
X-Git-Url: http://git.kpe.io/?p=irc-logger.git;a=commitdiff_plain;h=63356535fbaa1b651d525e81befd6efd4b49016e

r8484: support topicwhotime
---

diff --git a/logger.lisp b/logger.lisp
index 26c78f5..7c34129 100644
--- a/logger.lisp
+++ b/logger.lisp
@@ -469,6 +469,12 @@
   (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 
@@ -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_topicwhotime-message 'rpl_topicwhotime-hook)
     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-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