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.
27 (eval-when-compile (require 'riece-inlines))
30 (require 'riece-commands)
32 (require 'riece-filter) ;riece-default-handle-message
35 (autoload 'riece-default-handle-numeric-reply "riece-filter"))
36 (defun riece-handle-default-300-message (prefix number name string)
37 (riece-default-handle-numeric-reply
38 riece-info-prefix prefix number name string))
40 (defun riece-handle-302-message (prefix number name string)
41 "RPL_USERHOST \":*1<reply> *( \" \" <reply> )\""
42 (let ((replies (split-string (substring string 1) " ")))
45 (concat "^\\(" riece-user-regexp
46 "\\)\\(\\*\\)?=\\([-+]\\)\\([^ ]+\\)")
49 (list riece-dialogue-buffer riece-others-buffer)
51 (riece-concat-server-name
52 (format "%s is (%s) [%s, %s]"
53 (match-string 1 (car replies))
54 (riece-strip-user-at-host (match-string 4 (car replies)))
55 (if (match-beginning 2)
58 (if (eq (match-string 3 (car replies)) ?-)
62 (setq replies (cdr replies)))))
64 (defun riece-handle-303-message (prefix number name string)
66 (list riece-dialogue-buffer riece-others-buffer)
68 (riece-concat-server-name (concat "Online: " (substring string 1)))
71 (defun riece-handle-301-message (prefix number name string)
73 (concat "^\\(" riece-user-regexp "\\) :")
76 (list riece-dialogue-buffer riece-others-buffer)
78 (riece-concat-server-name
79 (format "%s is away: %s"
80 (match-string 1 string)
81 (substring string (match-end 0))))
84 (defun riece-handle-311-message (prefix number name string)
86 (concat "^\\(" riece-user-regexp
87 "\\) \\([^ ]+\\) \\([^ ]+\\) \\* :")
90 (list riece-dialogue-buffer riece-others-buffer)
92 (riece-concat-server-name
93 (format "%s is %s (%s@%s)"
94 (match-string 1 string)
95 (substring string (match-end 0))
96 (match-string 2 string)
97 (match-string 3 string)))
100 (defun riece-handle-312-message (prefix number name string)
102 (concat "^\\(" riece-user-regexp "\\) \\([^ ]+\\) :")
105 (list riece-dialogue-buffer riece-others-buffer)
107 (riece-concat-server-name
108 (format "on via server %s: %s"
109 riece-real-server-name
110 (substring string (match-end 0))))
113 (defun riece-handle-313-message (prefix number name string)
114 (if (string-match (concat "^" riece-user-regexp) string)
116 (list riece-dialogue-buffer riece-others-buffer)
118 (riece-concat-server-name
119 (concat (match-string 0 string) " is an IRC operator"))
122 (defun riece-handle-317-message (prefix number name string)
124 (concat "^\\(" riece-user-regexp "\\) \\([0-9]+\\) :")
127 (list riece-dialogue-buffer riece-others-buffer)
129 (riece-concat-server-name
130 (format "%s is %s seconds idle"
131 (match-string 1 string)
132 (match-string 2 string)))
135 (defun riece-handle-351-message (prefix number name string)
136 (if (string-match "\\([^ ]+\\.[^ ]+\\) \\([^ ]+\\) :" string)
138 (list riece-dialogue-buffer riece-others-buffer)
140 (riece-concat-server-name
141 (format "%s is running on %s: %s"
142 (match-string 1 string)
143 (match-string 2 string)
144 (substring string (match-end 0))))
147 (defun riece-handle-353-message (prefix number name string)
148 "RPL_NAMREPLY \"<channel> :[[@|+]<nick> [[@|+]<nick> [...]]]\"."
149 (if (string-match "^[=\*@] *\\([^ ]+\\) +:" string)
150 (let ((channel (match-string 1 string))
152 (setq string (substring string (match-end 0)))
153 (if (string-match " *$" string)
154 (setq string (substring string 0 (match-beginning 0))))
155 (setq users (split-string string))
157 (if (eq (aref (car users) 0) ?@)
159 (riece-naming-assert-join (substring (car users) 1) channel)
160 (riece-channel-toggle-operator
161 channel (substring (car users) 1) t))
162 (if (eq (aref (car users) 0) ?+)
164 (riece-naming-assert-join (substring (car users) 1) channel)
165 (riece-channel-toggle-speaker
166 channel (substring (car users) 1) t))
167 (riece-naming-assert-join (car users) channel)))
168 (setq users (cdr users)))
169 (riece-redisplay-buffers))))
171 (defun riece-handle-324-message (prefix number name string)
172 (if (string-match "^\\([^ ]+\\) \\([^ ]+\\) " string)
173 (let* ((channel (match-string 1 string))
174 (mode-string (substring string (match-beginning 2)))
175 (modes (string-to-list (match-string 2 string)))
176 (toggle (car modes)))
177 (setq modes (cdr modes))
179 (riece-channel-toggle-mode channel (car modes) (eq toggle ?+))
180 (setq modes (cdr modes)))
181 (let ((buffer (cdr (riece-identity-assoc-no-server
182 (riece-make-identity channel)
183 riece-channel-buffer-alist))))
184 (riece-insert-info buffer (concat "Mode: " mode-string "\n"))
186 (if (and riece-channel-buffer-mode
187 (not (eq buffer riece-channel-buffer)))
188 (list riece-dialogue-buffer riece-others-buffer)
189 riece-dialogue-buffer)
191 (riece-concat-server-name
192 (format "Mode for %s: %s" channel mode-string))
195 (defun riece-handle-set-topic (prefix number name string remove)
196 (if (string-match "^\\([^ ]+\\) :" string)
197 (let* ((channel (match-string 1 string))
198 (message (substring string (match-end 0)))
199 (buffer (cdr (riece-identity-assoc-no-server
200 (riece-make-identity channel)
201 riece-channel-buffer-alist))))
203 (riece-channel-set-topic (riece-get-channel channel) nil)
204 (riece-channel-set-topic (riece-get-channel channel) message)
205 (riece-insert-info buffer (concat "Topic: " message "\n"))
207 (if (and riece-channel-buffer-mode
208 (not (eq buffer riece-channel-buffer)))
209 (list riece-dialogue-buffer riece-others-buffer)
210 riece-dialogue-buffer)
212 (riece-concat-server-name
213 (format "Topic for %s: %s" channel message))
215 (riece-update-channel-indicator)))))
217 (defun riece-handle-331-message (prefix number name string)
218 (riece-handle-set-topic prefix name name string t))
220 (defun riece-handle-332-message (prefix number name string)
221 (riece-handle-set-topic prefix name name string nil))
223 (defun riece-handle-341-message (prefix number name string)
224 (if (string-match "^\\([^ ]+\\) " string)
225 (let* ((channel (match-string 1 string))
226 (user (substring string (match-end 0)))
227 (buffer (cdr (riece-identity-assoc-no-server
228 (riece-make-identity channel)
229 riece-channel-buffer-alist))))
230 (riece-insert-info buffer (concat "Inviting " user "\n"))
232 (if (and riece-channel-buffer-mode
233 (not (eq buffer riece-channel-buffer)))
234 (list riece-dialogue-buffer riece-others-buffer)
235 riece-dialogue-buffer)
237 (riece-concat-server-name
238 (format "Inviting %s to %s" user channel))
241 (defun riece-handle-352-message (prefix number name string)
242 (if (string-match "^\\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([HG]\\)\\(\\*\\)?\\([@+]\\)? :\\([0-9]+\\) " string)
243 (let* ((channel (match-string 1 string))
244 (user (match-string 2 string))
245 (host (match-string 3 string))
246 (server (match-string 4 string))
247 (nick (match-string 5 string))
248 (away (match-string 6 string))
249 (operator (match-string 7 string))
250 (flag (match-string 8 string))
251 (hops (match-string 9 string))
252 (name (substring string (match-end 0)))
253 (buffer (cdr (riece-identity-assoc-no-server
254 (riece-make-identity channel)
255 riece-channel-buffer-alist))))
256 (riece-naming-assert-join nick channel)
259 (format "%10s = %s (%s) [%s, %s, %s hops, on %s]\n"
261 (if (memq flag '(?@ ?+))
262 (char-to-string flag)
266 (riece-strip-user-at-host
267 (concat user "@" host))
277 (if (and riece-channel-buffer-mode
278 (not (eq buffer riece-channel-buffer)))
279 (list riece-dialogue-buffer riece-others-buffer)
280 riece-dialogue-buffer)
282 (riece-concat-server-name
283 (format "%s %10s = %s (%s) [%s, %s, %s hops, on %s]\n"
286 (if (memq flag '(?@ ?+))
287 (char-to-string flag)
291 (riece-strip-user-at-host
292 (concat user "@" host))
302 (riece-redisplay-buffers))))
304 (defun riece-handle-315-message (prefix number name string))
305 (defun riece-handle-318-message (prefix number name string))
306 (defun riece-handle-366-message (prefix number name string))
310 ;;; riece-300.el ends here