Changeset 96 for trunk

Timestamp:

03/27/05 21:40:30 (20 years ago)

Author:

Erik Huelsmann

Message:

Extend mode tracking: Handle response to a MODE request on a channel

Location:

trunk

Files:

• event.lisp (modified) (1 diff)
• protocol.lisp (modified) (1 diff)

trunk/event.lisp ¶

@@ -186 +186 @@
   (let ((connection (connection message)))
     (remove-user-everywhere connection (find-user connection (source message)))))
+
+(defmethod default-hook ((message irc-rpl_channelmodeis-message))
+  (destructuring-bind
+      (target &rest arguments)
+      ;; ignore the my own nick which is the first message argument
+      (rest (arguments message))
+    (let* ((connection (connection message))
+           (target (find-channel connection target))
+           (mode-changes
+            (when target
+              (parse-mode-arguments connection target arguments
+                                    :server-p (user connection)))))
+      (dolist (change mode-changes)
+        (destructuring-bind
+            (op mode-name value)
+            change
+          (unless (has-mode-p target mode-name)
+            (add-mode target mode-name
+                      (make-mode connection target mode-name)))
+          (funcall (if (char= #\+ op) #'set-mode #'unset-mode)
+                   target mode-name value))))))
 
 (defmethod default-hook ((message irc-mode-message))

trunk/protocol.lisp ¶

@@ -221 +221 @@
                      irc-nick-message
                      irc-mode-message
+                     irc-rpl_channelmodeis-message
                      ctcp-time-message
                      ctcp-source-message