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