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.
30 (autoload 'riece-default-handle-numeric-reply "riece-handle"))
31 (defun riece-handle-default-300-message (prefix number name string)
32 (riece-default-handle-numeric-reply
33 riece-info-prefix prefix number name string))
35 (defun riece-handle-302-message (prefix number name string)
36 "RPL_USERHOST \":*1<reply> *( \" \" <reply> )\""
37 (let ((replies (split-string (substring string 1) " ")))
40 (concat "^\\(" riece-user-regexp
41 "\\)\\(\\*\\)?=\\([-+]\\)\\([^ ]+\\)")
43 (let ((user (match-string 1 (car replies)))
44 (operator (not (null (match-beginning 2))))
45 (away (eq (match-string 3 (car replies)) ?-))
46 (user-at-host (match-string 4 (car replies)))
49 (setq status (cons "away" status)))
51 (setq status (cons "operator" status)))
52 (riece-user-toggle-away user away)
53 (riece-emit-signal 'user-away-changed
54 (riece-make-identity user riece-server-name)
56 (riece-user-toggle-operator user operator)
57 (riece-emit-signal 'user-operator-changed
58 (riece-make-identity user riece-server-name)
61 (list riece-dialogue-buffer riece-others-buffer)
63 (riece-concat-server-name
64 (riece-concat-user-status
67 (riece-format-identity
68 (riece-make-identity user riece-server-name)
70 (riece-strip-user-at-host user-at-host))))
72 (setq replies (cdr replies)))))
74 (defun riece-handle-303-message (prefix number name string)
76 (list riece-dialogue-buffer riece-others-buffer)
78 (riece-concat-server-name
82 (riece-format-identity
83 (riece-make-identity user riece-server-name)
85 (split-string (substring string 1) " ")
89 (defun riece-handle-301-message (prefix number name string)
90 (if (string-match (concat "^\\(" riece-user-regexp "\\) :") string)
91 (let ((user (match-string 1 string))
92 (message (substring string (match-end 0))))
93 (riece-user-toggle-away user t)
94 (riece-emit-signal 'user-away-changed
95 (riece-make-identity user riece-server-name)
98 (list riece-dialogue-buffer riece-others-buffer)
100 (riece-concat-server-name
101 (format "%s is away: %s"
102 (riece-format-identity
103 (riece-make-identity user riece-server-name)
108 (defun riece-handle-305-message (prefix number name string)
109 (riece-user-toggle-away riece-real-nickname nil)
110 (riece-emit-signal 'user-away-changed
111 (riece-make-identity riece-real-nickname
115 (defun riece-handle-306-message (prefix number name string)
116 (riece-user-toggle-away riece-real-nickname t)
117 (riece-emit-signal 'user-away-changed
118 (riece-make-identity riece-real-nickname
122 (defun riece-handle-311-message (prefix number name string)
124 (concat "^\\(" riece-user-regexp
125 "\\) \\([^ ]+\\) \\([^ ]+\\) \\* :")
127 (let ((user (match-string 1 string))
128 (name (substring string (match-end 0)))
129 (user-at-host (concat (match-string 2 string) "@"
130 (match-string 3 string))))
132 (list riece-dialogue-buffer riece-others-buffer)
134 (riece-concat-server-name
135 (format "%s is %s (%s)"
136 (riece-format-identity
137 (riece-make-identity user riece-server-name)
143 (defun riece-handle-312-message (prefix number name string)
145 (concat "^\\(" riece-user-regexp "\\) \\([^ ]+\\) :")
148 (list riece-dialogue-buffer riece-others-buffer)
150 (riece-concat-server-name
151 (format "on via server %s: %s"
152 (match-string 2 string)
153 (substring string (match-end 0))))
156 (defun riece-handle-313-message (prefix number name string)
157 (if (string-match (concat "^" riece-user-regexp) string)
158 (let ((user (match-string 0 string)))
160 (list riece-dialogue-buffer riece-others-buffer)
162 (riece-concat-server-name
163 (concat (riece-format-identity
164 (riece-make-identity user riece-server-name)
166 " is an IRC operator"))
169 (defun riece-handle-317-message (prefix number name string)
171 (concat "^\\(" riece-user-regexp "\\) \\([0-9]+\\) [^:]*:seconds")
173 (let ((user (match-string 1 string))
174 (idle (match-string 2 string)))
176 (list riece-dialogue-buffer riece-others-buffer)
178 (riece-concat-server-name
179 (format "%s is %s seconds idle"
180 (riece-format-identity
181 (riece-make-identity user riece-server-name)
186 (defun riece-handle-319-message (prefix number name string)
187 (if (string-match (concat "^\\(" riece-user-regexp "\\) :") string)
188 (let ((user (match-string 1 string))
193 (concat "^\\([@+]?\\)\\(" riece-channel-regexp "\\)")
196 (match-string 1 channel)
197 (riece-format-identity
198 (riece-make-identity (match-string 2 channel)
201 (split-string (substring string (match-end 0)) " ")
204 (list riece-dialogue-buffer riece-others-buffer)
206 (riece-concat-server-name
208 (riece-format-identity
209 (riece-make-identity user riece-server-name)
214 (defun riece-handle-351-message (prefix number name string)
215 (if (string-match "\\([^ ]+\\.[^ ]+\\) \\([^ ]+\\) :" string)
217 (list riece-dialogue-buffer riece-others-buffer)
219 (riece-concat-server-name
220 (format "%s is running on %s: %s"
221 (match-string 1 string)
222 (match-string 2 string)
223 (substring string (match-end 0))))
226 (defvar riece-353-users nil)
227 (defun riece-handle-353-message (prefix number name string)
228 "RPL_NAMREPLY \"[=\*@] <channel> :[[@|+]<nick> [[@|+]<nick> [...]]]\"."
229 (if (string-match "^[=\*@] *\\([^ ]+\\) +:" string)
230 (let ((channel (match-string 1 string))
233 (make-local-variable 'riece-353-users)
234 (setq string (substring string (match-end 0)))
236 (concat "\\([@+]\\)?\\(" riece-user-regexp "\\) *")
238 (put-text-property (match-beginning 2) (match-end 2)
240 (riece-make-identity (match-string 2 string)
243 (setq start (match-end 0)
244 user (if (match-beginning 1)
245 (if (eq (aref string (match-beginning 1)) ?@)
246 (list (match-string 2 string) ?o)
247 (if (eq (aref string (match-beginning 1)) ?+)
248 (list (match-string 2 string) ?v)))
249 (list (match-string 2 string)))
250 riece-353-users (cons user riece-353-users)))
251 (let* ((channel-identity (riece-make-identity channel
253 (buffer (riece-channel-buffer channel-identity)))
254 (riece-insert-info buffer (concat "Users: " string "\n"))
256 (if (and riece-channel-buffer-mode
257 (not (eq buffer riece-channel-buffer)))
258 (list riece-dialogue-buffer riece-others-buffer)
259 riece-dialogue-buffer)
261 (riece-concat-server-name
262 (format "Users on %s: %s"
263 (riece-format-identity channel-identity t) string))
266 (defun riece-handle-322-message (prefix number name string)
267 (if (string-match "^\\([^ ]+\\) \\([0-9]+\\) :" string)
268 (let* ((channel (match-string 1 string))
269 (visible (match-string 2 string))
270 (topic (substring string (match-end 0))))
271 (riece-channel-set-topic (riece-get-channel channel) topic)
272 (let* ((channel-identity (riece-make-identity channel
274 (buffer (riece-channel-buffer channel-identity)))
275 (riece-insert-info buffer (concat visible " users, topic: "
278 (if (and riece-channel-buffer-mode
279 (not (eq buffer riece-channel-buffer)))
280 (list riece-dialogue-buffer riece-others-buffer)
281 riece-dialogue-buffer)
283 (riece-concat-server-name
284 (format "%s: %s users, topic: %s"
285 (riece-format-identity channel-identity t) visible topic))
288 (defun riece-handle-324-message (prefix number name string)
289 (if (string-match "^\\([^ ]+\\) \\([^ ]+\\) " string)
290 (let* ((channel (match-string 1 string))
291 (mode-string (match-string 2 string)))
292 (riece-naming-assert-channel-modes channel
293 (riece-parse-modes mode-string))
294 (let* ((channel-identity (riece-make-identity channel
296 (buffer (riece-channel-buffer channel-identity)))
297 (riece-insert-info buffer (concat "Mode: " mode-string "\n"))
299 (if (and riece-channel-buffer-mode
300 (not (eq buffer riece-channel-buffer)))
301 (list riece-dialogue-buffer riece-others-buffer)
302 riece-dialogue-buffer)
304 (riece-concat-server-name
305 (format "Mode for %s: %s"
306 (riece-format-identity channel-identity t)
310 (defun riece-handle-set-topic (prefix number name string remove)
311 (if (string-match "^\\([^ ]+\\) :" string)
312 (let* ((channel (match-string 1 string))
313 (message (substring string (match-end 0)))
314 (channel-identity (riece-make-identity channel riece-server-name))
315 (buffer (riece-channel-buffer channel-identity)))
317 (riece-channel-set-topic (riece-get-channel channel) nil)
318 (riece-channel-set-topic (riece-get-channel channel) message)
319 (riece-insert-info buffer (concat "Topic: " message "\n"))
321 (if (and riece-channel-buffer-mode
322 (not (eq buffer riece-channel-buffer)))
323 (list riece-dialogue-buffer riece-others-buffer)
324 riece-dialogue-buffer)
326 (riece-concat-server-name
327 (format "Topic for %s: %s"
328 (riece-format-identity channel-identity t)
331 (riece-emit-signal 'channel-topic-changed
336 (defun riece-handle-331-message (prefix number name string)
337 (riece-handle-set-topic prefix number name string t))
339 (defun riece-handle-332-message (prefix number name string)
340 (riece-handle-set-topic prefix number name string nil))
342 (defun riece-handle-341-message (prefix number name string)
343 (if (string-match "^\\([^ ]+\\) " string)
344 (let* ((channel (match-string 1 string))
345 (user (substring string (match-end 0)))
346 (channel-identity (riece-make-identity channel riece-server-name))
347 (buffer (riece-channel-buffer channel-identity)))
348 (riece-insert-info buffer (concat "Inviting " user "\n"))
350 (if (and riece-channel-buffer-mode
351 (not (eq buffer riece-channel-buffer)))
352 (list riece-dialogue-buffer riece-others-buffer)
353 riece-dialogue-buffer)
355 (riece-concat-server-name
356 (format "Inviting %s to %s" user
357 (riece-format-identity channel-identity t)))
360 (defun riece-handle-352-message (prefix number name string)
361 (if (string-match "^\\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([HG]\\)\\(\\*\\)?\\([@+]\\)? :\\([0-9]+\\) " string)
362 (let* ((channel (match-string 1 string))
363 (user (match-string 2 string))
364 (host (match-string 3 string))
365 (server (match-string 4 string))
366 (nick (match-string 5 string))
367 (away (equal (match-string 6 string) "G"))
368 (operator (not (null (match-beginning 7))))
369 (flag (match-string 8 string))
370 (hops (match-string 9 string))
371 (name (substring string (match-end 0)))
372 (buffer (riece-channel-buffer (riece-make-identity
373 channel riece-server-name)))
374 (info (format "%10s = %s (%s)"
376 (if (memq flag '(?@ ?+))
377 (char-to-string flag)
379 (riece-format-identity
380 (riece-make-identity nick riece-server-name)
383 (riece-strip-user-at-host
384 (concat user "@" host))))
387 (setq status (cons "operator" status)))
389 (setq status (cons "away" status)))
390 (unless (equal hops "0")
391 (setq status (cons (concat "on " server)
392 (cons (concat hops " hops")
395 (setq status (nreverse status)))
396 (riece-naming-assert-join nick channel)
397 (riece-user-toggle-away user away)
398 (riece-emit-signal 'user-away-changed
399 (riece-make-identity user riece-server-name)
401 (riece-user-toggle-operator user operator)
402 (riece-emit-signal 'user-operator-changed
403 (riece-make-identity user riece-server-name)
405 (riece-insert-info buffer (concat (riece-concat-user-status
409 (if (and riece-channel-buffer-mode
410 (not (eq buffer riece-channel-buffer)))
411 (list riece-dialogue-buffer riece-others-buffer)
412 riece-dialogue-buffer)
414 (riece-concat-server-name
415 (riece-concat-user-status
418 (riece-format-identity
419 (riece-make-identity channel riece-server-name)
425 (defun riece-handle-315-message (prefix number name string))
426 (defun riece-handle-318-message (prefix number name string))
427 (defun riece-handle-323-message (prefix number name string))
429 (defun riece-handle-366-message (prefix number name string)
430 "RPL_ENDOFNAMES \"<channel> :End of NAMES list\""
431 (if (string-match "^\\([^ ]+\\) +:" string)
432 (let ((channel (match-string 1 string)))
433 (riece-naming-assert-channel-users (nreverse riece-353-users)
435 (setq riece-353-users nil))
439 ;;; riece-300.el ends here