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., 51 Franklin Street, Fifth Floor,
23 ;; Boston, MA 02110-1301, USA.
28 (require 'riece-naming)
29 (require 'riece-signal)
30 (require 'riece-display)
33 (autoload 'riece-default-handle-numeric-reply "riece-handle"))
34 (defun riece-handle-default-300-message (prefix number name string)
35 (riece-default-handle-numeric-reply
36 riece-info-prefix prefix number name string))
38 (defun riece-handle-302-message (prefix number name string)
39 "RPL_USERHOST \":*1<reply> *( \" \" <reply> )\""
40 (let ((replies (split-string (if (eq (aref string 0) ?:)
46 (concat "^\\([^ ]+\\)\\(\\*\\)?=\\([-+]\\)\\([^ ]+\\)")
48 (let ((user (match-string 1 (car replies)))
49 (operator (not (null (match-beginning 2))))
50 (away (eq (match-string 3 (car replies)) ?-))
51 (user-at-host (match-string 4 (car replies)))
54 (setq status (cons "away" status)))
56 (setq status (cons "operator" status)))
57 (riece-user-toggle-away user away)
58 (riece-emit-signal 'user-away-changed
59 (riece-make-identity user riece-server-name)
61 (riece-user-toggle-operator user operator)
62 (riece-emit-signal 'user-operator-changed
63 (riece-make-identity user riece-server-name)
66 (list riece-dialogue-buffer riece-others-buffer)
68 (riece-concat-server-name
69 (riece-concat-user-status
72 (riece-format-identity
73 (riece-make-identity user riece-server-name)
75 (riece-strip-user-at-host user-at-host))))
77 (setq replies (cdr replies)))))
79 (defun riece-handle-303-message (prefix number name string)
81 (list riece-dialogue-buffer riece-others-buffer)
83 (riece-concat-server-name
87 (riece-format-identity
88 (riece-make-identity user riece-server-name)
90 (split-string (if (eq (aref string 0) ?:)
97 (defun riece-handle-301-message (prefix number name string)
98 (if (string-match (concat "^\\([^ ]+\\) :?") string)
99 (let ((user (match-string 1 string))
100 (message (substring string (match-end 0))))
101 (riece-user-toggle-away user t)
102 (riece-emit-signal 'user-away-changed
103 (riece-make-identity user riece-server-name)
106 (list riece-dialogue-buffer riece-others-buffer)
108 (riece-concat-server-name
109 (format "%s is away: %s"
110 (riece-format-identity
111 (riece-make-identity user riece-server-name)
116 (defun riece-handle-305-message (prefix number name string)
117 (riece-user-toggle-away riece-real-nickname nil)
118 (riece-emit-signal 'user-away-changed
119 (riece-make-identity riece-real-nickname
123 (defun riece-handle-306-message (prefix number name string)
124 (riece-user-toggle-away riece-real-nickname t)
125 (riece-emit-signal 'user-away-changed
126 (riece-make-identity riece-real-nickname
130 (defun riece-handle-311-message (prefix number name string)
132 (concat "^\\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\* :?")
134 (let ((user (match-string 1 string))
135 (name (substring string (match-end 0)))
136 (user-at-host (concat (match-string 2 string) "@"
137 (match-string 3 string))))
139 (list riece-dialogue-buffer riece-others-buffer)
141 (riece-concat-server-name
142 (format "%s is %s (%s)"
143 (riece-format-identity
144 (riece-make-identity user riece-server-name)
150 (defun riece-handle-312-message (prefix number name string)
152 (concat "^\\([^ ]+\\) \\([^ ]+\\) :?")
155 (list riece-dialogue-buffer riece-others-buffer)
157 (riece-concat-server-name
158 (format "on via server %s: %s"
159 (match-string 2 string)
160 (substring string (match-end 0))))
163 (defun riece-handle-313-message (prefix number name string)
164 (if (string-match "^[^ ]+" string)
165 (let ((user (match-string 0 string)))
167 (list riece-dialogue-buffer riece-others-buffer)
169 (riece-concat-server-name
170 (concat (riece-format-identity
171 (riece-make-identity user riece-server-name)
173 " is an IRC operator"))
176 (defun riece-handle-317-message (prefix number name string)
178 (concat "^\\([^ ]+\\) \\([0-9]+\\) ")
180 (let* ((user (match-string 1 string))
181 (seconds (string-to-number (match-string 2 string)))
182 (units (list (cons (/ seconds 60 60 24) "days")
183 (cons (mod (/ seconds 60 60) 24) "hours")
184 (cons (mod (/ seconds 60) 60) "minutes")
185 (cons (mod seconds 60) "seconds"))))
187 (list riece-dialogue-buffer riece-others-buffer)
189 (riece-concat-server-name
190 (format "%s is %s idle"
191 (riece-format-identity
192 (riece-make-identity user riece-server-name)
194 (mapconcat #'identity
198 (if (/= (car unit) 0)
200 (car unit) (cdr unit))))
205 (defun riece-handle-319-message (prefix number name string)
206 (if (string-match (concat "^\\([^ ]+\\) :?") string)
207 (let ((user (match-string 1 string))
212 (concat "^\\([@+]?\\)\\(" riece-channel-regexp "\\)")
215 (match-string 1 channel)
216 (riece-format-identity
217 (riece-make-identity (match-string 2 channel)
220 (split-string (substring string (match-end 0)) " ")
223 (list riece-dialogue-buffer riece-others-buffer)
225 (riece-concat-server-name
227 (riece-format-identity
228 (riece-make-identity user riece-server-name)
233 (defun riece-handle-351-message (prefix number name string)
234 (if (string-match "\\([^ ]+\\.[^ ]+\\) \\([^ ]+\\) :?" string)
236 (list riece-dialogue-buffer riece-others-buffer)
238 (riece-concat-server-name
239 (format "%s is running on %s: %s"
240 (match-string 1 string)
241 (match-string 2 string)
242 (substring string (match-end 0))))
245 (defvar riece-353-message-alist nil)
246 (defun riece-handle-353-message (prefix number name string)
247 "RPL_NAMREPLY \"[=\*@] <channel> :[[@|+]<nick> [[@|+]<nick> [...]]]\"."
248 (make-local-variable 'riece-353-message-alist)
249 (if (string-match "^[=\*@] *\\([^ ]+\\) +:?" string)
250 (let* ((channel (match-string 1 string))
251 (entry (riece-identity-assoc channel riece-353-message-alist t)))
255 (substring string (match-end 0)) " "))
256 (setq riece-353-message-alist
258 (concat (substring string (match-end 0)) " "))
259 riece-353-message-alist))))))
261 (defun riece-handle-322-message (prefix number name decoded)
262 (let* ((parameters (riece-split-parameters (riece-decoded-string decoded)))
263 (channel (car parameters))
264 (visible (nth 1 parameters))
265 (channel-identity (riece-make-identity channel riece-server-name))
266 (buffer (riece-channel-buffer channel-identity))
268 (setq parameters (riece-split-parameters
269 (riece-decoded-string-for-identity decoded
271 topic (nth 2 parameters))
272 (riece-channel-set-topic (riece-get-channel channel) topic)
273 (riece-insert-info buffer (concat visible " users, topic: " topic "\n"))
275 (if (and riece-channel-buffer-mode
276 (not (eq buffer riece-channel-buffer)))
277 (list riece-dialogue-buffer riece-others-buffer)
278 riece-dialogue-buffer)
280 (riece-concat-server-name
281 (format "%s: %s users, topic: %s"
282 (riece-format-identity channel-identity t) visible topic))
285 (defun riece-handle-324-message (prefix number name string)
286 (if (string-match "^\\([^ ]+\\) \\([^ ]+\\) " string)
287 (let* ((channel (match-string 1 string))
288 (mode-string (match-string 2 string)))
289 (riece-naming-assert-channel-modes channel
290 (riece-parse-modes mode-string))
291 (let* ((channel-identity (riece-make-identity channel
293 (buffer (riece-channel-buffer channel-identity)))
294 (riece-insert-info buffer (concat "Mode: " mode-string "\n"))
296 (if (and riece-channel-buffer-mode
297 (not (eq buffer riece-channel-buffer)))
298 (list riece-dialogue-buffer riece-others-buffer)
299 riece-dialogue-buffer)
301 (riece-concat-server-name
302 (format "Mode for %s: %s"
303 (riece-format-identity channel-identity t)
307 (defun riece-handle-set-topic (prefix number name decoded remove)
308 (let* ((parameters (riece-split-parameters (riece-decoded-string decoded)))
309 (channel (car parameters))
311 (channel-identity (riece-make-identity channel riece-server-name))
312 (buffer (riece-channel-buffer channel-identity)))
314 (riece-channel-set-topic (riece-get-channel channel) nil)
315 (setq parameters (riece-split-parameters
316 (riece-decoded-string-for-identity decoded
318 topic (nth 1 parameters))
319 (riece-channel-set-topic (riece-get-channel channel) topic)
320 (riece-insert-info buffer (concat "Topic: " topic "\n"))
322 (if (and riece-channel-buffer-mode
323 (not (eq buffer riece-channel-buffer)))
324 (list riece-dialogue-buffer riece-others-buffer)
325 riece-dialogue-buffer)
327 (riece-concat-server-name
328 (format "Topic for %s: %s"
329 (riece-format-identity channel-identity t)
332 (riece-emit-signal 'channel-topic-changed channel-identity topic)))
334 (defun riece-handle-331-message (prefix number name string)
335 (riece-handle-set-topic prefix number name string t))
337 (defun riece-handle-332-message (prefix number name string)
338 (riece-handle-set-topic prefix number name string nil))
340 (defun riece-handle-341-message (prefix number name string)
341 (if (string-match "^\\([^ ]+\\) " string)
342 (let* ((channel (substring string (match-end 0)))
343 (user (match-string 1 string))
344 (channel-identity (riece-make-identity channel riece-server-name))
345 (buffer (riece-channel-buffer channel-identity)))
346 (riece-insert-info buffer (concat "Inviting " user "\n"))
348 (if (and riece-channel-buffer-mode
349 (not (eq buffer riece-channel-buffer)))
350 (list riece-dialogue-buffer riece-others-buffer)
351 riece-dialogue-buffer)
353 (riece-concat-server-name
354 (format "Inviting %s to %s" user
355 (riece-format-identity channel-identity t)))
358 (defun riece-handle-352-message (prefix number name string)
359 (if (string-match "^\\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([HG]\\)\\(\\*\\)?\\([@+]\\)? :\\([0-9]+\\) " string)
360 (let* ((channel (match-string 1 string))
361 (user (match-string 2 string))
362 (host (match-string 3 string))
363 (server (match-string 4 string))
364 (nick (match-string 5 string))
365 (away (equal (match-string 6 string) "G"))
366 (operator (not (null (match-beginning 7))))
367 (flag (match-string 8 string))
368 (hops (match-string 9 string))
369 (name (substring string (match-end 0)))
370 (buffer (riece-channel-buffer (riece-make-identity
371 channel riece-server-name)))
372 (info (format "%10s = %s (%s)"
374 (if (memq flag '(?@ ?+))
375 (char-to-string flag)
377 (riece-format-identity
378 (riece-make-identity nick riece-server-name)
381 (riece-strip-user-at-host
382 (concat user "@" host))))
385 (setq status (cons "operator" status)))
387 (setq status (cons "away" status)))
388 (unless (equal hops "0")
389 (setq status (cons (concat "on " server)
390 (cons (concat hops " hops")
393 (setq status (nreverse status)))
394 (riece-naming-assert-join nick channel)
395 (riece-user-toggle-away user away)
396 (riece-emit-signal 'user-away-changed
397 (riece-make-identity user riece-server-name)
399 (riece-user-toggle-operator user operator)
400 (riece-emit-signal 'user-operator-changed
401 (riece-make-identity user riece-server-name)
403 (riece-insert-info buffer (concat (riece-concat-user-status
407 (if (and riece-channel-buffer-mode
408 (not (eq buffer riece-channel-buffer)))
409 (list riece-dialogue-buffer riece-others-buffer)
410 riece-dialogue-buffer)
412 (riece-concat-server-name
413 (riece-concat-user-status
416 (riece-format-identity
417 (riece-make-identity channel riece-server-name)
423 (defun riece-handle-315-message (prefix number name string))
424 (defun riece-handle-318-message (prefix number name string))
425 (defun riece-handle-323-message (prefix number name string))
427 (defun riece-handle-366-message (prefix number name string)
428 "RPL_ENDOFNAMES \"<channel> :End of NAMES list\""
429 (if (string-match "^\\([^ ]+\\) " string)
430 (let* ((channel (match-string 1 string))
431 (channel-identity (riece-make-identity channel
433 (buffer (riece-channel-buffer channel-identity))
434 (entry (riece-identity-assoc channel riece-353-message-alist t))
439 (setq riece-353-message-alist
440 (delq entry riece-353-message-alist)))
442 (concat "\\([@+]\\)?\\([^ ]+\\) +")
444 (put-text-property (match-beginning 2) (match-end 2)
446 (riece-make-identity (match-string 2 string)
449 (setq start (match-end 0)
450 users (cons (if (match-beginning 1)
451 (if (eq (aref string (match-beginning 1)) ?@)
452 (list (match-string 2 string) ?o)
453 (if (eq (aref string (match-beginning 1)) ?+)
454 (list (match-string 2 string) ?v)))
455 (list (match-string 2 string)))
457 (setq users (nreverse users))
458 (riece-naming-assert-channel-users users channel)
461 (concat (format "%d users: " (length users)) string "\n"))
463 (if (and riece-channel-buffer-mode
464 (not (eq buffer riece-channel-buffer)))
465 (list riece-dialogue-buffer riece-others-buffer)
466 riece-dialogue-buffer)
468 (riece-concat-server-name
469 (concat (format "%d users on %s: "
471 (riece-format-identity channel-identity t))
477 ;;; riece-300.el ends here