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