1 ;;; riece-300.el --- handlers for 300 replies
2 ;; Copyright (C) 1998-2003 Daiki Ueno
4 ;; Author: Daiki Ueno <ueno@unixuser.org>
6 ;; Keywords: IRC, riece
8 ;; This file is part of Riece.
10 ;; This program is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
15 ;; This program is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
27 (eval-when-compile (require 'riece-inlines))
30 (require 'riece-commands)
32 (require 'riece-filter) ;riece-default-handle-message
35 (autoload 'riece-default-handle-numeric-reply "riece-filter"))
36 (defun riece-handle-default-300-message (prefix number name string)
37 (riece-default-handle-numeric-reply
38 riece-info-prefix prefix number name string))
40 (defun riece-handle-302-message (prefix number name string)
41 "RPL_USERHOST \":*1<reply> *( \" \" <reply> )\""
42 (let ((replies (split-string (substring string 1) " ")))
45 (concat "^\\(" riece-user-regexp
46 "\\)\\(\\*\\)?=\\([-+]\\)\\([^ ]+\\)")
48 (let ((user (match-string 1 (car replies)))
49 (away (eq (match-string 3 (car replies)) ?-)))
51 (list riece-dialogue-buffer riece-others-buffer)
53 (riece-concat-server-name
54 (format "%s is (%s) [%s, %s]"
56 (riece-strip-user-at-host
57 (match-string 4 (car replies)))
58 (if (match-beginning 2)
65 (riece-user-set-away (riece-get-user user) away)))
66 (setq replies (cdr replies)))))
68 (defun riece-handle-303-message (prefix number name string)
70 (list riece-dialogue-buffer riece-others-buffer)
72 (riece-concat-server-name (concat "Online: " (substring string 1)))
75 (defun riece-handle-301-message (prefix number name string)
77 (concat "^\\(" riece-user-regexp "\\) :")
79 (let ((user (match-string 1 string)))
80 (riece-user-set-away (riece-get-user user) t)
82 (list riece-dialogue-buffer riece-others-buffer)
84 (riece-concat-server-name
85 (format "%s is away: %s"
87 (substring string (match-end 0))))
90 (defun riece-handle-305-message (prefix number name string)
91 (riece-user-set-away (riece-get-user riece-real-nickname) nil)
92 (setq riece-away-indicator "-")
93 (force-mode-line-update t))
95 (defun riece-handle-306-message (prefix number name string)
96 (riece-user-set-away (riece-get-user riece-real-nickname) t)
97 (setq riece-away-indicator "A")
98 (force-mode-line-update t))
100 (defun riece-handle-311-message (prefix number name string)
102 (concat "^\\(" riece-user-regexp
103 "\\) \\([^ ]+\\) \\([^ ]+\\) \\* :")
106 (list riece-dialogue-buffer riece-others-buffer)
108 (riece-concat-server-name
109 (format "%s is %s (%s@%s)"
110 (match-string 1 string)
111 (substring string (match-end 0))
112 (match-string 2 string)
113 (match-string 3 string)))
116 (defun riece-handle-312-message (prefix number name string)
118 (concat "^\\(" riece-user-regexp "\\) \\([^ ]+\\) :")
121 (list riece-dialogue-buffer riece-others-buffer)
123 (riece-concat-server-name
124 (format "on via server %s: %s"
125 riece-real-server-name
126 (substring string (match-end 0))))
129 (defun riece-handle-313-message (prefix number name string)
130 (if (string-match (concat "^" riece-user-regexp) string)
132 (list riece-dialogue-buffer riece-others-buffer)
134 (riece-concat-server-name
135 (concat (match-string 0 string) " is an IRC operator"))
138 (defun riece-handle-317-message (prefix number name string)
140 (concat "^\\(" riece-user-regexp "\\) \\([0-9]+\\) :")
143 (list riece-dialogue-buffer riece-others-buffer)
145 (riece-concat-server-name
146 (format "%s is %s seconds idle"
147 (match-string 1 string)
148 (match-string 2 string)))
151 (defun riece-handle-351-message (prefix number name string)
152 (if (string-match "\\([^ ]+\\.[^ ]+\\) \\([^ ]+\\) :" string)
154 (list riece-dialogue-buffer riece-others-buffer)
156 (riece-concat-server-name
157 (format "%s is running on %s: %s"
158 (match-string 1 string)
159 (match-string 2 string)
160 (substring string (match-end 0))))
163 (defun riece-handle-353-message (prefix number name string)
164 "RPL_NAMREPLY \"<channel> :[[@|+]<nick> [[@|+]<nick> [...]]]\"."
165 (if (string-match "^[=\*@] *\\([^ ]+\\) +:" string)
166 (let ((channel (match-string 1 string))
168 (setq string (substring string (match-end 0)))
169 (if (string-match " *$" string)
170 (setq string (substring string 0 (match-beginning 0))))
171 (setq users (split-string string))
173 (if (eq (aref (car users) 0) ?@)
175 (riece-naming-assert-join (substring (car users) 1) channel)
176 (riece-channel-toggle-operator
177 channel (substring (car users) 1) t))
178 (if (eq (aref (car users) 0) ?+)
180 (riece-naming-assert-join (substring (car users) 1) channel)
181 (riece-channel-toggle-speaker
182 channel (substring (car users) 1) t))
183 (riece-naming-assert-join (car users) channel)))
184 (setq users (cdr users)))
185 (riece-redisplay-buffers))))
187 (defun riece-handle-322-message (prefix number name string)
188 (if (string-match "^\\([^ ]+\\) \\([0-9]+\\) :" string)
189 (let* ((channel (match-string 1 string))
190 (visible (match-string 2 string))
191 (topic (substring string (match-end 0))))
192 (let ((buffer (cdr (riece-identity-assoc-no-server
193 (riece-make-identity channel)
194 riece-channel-buffer-alist))))
195 (riece-insert-info buffer (concat visible " users, topic: "
198 (if (and riece-channel-buffer-mode
199 (not (eq buffer riece-channel-buffer)))
200 (list riece-dialogue-buffer riece-others-buffer)
201 riece-dialogue-buffer)
203 (riece-concat-server-name
204 (format "%s users on %s, topic: %s" visible channel topic))
207 (defun riece-handle-324-message (prefix number name string)
208 (if (string-match "^\\([^ ]+\\) \\([^ ]+\\) " string)
209 (let* ((channel (match-string 1 string))
210 (mode-string (substring string (match-beginning 2)))
211 (modes (string-to-list (match-string 2 string)))
212 (toggle (car modes)))
213 (setq modes (cdr modes))
215 (riece-channel-toggle-mode channel (car modes) (eq toggle ?+))
216 (setq modes (cdr modes)))
217 (let ((buffer (cdr (riece-identity-assoc-no-server
218 (riece-make-identity channel)
219 riece-channel-buffer-alist))))
220 (riece-insert-info buffer (concat "Mode: " mode-string "\n"))
222 (if (and riece-channel-buffer-mode
223 (not (eq buffer riece-channel-buffer)))
224 (list riece-dialogue-buffer riece-others-buffer)
225 riece-dialogue-buffer)
227 (riece-concat-server-name
228 (format "Mode for %s: %s" channel mode-string))
231 (defun riece-handle-set-topic (prefix number name string remove)
232 (if (string-match "^\\([^ ]+\\) :" string)
233 (let* ((channel (match-string 1 string))
234 (message (substring string (match-end 0)))
235 (buffer (cdr (riece-identity-assoc-no-server
236 (riece-make-identity channel)
237 riece-channel-buffer-alist))))
239 (riece-channel-set-topic (riece-get-channel channel) nil)
240 (riece-channel-set-topic (riece-get-channel channel) message)
241 (riece-insert-info buffer (concat "Topic: " message "\n"))
243 (if (and riece-channel-buffer-mode
244 (not (eq buffer riece-channel-buffer)))
245 (list riece-dialogue-buffer riece-others-buffer)
246 riece-dialogue-buffer)
248 (riece-concat-server-name
249 (format "Topic for %s: %s" channel message))
251 (riece-update-channel-indicator)))))
253 (defun riece-handle-331-message (prefix number name string)
254 (riece-handle-set-topic prefix name name string t))
256 (defun riece-handle-332-message (prefix number name string)
257 (riece-handle-set-topic prefix name name string nil))
259 (defun riece-handle-341-message (prefix number name string)
260 (if (string-match "^\\([^ ]+\\) " string)
261 (let* ((channel (match-string 1 string))
262 (user (substring string (match-end 0)))
263 (buffer (cdr (riece-identity-assoc-no-server
264 (riece-make-identity channel)
265 riece-channel-buffer-alist))))
266 (riece-insert-info buffer (concat "Inviting " user "\n"))
268 (if (and riece-channel-buffer-mode
269 (not (eq buffer riece-channel-buffer)))
270 (list riece-dialogue-buffer riece-others-buffer)
271 riece-dialogue-buffer)
273 (riece-concat-server-name
274 (format "Inviting %s to %s" user channel))
277 (defun riece-handle-352-message (prefix number name string)
278 (if (string-match "^\\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([HG]\\)\\(\\*\\)?\\([@+]\\)? :\\([0-9]+\\) " string)
279 (let* ((channel (match-string 1 string))
280 (user (match-string 2 string))
281 (host (match-string 3 string))
282 (server (match-string 4 string))
283 (nick (match-string 5 string))
284 (away (equal (match-string 6 string) "G"))
285 (operator (match-string 7 string))
286 (flag (match-string 8 string))
287 (hops (match-string 9 string))
288 (name (substring string (match-end 0)))
289 (buffer (cdr (riece-identity-assoc-no-server
290 (riece-make-identity channel)
291 riece-channel-buffer-alist))))
292 (riece-naming-assert-join nick channel)
293 (riece-user-set-away (riece-get-user user) away)
296 (format "%10s = %s (%s) [%s, %s, %s hops, on %s]\n"
298 (if (memq flag '(?@ ?+))
299 (char-to-string flag)
303 (riece-strip-user-at-host
304 (concat user "@" host))
314 (if (and riece-channel-buffer-mode
315 (not (eq buffer riece-channel-buffer)))
316 (list riece-dialogue-buffer riece-others-buffer)
317 riece-dialogue-buffer)
319 (riece-concat-server-name
320 (format "%s %10s = %s (%s) [%s, %s, %s hops, on %s]\n"
323 (if (memq flag '(?@ ?+))
324 (char-to-string flag)
328 (riece-strip-user-at-host
329 (concat user "@" host))
339 (riece-redisplay-buffers))))
341 (defun riece-handle-315-message (prefix number name string))
342 (defun riece-handle-318-message (prefix number name string))
343 (defun riece-handle-323-message (prefix number name string))
344 (defun riece-handle-366-message (prefix number name string))
348 ;;; riece-300.el ends here