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 (operator (not (null (match-beginning 2))))
47 (away (eq (match-string 3 (car replies)) ?-))
48 (user-at-host (match-string 4 (car replies)))
51 (setq status (cons "away" status)))
53 (setq status (cons "operator" status)))
54 (riece-user-toggle-away user away)
55 (riece-emit-signal 'user-away-changed
56 (riece-make-identity user riece-server-name)
58 (riece-user-toggle-operator user operator)
59 (riece-emit-signal 'user-operator-changed
60 (riece-make-identity user riece-server-name)
63 (list riece-dialogue-buffer riece-others-buffer)
65 (riece-concat-server-name
66 (riece-concat-user-status
69 (riece-format-identity
70 (riece-make-identity user riece-server-name)
72 (riece-strip-user-at-host user-at-host))))
74 (setq replies (cdr replies)))))
76 (defun riece-handle-303-message (prefix number name string)
78 (list riece-dialogue-buffer riece-others-buffer)
80 (riece-concat-server-name
84 (riece-format-identity
85 (riece-make-identity user riece-server-name)
87 (split-string (substring string 1) " ")
91 (defun riece-handle-301-message (prefix number name string)
92 (if (string-match (concat "^\\(" riece-user-regexp "\\) :") string)
93 (let ((user (match-string 1 string))
94 (message (substring string (match-end 0))))
95 (riece-user-toggle-away user t)
96 (riece-emit-signal 'user-away-changed
97 (riece-make-identity user riece-server-name)
100 (list riece-dialogue-buffer riece-others-buffer)
102 (riece-concat-server-name
103 (format "%s is away: %s"
104 (riece-format-identity
105 (riece-make-identity user riece-server-name)
110 (defun riece-handle-305-message (prefix number name string)
111 (riece-user-toggle-away riece-real-nickname nil)
112 (riece-emit-signal 'user-away-changed
113 (riece-make-identity riece-real-nickname
117 (defun riece-handle-306-message (prefix number name string)
118 (riece-user-toggle-away riece-real-nickname t)
119 (riece-emit-signal 'user-away-changed
120 (riece-make-identity riece-real-nickname
124 (defun riece-handle-311-message (prefix number name string)
126 (concat "^\\(" riece-user-regexp
127 "\\) \\([^ ]+\\) \\([^ ]+\\) \\* :")
129 (let ((user (match-string 1 string))
130 (name (substring string (match-end 0)))
131 (user-at-host (concat (match-string 2 string) "@"
132 (match-string 3 string))))
134 (list riece-dialogue-buffer riece-others-buffer)
136 (riece-concat-server-name
137 (format "%s is %s (%s)"
138 (riece-format-identity
139 (riece-make-identity user riece-server-name)
145 (defun riece-handle-312-message (prefix number name string)
147 (concat "^\\(" riece-user-regexp "\\) \\([^ ]+\\) :")
150 (list riece-dialogue-buffer riece-others-buffer)
152 (riece-concat-server-name
153 (format "on via server %s: %s"
154 riece-real-server-name
155 (substring string (match-end 0))))
158 (defun riece-handle-313-message (prefix number name string)
159 (if (string-match (concat "^" riece-user-regexp) string)
160 (let ((user (match-string 0 string)))
162 (list riece-dialogue-buffer riece-others-buffer)
164 (riece-concat-server-name
165 (concat (riece-format-identity
166 (riece-make-identity user riece-server-name)
168 " is an IRC operator"))
171 (defun riece-handle-317-message (prefix number name string)
173 (concat "^\\(" riece-user-regexp "\\) \\([0-9]+\\) [^:]*:seconds")
175 (let ((user (match-string 1 string))
176 (idle (match-string 2 string)))
178 (list riece-dialogue-buffer riece-others-buffer)
180 (riece-concat-server-name
181 (format "%s is %s seconds idle"
182 (riece-format-identity
183 (riece-make-identity user riece-server-name)
188 (defun riece-handle-319-message (prefix number name string)
189 (if (string-match (concat "^\\(" riece-user-regexp "\\) :") string)
190 (let ((user (match-string 1 string))
195 (concat "^\\([@+]?\\)\\(" riece-channel-regexp "\\)")
198 (match-string 1 channel)
199 (riece-format-identity
200 (riece-make-identity (match-string 2 channel)
203 (split-string (substring string (match-end 0)) " ")
206 (list riece-dialogue-buffer riece-others-buffer)
208 (riece-concat-server-name
210 (riece-format-identity
211 (riece-make-identity user riece-server-name)
216 (defun riece-handle-351-message (prefix number name string)
217 (if (string-match "\\([^ ]+\\.[^ ]+\\) \\([^ ]+\\) :" string)
219 (list riece-dialogue-buffer riece-others-buffer)
221 (riece-concat-server-name
222 (format "%s is running on %s: %s"
223 (match-string 1 string)
224 (match-string 2 string)
225 (substring string (match-end 0))))
228 (defun riece-handle-353-message (prefix number name string)
229 "RPL_NAMREPLY \"<channel> :[[@|+]<nick> [[@|+]<nick> [...]]]\"."
230 (if (string-match "^[=\*@] *\\([^ ]+\\) +:" string)
231 (let ((channel (match-string 1 string))
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 users (cons user users)))
251 (riece-naming-assert-channel-users (nreverse users) channel)
252 (let* ((channel-identity (riece-make-identity channel
254 (buffer (riece-channel-buffer channel-identity)))
255 (riece-insert-info buffer (concat "Users: " string "\n"))
257 (if (and riece-channel-buffer-mode
258 (not (eq buffer riece-channel-buffer)))
259 (list riece-dialogue-buffer riece-others-buffer)
260 riece-dialogue-buffer)
262 (riece-concat-server-name
263 (format "Users on %s: %s"
264 (riece-format-identity channel-identity t) string))
267 (defun riece-handle-322-message (prefix number name string)
268 (if (string-match "^\\([^ ]+\\) \\([0-9]+\\) :" string)
269 (let* ((channel (match-string 1 string))
270 (visible (match-string 2 string))
271 (topic (substring string (match-end 0))))
272 (riece-channel-set-topic (riece-get-channel channel) topic)
273 (let* ((channel-identity (riece-make-identity channel
275 (buffer (riece-channel-buffer channel-identity)))
276 (riece-insert-info buffer (concat visible " users, topic: "
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 "%s: %s users, topic: %s"
286 (riece-format-identity channel-identity t) visible topic))
289 (defun riece-handle-324-message (prefix number name string)
290 (if (string-match "^\\([^ ]+\\) \\([^ ]+\\) " string)
291 (let* ((channel (match-string 1 string))
292 (mode-string (substring string (match-beginning 2)))
293 (modes (string-to-list (match-string 2 string)))
294 (toggle (car modes)))
295 (setq modes (cdr modes))
297 (riece-channel-toggle-mode channel (car modes) (eq toggle ?+))
298 (setq modes (cdr modes)))
299 (riece-emit-signal 'channel-modes-changed
300 (riece-make-identity channel riece-server-name)
301 modes (eq toggle ?+))
302 (let* ((channel-identity (riece-make-identity channel
304 (buffer (riece-channel-buffer channel-identity)))
305 (riece-insert-info buffer (concat "Mode: " mode-string "\n"))
307 (if (and riece-channel-buffer-mode
308 (not (eq buffer riece-channel-buffer)))
309 (list riece-dialogue-buffer riece-others-buffer)
310 riece-dialogue-buffer)
312 (riece-concat-server-name
313 (format "Mode for %s: %s"
314 (riece-format-identity channel-identity t)
318 (defun riece-handle-set-topic (prefix number name string remove)
319 (if (string-match "^\\([^ ]+\\) :" string)
320 (let* ((channel (match-string 1 string))
321 (message (substring string (match-end 0)))
322 (channel-identity (riece-make-identity channel riece-server-name))
323 (buffer (riece-channel-buffer channel-identity)))
325 (riece-channel-set-topic (riece-get-channel channel) nil)
326 (riece-channel-set-topic (riece-get-channel channel) message)
327 (riece-insert-info buffer (concat "Topic: " message "\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 "Topic for %s: %s"
336 (riece-format-identity channel-identity t)
339 (riece-emit-signal 'channel-topic-changed
344 (defun riece-handle-331-message (prefix number name string)
345 (riece-handle-set-topic prefix number name string t))
347 (defun riece-handle-332-message (prefix number name string)
348 (riece-handle-set-topic prefix number name string nil))
350 (defun riece-handle-341-message (prefix number name string)
351 (if (string-match "^\\([^ ]+\\) " string)
352 (let* ((channel (match-string 1 string))
353 (user (substring string (match-end 0)))
354 (channel-identity (riece-make-identity channel riece-server-name))
355 (buffer (riece-channel-buffer channel-identity)))
356 (riece-insert-info buffer (concat "Inviting " user "\n"))
358 (if (and riece-channel-buffer-mode
359 (not (eq buffer riece-channel-buffer)))
360 (list riece-dialogue-buffer riece-others-buffer)
361 riece-dialogue-buffer)
363 (riece-concat-server-name
364 (format "Inviting %s to %s" user
365 (riece-format-identity channel-identity t)))
368 (defun riece-handle-352-message (prefix number name string)
369 (if (string-match "^\\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([HG]\\)\\(\\*\\)?\\([@+]\\)? :\\([0-9]+\\) " string)
370 (let* ((channel (match-string 1 string))
371 (user (match-string 2 string))
372 (host (match-string 3 string))
373 (server (match-string 4 string))
374 (nick (match-string 5 string))
375 (away (equal (match-string 6 string) "G"))
376 (operator (not (null (match-beginning 7))))
377 (flag (match-string 8 string))
378 (hops (match-string 9 string))
379 (name (substring string (match-end 0)))
380 (buffer (riece-channel-buffer (riece-make-identity
381 channel riece-server-name)))
382 (info (format "%10s = %s (%s)"
384 (if (memq flag '(?@ ?+))
385 (char-to-string flag)
387 (riece-format-identity
388 (riece-make-identity nick riece-server-name)
391 (riece-strip-user-at-host
392 (concat user "@" host))))
395 (setq status (cons "operator" status)))
397 (setq status (cons "away" status)))
398 (unless (equal hops "0")
399 (setq status (cons (concat "on " server)
400 (cons (concat hops " hops")
403 (setq status (nreverse status)))
404 (riece-naming-assert-join nick channel)
405 (riece-user-toggle-away user away)
406 (riece-emit-signal 'user-away-changed
407 (riece-make-identity user riece-server-name)
409 (riece-user-toggle-operator user operator)
410 (riece-emit-signal 'user-operator-changed
411 (riece-make-identity user riece-server-name)
413 (riece-insert-info buffer (concat (riece-concat-user-status
417 (if (and riece-channel-buffer-mode
418 (not (eq buffer riece-channel-buffer)))
419 (list riece-dialogue-buffer riece-others-buffer)
420 riece-dialogue-buffer)
422 (riece-concat-server-name
423 (riece-concat-user-status
426 (riece-format-identity
427 (riece-make-identity channel riece-server-name)
433 (defun riece-handle-315-message (prefix number name string))
434 (defun riece-handle-318-message (prefix number name string))
435 (defun riece-handle-323-message (prefix number name string))
436 (defun riece-handle-366-message (prefix number name string))
440 ;;; riece-300.el ends here