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