cgit.sxemacs.org Git - riece/blob - lisp/riece-300.el

   1 ;;; riece-300.el --- handlers for 300 replies
   2 ;; Copyright (C) 1998-2003 Daiki Ueno
   3
   4 ;; Author: Daiki Ueno <ueno@unixuser.org>
   5 ;; Created: 1998-09-28
   6 ;; Keywords: IRC, riece
   7
   8 ;; This file is part of Riece.
   9
  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)
  13 ;; any later version.
  14
  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.
  19
  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.
  24
  25 ;;; Code:
  26
  27 (eval-when-compile (require 'riece-inlines))
  28
  29 (require 'riece-misc)
  30 (require 'riece-commands)
  31
  32 (require 'riece-filter)                 ;riece-default-handle-message
  33
  34 (eval-when-compile
  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))
  39
  40 (defun riece-handle-302-message (prefix number name string)
  41   "RPL_USERHOST \":*1<reply> *( \" \" <reply> )\""
  42   (let ((replies (split-string (substring string 1) " ")))
  43     (while replies
  44       (if (string-match
  45            (concat "^\\(" riece-user-regexp
  46                    "\\)\\(\\*\\)?=\\([-+]\\)\\([^ ]+\\)")
  47            (car replies))
  48           (let ((user (match-string 1 (car replies)))
  49                 (away (eq (match-string 3 (car replies)) ?-)))
  50             (riece-insert-info
  51              (list riece-dialogue-buffer riece-others-buffer)
  52              (concat
  53               (riece-concat-server-name
  54                (format "%s is (%s) [%s, %s]"
  55                        user
  56                        (riece-strip-user-at-host
  57                         (match-string 4 (car replies)))
  58                        (if (match-beginning 2)
  59                            "operator"
  60                          "not operator")
  61                        (if away
  62                            "away"
  63                          "not away")))
  64               "\n"))
  65             (riece-user-set-away (riece-get-user user) away)))
  66       (setq replies (cdr replies)))))
  67
  68 (defun riece-handle-303-message (prefix number name string)
  69   (riece-insert-info
  70    (list riece-dialogue-buffer riece-others-buffer)
  71    (concat
  72     (riece-concat-server-name (concat "Online: " (substring string 1)))
  73     "\n")))
  74
  75 (defun riece-handle-301-message (prefix number name string)
  76   (when (string-match
  77          (concat "^\\(" riece-user-regexp "\\) :")
  78          string)
  79     (let ((user (match-string 1 string)))
  80       (riece-user-set-away (riece-get-user user) t)
  81       (riece-insert-info
  82        (list riece-dialogue-buffer riece-others-buffer)
  83        (concat
  84         (riece-concat-server-name
  85          (format "%s is away: %s"
  86                  user
  87                  (substring string (match-end 0))))
  88         "\n")))))
  89
  90 (defun riece-handle-305-message (prefix number name string)
  91   (riece-user-set-away (riece-get-user riece-real-nickname) nil)
  92   (setq riece-away-indicator "-")
  93   (force-mode-line-update t))
  94
  95 (defun riece-handle-306-message (prefix number name string)
  96   (riece-user-set-away (riece-get-user riece-real-nickname) t)
  97   (setq riece-away-indicator "A")
  98   (force-mode-line-update t))
  99
 100 (defun riece-handle-311-message (prefix number name string)
 101   (if (string-match
 102        (concat "^\\(" riece-user-regexp
 103                "\\) \\([^ ]+\\) \\([^ ]+\\) \\* :")
 104        string)
 105       (riece-insert-info
 106        (list riece-dialogue-buffer riece-others-buffer)
 107        (concat
 108         (riece-concat-server-name
 109          (format "%s is %s (%s@%s)"
 110                  (match-string 1 string)
 111                  (substring string (match-end 0))
 112                  (match-string 2 string)
 113                  (match-string 3 string)))
 114         "\n"))))
 115
 116 (defun riece-handle-312-message (prefix number name string)
 117   (if (string-match
 118        (concat "^\\(" riece-user-regexp "\\) \\([^ ]+\\) :")
 119        string)
 120       (riece-insert-info
 121        (list riece-dialogue-buffer riece-others-buffer)
 122        (concat
 123         (riece-concat-server-name
 124          (format "on via server %s: %s"
 125                  riece-real-server-name
 126                  (substring string (match-end 0))))
 127         "\n"))))
 128
 129 (defun riece-handle-313-message (prefix number name string)
 130   (if (string-match (concat "^" riece-user-regexp) string)
 131       (riece-insert-info
 132        (list riece-dialogue-buffer riece-others-buffer)
 133        (concat
 134         (riece-concat-server-name
 135          (concat (match-string 0 string) " is an IRC operator"))
 136         "\n"))))
 137
 138 (defun riece-handle-317-message (prefix number name string)
 139   (if (string-match
 140        (concat "^\\(" riece-user-regexp "\\) \\([0-9]+\\) :")
 141        string)
 142       (riece-insert-info
 143        (list riece-dialogue-buffer riece-others-buffer)
 144        (concat
 145         (riece-concat-server-name
 146          (format "%s is %s seconds idle"
 147                  (match-string 1 string)
 148                  (match-string 2 string)))
 149         "\n"))))
 150
 151 (defun riece-handle-351-message (prefix number name string)
 152   (if (string-match "\\([^ ]+\\.[^ ]+\\) \\([^ ]+\\) :" string)
 153       (riece-insert-info
 154        (list riece-dialogue-buffer riece-others-buffer)
 155        (concat
 156         (riece-concat-server-name
 157          (format "%s is running on %s: %s"
 158                  (match-string 1 string)
 159                  (match-string 2 string)
 160                  (substring string (match-end 0))))
 161         "\n"))))
 162
 163 (defun riece-handle-353-message (prefix number name string)
 164   "RPL_NAMREPLY \"<channel> :[[@|+]<nick> [[@|+]<nick> [...]]]\"."
 165   (if (string-match "^[=\*@] *\\([^ ]+\\) +:" string)
 166       (let ((channel (match-string 1 string))
 167             users)
 168         (setq string (substring string (match-end 0)))
 169         (if (string-match " *$" string)
 170             (setq string (substring string 0 (match-beginning 0))))
 171         (setq users (split-string string))
 172         (while users
 173           (if (eq (aref (car users) 0) ?@)
 174               (progn
 175                 (riece-naming-assert-join (substring (car users) 1) channel)
 176                 (riece-channel-toggle-operator
 177                  channel (substring (car users) 1) t))
 178             (if (eq (aref (car users) 0) ?+)
 179                 (progn
 180                   (riece-naming-assert-join (substring (car users) 1) channel)
 181                   (riece-channel-toggle-speaker
 182                    channel (substring (car users) 1) t))
 183               (riece-naming-assert-join (car users) channel)))
 184           (setq users (cdr users)))
 185         (riece-redisplay-buffers))))
 186
 187 (defun riece-handle-322-message (prefix number name string)
 188   (if (string-match "^\\([^ ]+\\) \\([0-9]+\\) :" string)
 189       (let* ((channel (match-string 1 string))
 190              (visible (match-string 2 string))
 191              (topic (substring string (match-end 0))))
 192         (let ((buffer (cdr (riece-identity-assoc-no-server
 193                             (riece-make-identity channel)
 194                             riece-channel-buffer-alist))))
 195           (riece-insert-info buffer (concat visible " users, topic: "
 196                                             topic "\n"))
 197           (riece-insert-info
 198            (if (and riece-channel-buffer-mode
 199                     (not (eq buffer riece-channel-buffer)))
 200                (list riece-dialogue-buffer riece-others-buffer)
 201              riece-dialogue-buffer)
 202            (concat
 203             (riece-concat-server-name
 204              (format "%s users on %s, topic: %s" visible channel topic))
 205             "\n"))))))
 206
 207 (defun riece-handle-324-message (prefix number name string)
 208   (if (string-match "^\\([^ ]+\\) \\([^ ]+\\) " string)
 209       (let* ((channel (match-string 1 string))
 210              (mode-string (substring string (match-beginning 2)))
 211              (modes (string-to-list (match-string 2 string)))
 212              (toggle (car modes)))
 213         (setq modes (cdr modes))
 214         (while modes
 215           (riece-channel-toggle-mode channel (car modes) (eq toggle ?+))
 216           (setq modes (cdr modes)))
 217         (let ((buffer (cdr (riece-identity-assoc-no-server
 218                             (riece-make-identity channel)
 219                             riece-channel-buffer-alist))))
 220           (riece-insert-info buffer (concat "Mode: " mode-string "\n"))
 221           (riece-insert-info
 222            (if (and riece-channel-buffer-mode
 223                     (not (eq buffer riece-channel-buffer)))
 224                (list riece-dialogue-buffer riece-others-buffer)
 225              riece-dialogue-buffer)
 226            (concat
 227             (riece-concat-server-name
 228              (format "Mode for %s: %s" channel mode-string))
 229             "\n"))))))
 230
 231 (defun riece-handle-set-topic (prefix number name string remove)
 232   (if (string-match "^\\([^ ]+\\) :" string)
 233       (let* ((channel (match-string 1 string))
 234              (message (substring string (match-end 0)))
 235              (buffer (cdr (riece-identity-assoc-no-server
 236                            (riece-make-identity channel)
 237                            riece-channel-buffer-alist))))
 238         (if remove
 239             (riece-channel-set-topic (riece-get-channel channel) nil)
 240           (riece-channel-set-topic (riece-get-channel channel) message)
 241         (riece-insert-info buffer (concat "Topic: " message "\n"))
 242         (riece-insert-info
 243          (if (and riece-channel-buffer-mode
 244                   (not (eq buffer riece-channel-buffer)))
 245              (list riece-dialogue-buffer riece-others-buffer)
 246            riece-dialogue-buffer)
 247          (concat
 248           (riece-concat-server-name
 249            (format "Topic for %s: %s" channel message))
 250           "\n"))
 251         (riece-update-channel-indicator)))))
 252
 253 (defun riece-handle-331-message (prefix number name string)
 254   (riece-handle-set-topic prefix name name string t))
 255
 256 (defun riece-handle-332-message (prefix number name string)
 257   (riece-handle-set-topic prefix name name string nil))
 258
 259 (defun riece-handle-341-message (prefix number name string)
 260   (if (string-match "^\\([^ ]+\\) " string)
 261       (let* ((channel (match-string 1 string))
 262              (user (substring string (match-end 0)))
 263              (buffer (cdr (riece-identity-assoc-no-server
 264                            (riece-make-identity channel)
 265                            riece-channel-buffer-alist))))
 266         (riece-insert-info buffer (concat "Inviting " user "\n"))
 267         (riece-insert-info
 268          (if (and riece-channel-buffer-mode
 269                   (not (eq buffer riece-channel-buffer)))
 270              (list riece-dialogue-buffer riece-others-buffer)
 271            riece-dialogue-buffer)
 272          (concat
 273           (riece-concat-server-name
 274            (format "Inviting %s to %s" user channel))
 275           "\n")))))
 276
 277 (defun riece-handle-352-message (prefix number name string)
 278   (if (string-match "^\\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([HG]\\)\\(\\*\\)?\\([@+]\\)? :\\([0-9]+\\) " string)
 279       (let* ((channel (match-string 1 string))
 280              (user (match-string 2 string))
 281              (host (match-string 3 string))
 282              (server (match-string 4 string))
 283              (nick (match-string 5 string))
 284              (away (equal (match-string 6 string) "G"))
 285              (operator (match-string 7 string))
 286              (flag (match-string 8 string))
 287              (hops (match-string 9 string))
 288              (name (substring string (match-end 0)))
 289              (buffer (cdr (riece-identity-assoc-no-server
 290                            (riece-make-identity channel)
 291                            riece-channel-buffer-alist))))
 292         (riece-naming-assert-join nick channel)
 293         (riece-user-set-away (riece-get-user user) away)
 294         (riece-insert-info
 295          buffer
 296          (format "%10s = %s (%s) [%s, %s, %s hops, on %s]\n"
 297                  (concat
 298                   (if (memq flag '(?@ ?+))
 299                       (char-to-string flag)
 300                     " ")
 301                   nick)
 302                  name
 303                  (riece-strip-user-at-host
 304                   (concat user "@" host))
 305                  (if operator
 306                      "operator"
 307                    "not operator")
 308                  (if away
 309                      "away"
 310                    "not away")
 311                  hops
 312                  server))
 313         (riece-insert-info
 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)
 318          (concat
 319           (riece-concat-server-name
 320            (format "%s %10s = %s (%s) [%s, %s, %s hops, on %s]\n"
 321                    channel
 322                    (concat
 323                     (if (memq flag '(?@ ?+))
 324                         (char-to-string flag)
 325                       " ")
 326                     nick)
 327                    name
 328                    (riece-strip-user-at-host
 329                     (concat user "@" host))
 330                    (if operator
 331                        "operator"
 332                      "not operator")
 333                    (if away
 334                        "away"
 335                      "not away")
 336                    hops
 337                    server))
 338           "\n"))
 339         (riece-redisplay-buffers))))
 340
 341 (defun riece-handle-315-message (prefix number name string))
 342 (defun riece-handle-318-message (prefix number name string))
 343 (defun riece-handle-323-message (prefix number name string))
 344 (defun riece-handle-366-message (prefix number name string))
 345
 346 (provide 'riece-300)
 347
 348 ;;; riece-300.el ends here