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.
28 (require 'riece-commands)
30 (require 'riece-filter) ;riece-default-handle-message
33 (autoload 'riece-default-handle-numeric-reply "riece-filter"))
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 (substring string 1) " ")))
43 (concat "^\\(" riece-user-regexp
44 "\\)\\(\\*\\)?=\\([-+]\\)\\([^ ]+\\)")
46 (let ((user (match-string 1 (car replies)))
47 (away (eq (match-string 3 (car replies)) ?-))
48 (user-at-host (match-string 4 (car replies)))
49 (operator (not (null (match-beginning 2)))))
50 (riece-user-toggle-away user away)
51 (riece-user-toggle-operator user operator)
53 (list riece-dialogue-buffer riece-others-buffer)
55 (riece-concat-server-name
56 (format "%s is (%s) [%s, %s]"
58 (riece-strip-user-at-host user-at-host)
66 (setq replies (cdr replies)))
67 (riece-update-status-indicators)
68 (force-mode-line-update t)))
70 (defun riece-handle-303-message (prefix number name string)
72 (list riece-dialogue-buffer riece-others-buffer)
74 (riece-concat-server-name (concat "Online: " (substring string 1)))
77 (defun riece-handle-301-message (prefix number name string)
79 (concat "^\\(" riece-user-regexp "\\) :")
81 (let ((user (match-string 1 string))
82 (message (substring string (match-end 0))))
83 (riece-user-toggle-away user t)
85 (list riece-dialogue-buffer riece-others-buffer)
87 (riece-concat-server-name
88 (format "%s is away: %s" user message))
90 (riece-update-status-indicators)
91 (force-mode-line-update t)))
93 (defun riece-handle-305-message (prefix number name string)
94 (riece-user-toggle-away riece-real-nickname nil)
95 (riece-update-status-indicators)
96 (force-mode-line-update t))
98 (defun riece-handle-306-message (prefix number name string)
99 (riece-user-toggle-away riece-real-nickname t)
100 (riece-update-status-indicators)
101 (force-mode-line-update t))
103 (defun riece-handle-311-message (prefix number name string)
105 (concat "^\\(" riece-user-regexp
106 "\\) \\([^ ]+\\) \\([^ ]+\\) \\* :")
109 (list riece-dialogue-buffer riece-others-buffer)
111 (riece-concat-server-name
112 (format "%s is %s (%s@%s)"
113 (match-string 1 string)
114 (substring string (match-end 0))
115 (match-string 2 string)
116 (match-string 3 string)))
119 (defun riece-handle-312-message (prefix number name string)
121 (concat "^\\(" riece-user-regexp "\\) \\([^ ]+\\) :")
124 (list riece-dialogue-buffer riece-others-buffer)
126 (riece-concat-server-name
127 (format "on via server %s: %s"
128 riece-real-server-name
129 (substring string (match-end 0))))
132 (defun riece-handle-313-message (prefix number name string)
133 (if (string-match (concat "^" riece-user-regexp) string)
135 (list riece-dialogue-buffer riece-others-buffer)
137 (riece-concat-server-name
138 (concat (match-string 0 string) " is an IRC operator"))
141 (defun riece-handle-317-message (prefix number name string)
143 (concat "^\\(" riece-user-regexp "\\) \\([0-9]+\\) :")
146 (list riece-dialogue-buffer riece-others-buffer)
148 (riece-concat-server-name
149 (format "%s is %s seconds idle"
150 (match-string 1 string)
151 (match-string 2 string)))
154 (defun riece-handle-351-message (prefix number name string)
155 (if (string-match "\\([^ ]+\\.[^ ]+\\) \\([^ ]+\\) :" string)
157 (list riece-dialogue-buffer riece-others-buffer)
159 (riece-concat-server-name
160 (format "%s is running on %s: %s"
161 (match-string 1 string)
162 (match-string 2 string)
163 (substring string (match-end 0))))
166 (defun riece-handle-353-message (prefix number name string)
167 "RPL_NAMREPLY \"<channel> :[[@|+]<nick> [[@|+]<nick> [...]]]\"."
168 (if (string-match "^[=\*@] *\\([^ ]+\\) +:" string)
169 (let ((channel (match-string 1 string))
171 (setq string (substring string (match-end 0)))
172 (if (string-match " *$" string)
173 (setq string (substring string 0 (match-beginning 0))))
174 (setq users (split-string string))
176 (if (eq (aref (car users) 0) ?@)
178 (riece-naming-assert-join (substring (car users) 1) channel)
179 (riece-channel-toggle-operator
180 channel (substring (car users) 1) t))
181 (if (eq (aref (car users) 0) ?+)
183 (riece-naming-assert-join (substring (car users) 1) channel)
184 (riece-channel-toggle-speaker
185 channel (substring (car users) 1) t))
186 (riece-naming-assert-join (car users) channel)))
187 (setq users (cdr users)))
188 (riece-redisplay-buffers))))
190 (defun riece-handle-322-message (prefix number name string)
191 (if (string-match "^\\([^ ]+\\) \\([0-9]+\\) :" string)
192 (let* ((channel (match-string 1 string))
193 (visible (match-string 2 string))
194 (topic (substring string (match-end 0))))
195 (let ((buffer (cdr (riece-identity-assoc
196 (riece-make-identity channel)
197 riece-channel-buffer-alist))))
198 (riece-insert-info buffer (concat visible " users, topic: "
201 (if (and riece-channel-buffer-mode
202 (not (eq buffer riece-channel-buffer)))
203 (list riece-dialogue-buffer riece-others-buffer)
204 riece-dialogue-buffer)
206 (riece-concat-server-name
207 (format "%s users on %s, topic: %s" visible channel topic))
210 (defun riece-handle-324-message (prefix number name string)
211 (if (string-match "^\\([^ ]+\\) \\([^ ]+\\) " string)
212 (let* ((channel (match-string 1 string))
213 (mode-string (substring string (match-beginning 2)))
214 (modes (string-to-list (match-string 2 string)))
215 (toggle (car modes)))
216 (setq modes (cdr modes))
218 (riece-channel-toggle-mode channel (car modes) (eq toggle ?+))
219 (setq modes (cdr modes)))
220 (let ((buffer (cdr (riece-identity-assoc
221 (riece-make-identity channel)
222 riece-channel-buffer-alist))))
223 (riece-insert-info buffer (concat "Mode: " mode-string "\n"))
225 (if (and riece-channel-buffer-mode
226 (not (eq buffer riece-channel-buffer)))
227 (list riece-dialogue-buffer riece-others-buffer)
228 riece-dialogue-buffer)
230 (riece-concat-server-name
231 (format "Mode for %s: %s" channel mode-string))
233 (riece-update-channel-indicator)
234 (force-mode-line-update t))))
236 (defun riece-handle-set-topic (prefix number name string remove)
237 (if (string-match "^\\([^ ]+\\) :" string)
238 (let* ((channel (match-string 1 string))
239 (message (substring string (match-end 0)))
240 (buffer (cdr (riece-identity-assoc
241 (riece-make-identity channel)
242 riece-channel-buffer-alist))))
244 (riece-channel-set-topic (riece-get-channel channel) nil)
245 (riece-channel-set-topic (riece-get-channel channel) message)
246 (riece-insert-info buffer (concat "Topic: " message "\n"))
248 (if (and riece-channel-buffer-mode
249 (not (eq buffer riece-channel-buffer)))
250 (list riece-dialogue-buffer riece-others-buffer)
251 riece-dialogue-buffer)
253 (riece-concat-server-name
254 (format "Topic for %s: %s" channel message))
256 (riece-update-channel-indicator)))))
258 (defun riece-handle-331-message (prefix number name string)
259 (riece-handle-set-topic prefix name name string t))
261 (defun riece-handle-332-message (prefix number name string)
262 (riece-handle-set-topic prefix name name string nil))
264 (defun riece-handle-341-message (prefix number name string)
265 (if (string-match "^\\([^ ]+\\) " string)
266 (let* ((channel (match-string 1 string))
267 (user (substring string (match-end 0)))
268 (buffer (cdr (riece-identity-assoc
269 (riece-make-identity channel)
270 riece-channel-buffer-alist))))
271 (riece-insert-info buffer (concat "Inviting " user "\n"))
273 (if (and riece-channel-buffer-mode
274 (not (eq buffer riece-channel-buffer)))
275 (list riece-dialogue-buffer riece-others-buffer)
276 riece-dialogue-buffer)
278 (riece-concat-server-name
279 (format "Inviting %s to %s" user channel))
282 (defun riece-handle-352-message (prefix number name string)
283 (if (string-match "^\\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([HG]\\)\\(\\*\\)?\\([@+]\\)? :\\([0-9]+\\) " string)
284 (let* ((channel (match-string 1 string))
285 (user (match-string 2 string))
286 (host (match-string 3 string))
287 (server (match-string 4 string))
288 (nick (match-string 5 string))
289 (away (equal (match-string 6 string) "G"))
290 (operator (not (null (match-beginning 7))))
291 (flag (match-string 8 string))
292 (hops (match-string 9 string))
293 (name (substring string (match-end 0)))
294 (buffer (cdr (riece-identity-assoc
295 (riece-make-identity channel)
296 riece-channel-buffer-alist))))
297 (riece-naming-assert-join nick channel)
298 (riece-user-toggle-away user away)
299 (riece-user-toggle-operator user operator)
302 (format "%10s = %s (%s) [%s, %s, %s hops, on %s]\n"
304 (if (memq flag '(?@ ?+))
305 (char-to-string flag)
309 (riece-strip-user-at-host
310 (concat user "@" host))
320 (if (and riece-channel-buffer-mode
321 (not (eq buffer riece-channel-buffer)))
322 (list riece-dialogue-buffer riece-others-buffer)
323 riece-dialogue-buffer)
325 (riece-concat-server-name
326 (format "%s %10s = %s (%s) [%s, %s, %s hops, on %s]\n"
329 (if (memq flag '(?@ ?+))
330 (char-to-string flag)
334 (riece-strip-user-at-host
335 (concat user "@" host))
345 (riece-redisplay-buffers))))
347 (defun riece-handle-315-message (prefix number name string))
348 (defun riece-handle-318-message (prefix number name string))
349 (defun riece-handle-323-message (prefix number name string))
350 (defun riece-handle-366-message (prefix number name string))
354 ;;; riece-300.el ends here