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.
29 (require 'riece-filter) ;riece-default-handle-message
32 (autoload 'riece-default-handle-numeric-reply "riece-filter"))
33 (defun riece-handle-default-300-message (prefix number name string)
34 (riece-default-handle-numeric-reply
35 riece-info-prefix prefix number name string))
37 (defun riece-handle-302-message (prefix number name string)
38 "RPL_USERHOST \":*1<reply> *( \" \" <reply> )\""
39 (let ((replies (split-string (substring string 1) " ")))
42 (concat "^\\(" riece-user-regexp
43 "\\)\\(\\*\\)?=\\([-+]\\)\\([^ ]+\\)")
45 (let ((user (match-string 1 (car replies)))
46 (away (eq (match-string 3 (car replies)) ?-))
47 (user-at-host (match-string 4 (car replies)))
48 (operator (not (null (match-beginning 2)))))
49 (riece-user-toggle-away user away)
50 (riece-user-toggle-operator user operator)
52 (list riece-dialogue-buffer riece-others-buffer)
54 (riece-concat-server-name
55 (format "%s is (%s) [%s, %s]"
56 (riece-format-identity
57 (riece-make-identity user riece-server-name)
59 (riece-strip-user-at-host user-at-host)
67 (setq replies (cdr replies)))
68 (riece-update-status-indicators)
69 (force-mode-line-update t)))
71 (defun riece-handle-303-message (prefix number name string)
73 (list riece-dialogue-buffer riece-others-buffer)
75 (riece-concat-server-name
79 (riece-format-identity
80 (riece-make-identity user riece-server-name)
82 (split-string (substring string 1) " ")
86 (defun riece-handle-301-message (prefix number name string)
87 (if (string-match (concat "^\\(" riece-user-regexp "\\) :") string)
88 (let ((user (match-string 1 string))
89 (message (substring string (match-end 0))))
90 (riece-user-toggle-away user t)
92 (list riece-dialogue-buffer riece-others-buffer)
94 (riece-concat-server-name
95 (format "%s is away: %s"
96 (riece-format-identity
97 (riece-make-identity user riece-server-name)
101 (riece-update-status-indicators)
102 (force-mode-line-update t))
104 (defun riece-handle-305-message (prefix number name string)
105 (riece-user-toggle-away riece-real-nickname nil)
106 (riece-update-status-indicators)
107 (force-mode-line-update t))
109 (defun riece-handle-306-message (prefix number name string)
110 (riece-user-toggle-away riece-real-nickname t)
111 (riece-update-status-indicators)
112 (force-mode-line-update t))
114 (defun riece-handle-311-message (prefix number name string)
116 (concat "^\\(" riece-user-regexp
117 "\\) \\([^ ]+\\) \\([^ ]+\\) \\* :")
119 (let ((user (match-string 1 string))
120 (name (substring string (match-end 0)))
121 (user-at-host (concat (match-string 2 string) "@"
122 (match-string 3 string))))
124 (list riece-dialogue-buffer riece-others-buffer)
126 (riece-concat-server-name
127 (format "%s is %s (%s)"
128 (riece-format-identity
129 (riece-make-identity user riece-server-name)
135 (defun riece-handle-312-message (prefix number name string)
137 (concat "^\\(" riece-user-regexp "\\) \\([^ ]+\\) :")
140 (list riece-dialogue-buffer riece-others-buffer)
142 (riece-concat-server-name
143 (format "on via server %s: %s"
144 riece-real-server-name
145 (substring string (match-end 0))))
148 (defun riece-handle-313-message (prefix number name string)
149 (if (string-match (concat "^" riece-user-regexp) string)
150 (let ((user (match-string 0 string)))
152 (list riece-dialogue-buffer riece-others-buffer)
154 (riece-concat-server-name
155 (concat (riece-format-identity
156 (riece-make-identity user riece-server-name)
158 " is an IRC operator"))
161 (defun riece-handle-317-message (prefix number name string)
163 (concat "^\\(" riece-user-regexp "\\) \\([0-9]+\\) [^:]*:seconds")
165 (let ((user (match-string 1 string))
166 (idle (match-string 2 string)))
168 (list riece-dialogue-buffer riece-others-buffer)
170 (riece-concat-server-name
171 (format "%s is %s seconds idle"
172 (riece-format-identity
173 (riece-make-identity user riece-server-name)
178 (defun riece-handle-319-message (prefix number name string)
179 (if (string-match (concat "^\\(" riece-user-regexp "\\) :") string)
180 (let ((user (match-string 1 string))
185 (concat "^\\([@+]?\\)\\(" riece-channel-regexp "\\)")
188 (match-string 1 channel)
189 (riece-format-identity
190 (riece-make-identity (match-string 2 channel)
193 (split-string (substring string (match-end 0)) " ")
196 (list riece-dialogue-buffer riece-others-buffer)
198 (riece-concat-server-name
200 (riece-format-identity
201 (riece-make-identity user riece-server-name)
206 (defun riece-handle-351-message (prefix number name string)
207 (if (string-match "\\([^ ]+\\.[^ ]+\\) \\([^ ]+\\) :" string)
209 (list riece-dialogue-buffer riece-others-buffer)
211 (riece-concat-server-name
212 (format "%s is running on %s: %s"
213 (match-string 1 string)
214 (match-string 2 string)
215 (substring string (match-end 0))))
218 (defun riece-handle-353-message (prefix number name string)
219 "RPL_NAMREPLY \"<channel> :[[@|+]<nick> [[@|+]<nick> [...]]]\"."
220 (if (string-match "^[=\*@] *\\([^ ]+\\) +:" string)
221 (let ((channel (match-string 1 string))
223 (setq string (substring string (match-end 0)))
224 (if (string-match " *$" string)
225 (setq string (substring string 0 (match-beginning 0))))
226 (setq users (split-string string))
228 (if (eq (aref (car users) 0) ?@)
230 (riece-naming-assert-join (substring (car users) 1) channel)
231 (riece-channel-toggle-operator
232 channel (substring (car users) 1) t))
233 (if (eq (aref (car users) 0) ?+)
235 (riece-naming-assert-join (substring (car users) 1) channel)
236 (riece-channel-toggle-speaker
237 channel (substring (car users) 1) t))
238 (riece-naming-assert-join (car users) channel)))
239 (setq users (cdr users)))
240 (riece-redisplay-buffers))))
242 (defun riece-handle-322-message (prefix number name string)
243 (if (string-match "^\\([^ ]+\\) \\([0-9]+\\) :" string)
244 (let* ((channel (match-string 1 string))
245 (visible (match-string 2 string))
246 (topic (substring string (match-end 0))))
247 (riece-channel-set-topic (riece-get-channel channel) topic)
248 (let* ((channel-identity (riece-make-identity channel
250 (buffer (riece-channel-buffer channel-identity)))
251 (riece-insert-info buffer (concat visible " users, topic: "
254 (if (and riece-channel-buffer-mode
255 (not (eq buffer riece-channel-buffer)))
256 (list riece-dialogue-buffer riece-others-buffer)
257 riece-dialogue-buffer)
259 (riece-concat-server-name
260 (format "%s: %s users, topic: %s"
261 (riece-format-identity channel-identity t) visible topic))
264 (defun riece-handle-324-message (prefix number name string)
265 (if (string-match "^\\([^ ]+\\) \\([^ ]+\\) " string)
266 (let* ((channel (match-string 1 string))
267 (mode-string (substring string (match-beginning 2)))
268 (modes (string-to-list (match-string 2 string)))
269 (toggle (car modes)))
270 (setq modes (cdr modes))
272 (riece-channel-toggle-mode channel (car modes) (eq toggle ?+))
273 (setq modes (cdr modes)))
274 (let* ((channel-identity (riece-make-identity channel
276 (buffer (riece-channel-buffer channel-identity)))
277 (riece-insert-info buffer (concat "Mode: " mode-string "\n"))
279 (if (and riece-channel-buffer-mode
280 (not (eq buffer riece-channel-buffer)))
281 (list riece-dialogue-buffer riece-others-buffer)
282 riece-dialogue-buffer)
284 (riece-concat-server-name
285 (format "Mode for %s: %s"
286 (riece-format-identity channel-identity t)
289 (riece-update-channel-indicator)
290 (force-mode-line-update t))))
292 (defun riece-handle-set-topic (prefix number name string remove)
293 (if (string-match "^\\([^ ]+\\) :" string)
294 (let* ((channel (match-string 1 string))
295 (message (substring string (match-end 0)))
296 (channel-identity (riece-make-identity channel riece-server-name))
297 (buffer (riece-channel-buffer channel-identity)))
299 (riece-channel-set-topic (riece-get-channel channel) nil)
300 (riece-channel-set-topic (riece-get-channel channel) message)
301 (riece-insert-info buffer (concat "Topic: " message "\n"))
303 (if (and riece-channel-buffer-mode
304 (not (eq buffer riece-channel-buffer)))
305 (list riece-dialogue-buffer riece-others-buffer)
306 riece-dialogue-buffer)
308 (riece-concat-server-name
309 (format "Topic for %s: %s"
310 (riece-format-identity channel-identity t)
313 (riece-update-channel-indicator)))))
315 (defun riece-handle-331-message (prefix number name string)
316 (riece-handle-set-topic prefix number name string t))
318 (defun riece-handle-332-message (prefix number name string)
319 (riece-handle-set-topic prefix number name string nil))
321 (defun riece-handle-341-message (prefix number name string)
322 (if (string-match "^\\([^ ]+\\) " string)
323 (let* ((channel (match-string 1 string))
324 (user (substring string (match-end 0)))
325 (channel-identity (riece-make-identity channel riece-server-name))
326 (buffer (riece-channel-buffer channel-identity)))
327 (riece-insert-info buffer (concat "Inviting " user "\n"))
329 (if (and riece-channel-buffer-mode
330 (not (eq buffer riece-channel-buffer)))
331 (list riece-dialogue-buffer riece-others-buffer)
332 riece-dialogue-buffer)
334 (riece-concat-server-name
335 (format "Inviting %s to %s" user
336 (riece-format-identity channel-identity t)))
339 (defun riece-handle-352-message (prefix number name string)
340 (if (string-match "^\\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([HG]\\)\\(\\*\\)?\\([@+]\\)? :\\([0-9]+\\) " string)
341 (let* ((channel (match-string 1 string))
342 (user (match-string 2 string))
343 (host (match-string 3 string))
344 (server (match-string 4 string))
345 (nick (match-string 5 string))
346 (away (equal (match-string 6 string) "G"))
347 (operator (not (null (match-beginning 7))))
348 (flag (match-string 8 string))
349 (hops (match-string 9 string))
350 (name (substring string (match-end 0)))
351 (buffer (riece-channel-buffer (riece-make-identity
352 channel riece-server-name)))
353 (info (format "%10s = %s (%s) [%s, %s, %s hops, on %s]"
355 (if (memq flag '(?@ ?+))
356 (char-to-string flag)
358 (riece-format-identity
359 (riece-make-identity nick riece-server-name)
362 (riece-strip-user-at-host
363 (concat user "@" host))
372 (riece-naming-assert-join nick channel)
373 (riece-user-toggle-away user away)
374 (riece-user-toggle-operator user operator)
375 (riece-insert-info buffer (concat info "\n"))
377 (if (and riece-channel-buffer-mode
378 (not (eq buffer riece-channel-buffer)))
379 (list riece-dialogue-buffer riece-others-buffer)
380 riece-dialogue-buffer)
382 (riece-concat-server-name
384 (riece-format-identity
385 (riece-make-identity channel riece-server-name)
390 (riece-redisplay-buffers))))
392 (defun riece-handle-315-message (prefix number name string))
393 (defun riece-handle-318-message (prefix number name string))
394 (defun riece-handle-323-message (prefix number name string))
395 (defun riece-handle-366-message (prefix number name string))
399 ;;; riece-300.el ends here