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 (if (eq (aref string 0) ?:)
43 (concat "^\\(" riece-user-regexp
44 "\\)\\(\\*\\)?=\\([-+]\\)\\([^ ]+\\)")
46 (let ((user (match-string 1 (car replies)))
47 (operator (not (null (match-beginning 2))))
48 (away (eq (match-string 3 (car replies)) ?-))
49 (user-at-host (match-string 4 (car replies)))
52 (setq status (cons "away" status)))
54 (setq status (cons "operator" status)))
55 (riece-user-toggle-away user away)
56 (riece-emit-signal 'user-away-changed
57 (riece-make-identity user riece-server-name)
59 (riece-user-toggle-operator user operator)
60 (riece-emit-signal 'user-operator-changed
61 (riece-make-identity user riece-server-name)
64 (list riece-dialogue-buffer riece-others-buffer)
66 (riece-concat-server-name
67 (riece-concat-user-status
70 (riece-format-identity
71 (riece-make-identity user riece-server-name)
73 (riece-strip-user-at-host user-at-host))))
75 (setq replies (cdr replies)))))
77 (defun riece-handle-303-message (prefix number name string)
79 (list riece-dialogue-buffer riece-others-buffer)
81 (riece-concat-server-name
85 (riece-format-identity
86 (riece-make-identity user riece-server-name)
88 (split-string (if (eq (aref string 0) ?:)
95 (defun riece-handle-301-message (prefix number name string)
96 (if (string-match (concat "^\\(" riece-user-regexp "\\) :?") string)
97 (let ((user (match-string 1 string))
98 (message (substring string (match-end 0))))
99 (riece-user-toggle-away user t)
100 (riece-emit-signal 'user-away-changed
101 (riece-make-identity user riece-server-name)
104 (list riece-dialogue-buffer riece-others-buffer)
106 (riece-concat-server-name
107 (format "%s is away: %s"
108 (riece-format-identity
109 (riece-make-identity user riece-server-name)
114 (defun riece-handle-305-message (prefix number name string)
115 (riece-user-toggle-away riece-real-nickname nil)
116 (riece-emit-signal 'user-away-changed
117 (riece-make-identity riece-real-nickname
121 (defun riece-handle-306-message (prefix number name string)
122 (riece-user-toggle-away riece-real-nickname t)
123 (riece-emit-signal 'user-away-changed
124 (riece-make-identity riece-real-nickname
128 (defun riece-handle-311-message (prefix number name string)
130 (concat "^\\(" riece-user-regexp
131 "\\) \\([^ ]+\\) \\([^ ]+\\) \\* :?")
133 (let ((user (match-string 1 string))
134 (name (substring string (match-end 0)))
135 (user-at-host (concat (match-string 2 string) "@"
136 (match-string 3 string))))
138 (list riece-dialogue-buffer riece-others-buffer)
140 (riece-concat-server-name
141 (format "%s is %s (%s)"
142 (riece-format-identity
143 (riece-make-identity user riece-server-name)
149 (defun riece-handle-312-message (prefix number name string)
151 (concat "^\\(" riece-user-regexp "\\) \\([^ ]+\\) :?")
154 (list riece-dialogue-buffer riece-others-buffer)
156 (riece-concat-server-name
157 (format "on via server %s: %s"
158 (match-string 2 string)
159 (substring string (match-end 0))))
162 (defun riece-handle-313-message (prefix number name string)
163 (if (string-match (concat "^" riece-user-regexp) string)
164 (let ((user (match-string 0 string)))
166 (list riece-dialogue-buffer riece-others-buffer)
168 (riece-concat-server-name
169 (concat (riece-format-identity
170 (riece-make-identity user riece-server-name)
172 " is an IRC operator"))
175 (defun riece-handle-317-message (prefix number name string)
177 (concat "^\\(" riece-user-regexp "\\) \\([0-9]+\\) ")
179 (let* ((user (match-string 1 string))
180 (seconds (string-to-number (match-string 2 string)))
181 (units (list (cons (/ seconds 60 60 24) "days")
182 (cons (mod (/ seconds 60 60) 24) "hours")
183 (cons (mod (/ seconds 60) 60) "minutes")
184 (cons (mod seconds 60) "seconds"))))
186 (list riece-dialogue-buffer riece-others-buffer)
188 (riece-concat-server-name
189 (format "%s is %s idle"
190 (riece-format-identity
191 (riece-make-identity user riece-server-name)
193 (mapconcat #'identity
197 (if (/= (car unit) 0)
199 (car unit) (cdr unit))))
204 (defun riece-handle-319-message (prefix number name string)
205 (if (string-match (concat "^\\(" riece-user-regexp "\\) :?") string)
206 (let ((user (match-string 1 string))
211 (concat "^\\([@+]?\\)\\(" riece-channel-regexp "\\)")
214 (match-string 1 channel)
215 (riece-format-identity
216 (riece-make-identity (match-string 2 channel)
219 (split-string (substring string (match-end 0)) " ")
222 (list riece-dialogue-buffer riece-others-buffer)
224 (riece-concat-server-name
226 (riece-format-identity
227 (riece-make-identity user riece-server-name)
232 (defun riece-handle-351-message (prefix number name string)
233 (if (string-match "\\([^ ]+\\.[^ ]+\\) \\([^ ]+\\) :?" string)
235 (list riece-dialogue-buffer riece-others-buffer)
237 (riece-concat-server-name
238 (format "%s is running on %s: %s"
239 (match-string 1 string)
240 (match-string 2 string)
241 (substring string (match-end 0))))
244 (defvar riece-353-message-alist nil)
245 (defun riece-handle-353-message (prefix number name string)
246 "RPL_NAMREPLY \"[=\*@] <channel> :[[@|+]<nick> [[@|+]<nick> [...]]]\"."
247 (make-local-variable 'riece-353-message-alist)
248 (if (string-match "^[=\*@] *\\([^ ]+\\) +:?" string)
249 (let* ((channel (match-string 1 string))
250 (entry (riece-identity-assoc channel riece-353-message-alist t)))
254 (substring string (match-end 0))))
255 (setq riece-353-message-alist
256 (cons (cons channel (substring string (match-end 0)))
257 riece-353-message-alist))))))
259 (defun riece-handle-322-message (prefix number name string)
260 (if (string-match "^\\([^ ]+\\) \\([0-9]+\\) :?" string)
261 (let* ((channel (match-string 1 string))
262 (visible (match-string 2 string))
263 (topic (substring string (match-end 0))))
264 (riece-channel-set-topic (riece-get-channel channel) topic)
265 (let* ((channel-identity (riece-make-identity channel
267 (buffer (riece-channel-buffer channel-identity)))
268 (riece-insert-info buffer (concat visible " users, topic: "
271 (if (and riece-channel-buffer-mode
272 (not (eq buffer riece-channel-buffer)))
273 (list riece-dialogue-buffer riece-others-buffer)
274 riece-dialogue-buffer)
276 (riece-concat-server-name
277 (format "%s: %s users, topic: %s"
278 (riece-format-identity channel-identity t) visible topic))
281 (defun riece-handle-324-message (prefix number name string)
282 (if (string-match "^\\([^ ]+\\) \\([^ ]+\\) " string)
283 (let* ((channel (match-string 1 string))
284 (mode-string (match-string 2 string)))
285 (riece-naming-assert-channel-modes channel
286 (riece-parse-modes mode-string))
287 (let* ((channel-identity (riece-make-identity channel
289 (buffer (riece-channel-buffer channel-identity)))
290 (riece-insert-info buffer (concat "Mode: " mode-string "\n"))
292 (if (and riece-channel-buffer-mode
293 (not (eq buffer riece-channel-buffer)))
294 (list riece-dialogue-buffer riece-others-buffer)
295 riece-dialogue-buffer)
297 (riece-concat-server-name
298 (format "Mode for %s: %s"
299 (riece-format-identity channel-identity t)
303 (defun riece-handle-set-topic (prefix number name string remove)
304 (if (string-match "^\\([^ ]+\\) :?" string)
305 (let* ((channel (match-string 1 string))
306 (message (substring string (match-end 0)))
307 (channel-identity (riece-make-identity channel riece-server-name))
308 (buffer (riece-channel-buffer channel-identity)))
310 (riece-channel-set-topic (riece-get-channel channel) nil)
311 (riece-channel-set-topic (riece-get-channel channel) message)
312 (riece-insert-info buffer (concat "Topic: " message "\n"))
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 "Topic for %s: %s"
321 (riece-format-identity channel-identity t)
324 (riece-emit-signal 'channel-topic-changed
329 (defun riece-handle-331-message (prefix number name string)
330 (riece-handle-set-topic prefix number name string t))
332 (defun riece-handle-332-message (prefix number name string)
333 (riece-handle-set-topic prefix number name string nil))
335 (defun riece-handle-341-message (prefix number name string)
336 (if (string-match "^\\([^ ]+\\) " string)
337 (let* ((channel (match-string 1 string))
338 (user (substring string (match-end 0)))
339 (channel-identity (riece-make-identity channel riece-server-name))
340 (buffer (riece-channel-buffer channel-identity)))
341 (riece-insert-info buffer (concat "Inviting " user "\n"))
343 (if (and riece-channel-buffer-mode
344 (not (eq buffer riece-channel-buffer)))
345 (list riece-dialogue-buffer riece-others-buffer)
346 riece-dialogue-buffer)
348 (riece-concat-server-name
349 (format "Inviting %s to %s" user
350 (riece-format-identity channel-identity t)))
353 (defun riece-handle-352-message (prefix number name string)
354 (if (string-match "^\\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([HG]\\)\\(\\*\\)?\\([@+]\\)? :\\([0-9]+\\) " string)
355 (let* ((channel (match-string 1 string))
356 (user (match-string 2 string))
357 (host (match-string 3 string))
358 (server (match-string 4 string))
359 (nick (match-string 5 string))
360 (away (equal (match-string 6 string) "G"))
361 (operator (not (null (match-beginning 7))))
362 (flag (match-string 8 string))
363 (hops (match-string 9 string))
364 (name (substring string (match-end 0)))
365 (buffer (riece-channel-buffer (riece-make-identity
366 channel riece-server-name)))
367 (info (format "%10s = %s (%s)"
369 (if (memq flag '(?@ ?+))
370 (char-to-string flag)
372 (riece-format-identity
373 (riece-make-identity nick riece-server-name)
376 (riece-strip-user-at-host
377 (concat user "@" host))))
380 (setq status (cons "operator" status)))
382 (setq status (cons "away" status)))
383 (unless (equal hops "0")
384 (setq status (cons (concat "on " server)
385 (cons (concat hops " hops")
388 (setq status (nreverse status)))
389 (riece-naming-assert-join nick channel)
390 (riece-user-toggle-away user away)
391 (riece-emit-signal 'user-away-changed
392 (riece-make-identity user riece-server-name)
394 (riece-user-toggle-operator user operator)
395 (riece-emit-signal 'user-operator-changed
396 (riece-make-identity user riece-server-name)
398 (riece-insert-info buffer (concat (riece-concat-user-status
402 (if (and riece-channel-buffer-mode
403 (not (eq buffer riece-channel-buffer)))
404 (list riece-dialogue-buffer riece-others-buffer)
405 riece-dialogue-buffer)
407 (riece-concat-server-name
408 (riece-concat-user-status
411 (riece-format-identity
412 (riece-make-identity channel riece-server-name)
418 (defun riece-handle-315-message (prefix number name string))
419 (defun riece-handle-318-message (prefix number name string))
420 (defun riece-handle-323-message (prefix number name string))
422 (defun riece-handle-366-message (prefix number name string)
423 "RPL_ENDOFNAMES \"<channel> :End of NAMES list\""
424 (if (string-match "^\\([^ ]+\\) " string)
425 (let* ((channel (match-string 1 string))
426 (channel-identity (riece-make-identity channel
428 (buffer (riece-channel-buffer channel-identity))
429 (entry (riece-identity-assoc channel riece-353-message-alist t))
434 (setq riece-353-message-alist
435 (delq entry riece-353-message-alist)))
437 (concat "\\([@+]\\)?\\(" riece-user-regexp "\\) *")
439 (put-text-property (match-beginning 2) (match-end 2)
441 (riece-make-identity (match-string 2 string)
444 (setq start (match-end 0)
445 users (cons (if (match-beginning 1)
446 (if (eq (aref string (match-beginning 1)) ?@)
447 (list (match-string 2 string) ?o)
448 (if (eq (aref string (match-beginning 1)) ?+)
449 (list (match-string 2 string) ?v)))
450 (list (match-string 2 string)))
452 (setq users (nreverse users))
453 (riece-naming-assert-channel-users users channel)
456 (concat (format "%d users: " (length users)) string "\n"))
458 (if (and riece-channel-buffer-mode
459 (not (eq buffer riece-channel-buffer)))
460 (list riece-dialogue-buffer riece-others-buffer)
461 riece-dialogue-buffer)
463 (riece-concat-server-name
464 (concat (format "%d users on %s: "
466 (riece-format-identity channel-identity t))
472 ;;; riece-300.el ends here