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