2006-02-08 02:41:23 +00:00
|
|
|
|
;;; erc-services.el --- Identify to NickServ
|
2006-01-29 13:08:58 +00:00
|
|
|
|
|
2009-01-05 03:18:22 +00:00
|
|
|
|
;; Copyright (C) 2002, 2003, 2004, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
|
2006-01-29 13:08:58 +00:00
|
|
|
|
|
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
|
|
2008-05-06 03:36:21 +00:00
|
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
2006-01-29 13:08:58 +00:00
|
|
|
|
;; it under the terms of the GNU General Public License as published by
|
2008-05-06 03:36:21 +00:00
|
|
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
|
|
|
;; (at your option) any later version.
|
2006-01-29 13:08:58 +00:00
|
|
|
|
|
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
|
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
;; GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
2008-05-06 03:36:21 +00:00
|
|
|
|
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
2006-01-29 13:08:58 +00:00
|
|
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
|
|
|
|
;; There are two ways to go about identifying yourself automatically to
|
|
|
|
|
;; NickServ with this module. The more secure way is to listen for identify
|
|
|
|
|
;; requests from the user NickServ. Another way is to identify yourself to
|
|
|
|
|
;; NickServ directly after a successful connection and every time you change
|
|
|
|
|
;; your nickname. This method is rather insecure, though, because no checks
|
|
|
|
|
;; are made to test if NickServ is the real NickServ for a given network or
|
|
|
|
|
;; server.
|
|
|
|
|
|
2007-12-09 06:40:47 +00:00
|
|
|
|
;; As a default, ERC has the data for the official nickname services on
|
|
|
|
|
;; the networks Austnet, BrasNET, Dalnet, freenode, GalaxyNet, GRnet,
|
|
|
|
|
;; and Slashnet. You can add more by using M-x customize-variable RET
|
|
|
|
|
;; erc-nickserv-alist.
|
2006-01-29 13:08:58 +00:00
|
|
|
|
|
|
|
|
|
;; Usage:
|
|
|
|
|
;;
|
|
|
|
|
;; Put into your .emacs:
|
|
|
|
|
;;
|
2006-02-08 02:41:23 +00:00
|
|
|
|
;; (require 'erc-services)
|
2006-01-29 13:08:58 +00:00
|
|
|
|
;; (erc-services-mode 1)
|
|
|
|
|
;;
|
|
|
|
|
;; Add your nickname and NickServ password to `erc-nickserv-passwords'.
|
|
|
|
|
;; Using the freenode network as an example:
|
|
|
|
|
;;
|
|
|
|
|
;; (setq erc-nickserv-passwords '((freenode (("nickname" "password")))))
|
|
|
|
|
;;
|
|
|
|
|
;; The default automatic identification mode is autodetection of NickServ
|
|
|
|
|
;; identify requests. Set the variable `erc-nickserv-identify-mode' if
|
|
|
|
|
;; you'd like to change this behavior. You can also change the way
|
|
|
|
|
;; automatic identification is handled by using:
|
|
|
|
|
;;
|
|
|
|
|
;; M-x erc-nickserv-identify-mode
|
|
|
|
|
;;
|
|
|
|
|
;; If you'd rather not identify yourself automatically but would like access
|
|
|
|
|
;; to the functions contained in this file, just load this file without
|
|
|
|
|
;; enabling `erc-services-mode'.
|
|
|
|
|
;;
|
|
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
|
|
|
|
(require 'erc)
|
2006-02-08 02:41:23 +00:00
|
|
|
|
(require 'erc-networks)
|
2006-01-29 13:08:58 +00:00
|
|
|
|
(eval-when-compile (require 'cl))
|
|
|
|
|
|
|
|
|
|
;; Customization:
|
|
|
|
|
|
|
|
|
|
(defgroup erc-services nil
|
|
|
|
|
"Configuration for IRC services.
|
|
|
|
|
|
|
|
|
|
On some networks, there exists a special type of automated irc bot,
|
|
|
|
|
called Services. Those usually allow you to register your nickname,
|
|
|
|
|
post/read memos to other registered users who are currently offline,
|
|
|
|
|
and do various other things.
|
|
|
|
|
|
|
|
|
|
This group allows you to set variables to somewhat automate
|
|
|
|
|
communication with those Services."
|
|
|
|
|
:group 'erc)
|
|
|
|
|
|
2007-01-17 18:17:25 +00:00
|
|
|
|
(defcustom erc-nickserv-identify-mode 'both
|
|
|
|
|
"The mode which is used when identifying to Nickserv.
|
|
|
|
|
|
|
|
|
|
Possible settings are:.
|
|
|
|
|
|
|
|
|
|
'autodetect - Identify when the real Nickserv sends an identify request.
|
|
|
|
|
'nick-change - Identify when you log in or change your nickname.
|
|
|
|
|
'both - Do the former if the network supports it, otherwise do the
|
|
|
|
|
latter.
|
|
|
|
|
nil - Disables automatic Nickserv identification.
|
|
|
|
|
|
|
|
|
|
You can also use M-x erc-nickserv-identify-mode to change modes."
|
|
|
|
|
:group 'erc-services
|
|
|
|
|
:type '(choice (const autodetect)
|
|
|
|
|
(const nick-change)
|
|
|
|
|
(const both)
|
|
|
|
|
(const nil))
|
|
|
|
|
:set (lambda (sym val)
|
|
|
|
|
(set sym val)
|
|
|
|
|
;; avoid recursive load at startup
|
|
|
|
|
(when (featurep 'erc-services)
|
|
|
|
|
(erc-nickserv-identify-mode val))))
|
|
|
|
|
|
2006-02-08 02:41:23 +00:00
|
|
|
|
;;;###autoload (autoload 'erc-services-mode "erc-services" nil t)
|
2006-01-29 13:08:58 +00:00
|
|
|
|
(define-erc-module services nickserv
|
|
|
|
|
"This mode automates communication with services."
|
|
|
|
|
((erc-nickserv-identify-mode erc-nickserv-identify-mode))
|
|
|
|
|
((remove-hook 'erc-server-NOTICE-functions
|
|
|
|
|
'erc-nickserv-identify-autodetect)
|
|
|
|
|
(remove-hook 'erc-after-connect
|
|
|
|
|
'erc-nickserv-identify-on-connect)
|
|
|
|
|
(remove-hook 'erc-nick-changed-functions
|
2007-12-09 06:40:47 +00:00
|
|
|
|
'erc-nickserv-identify-on-nick-change)
|
|
|
|
|
(remove-hook 'erc-server-NOTICE-functions
|
|
|
|
|
'erc-nickserv-identification-autodetect)))
|
2006-01-29 13:08:58 +00:00
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun erc-nickserv-identify-mode (mode)
|
|
|
|
|
"Set up hooks according to which MODE the user has chosen."
|
|
|
|
|
(interactive
|
|
|
|
|
(list (intern (completing-read
|
|
|
|
|
"Choose Nickserv identify mode (RET to disable): "
|
2007-01-05 02:09:07 +00:00
|
|
|
|
'(("autodetect") ("nick-change") ("both")) nil t))))
|
2007-12-09 06:40:47 +00:00
|
|
|
|
(add-hook 'erc-server-NOTICE-functions
|
|
|
|
|
'erc-nickserv-identification-autodetect)
|
2008-01-25 03:28:10 +00:00
|
|
|
|
(unless erc-networks-mode
|
|
|
|
|
;; Force-enable networks module, because we need it to set
|
|
|
|
|
;; erc-network for us.
|
|
|
|
|
(erc-networks-enable))
|
2006-01-29 13:08:58 +00:00
|
|
|
|
(cond ((eq mode 'autodetect)
|
|
|
|
|
(setq erc-nickserv-identify-mode 'autodetect)
|
|
|
|
|
(add-hook 'erc-server-NOTICE-functions
|
|
|
|
|
'erc-nickserv-identify-autodetect)
|
|
|
|
|
(remove-hook 'erc-nick-changed-functions
|
|
|
|
|
'erc-nickserv-identify-on-nick-change)
|
|
|
|
|
(remove-hook 'erc-after-connect
|
|
|
|
|
'erc-nickserv-identify-on-connect))
|
|
|
|
|
((eq mode 'nick-change)
|
|
|
|
|
(setq erc-nickserv-identify-mode 'nick-change)
|
|
|
|
|
(add-hook 'erc-after-connect
|
|
|
|
|
'erc-nickserv-identify-on-connect)
|
|
|
|
|
(add-hook 'erc-nick-changed-functions
|
|
|
|
|
'erc-nickserv-identify-on-nick-change)
|
|
|
|
|
(remove-hook 'erc-server-NOTICE-functions
|
|
|
|
|
'erc-nickserv-identify-autodetect))
|
2007-01-05 02:09:07 +00:00
|
|
|
|
((eq mode 'both)
|
|
|
|
|
(setq erc-nickserv-identify-mode 'both)
|
|
|
|
|
(add-hook 'erc-server-NOTICE-functions
|
|
|
|
|
'erc-nickserv-identify-autodetect)
|
|
|
|
|
(add-hook 'erc-after-connect
|
|
|
|
|
'erc-nickserv-identify-on-connect)
|
|
|
|
|
(add-hook 'erc-nick-changed-functions
|
|
|
|
|
'erc-nickserv-identify-on-nick-change))
|
2006-01-29 13:08:58 +00:00
|
|
|
|
(t
|
|
|
|
|
(setq erc-nickserv-identify-mode nil)
|
|
|
|
|
(remove-hook 'erc-server-NOTICE-functions
|
|
|
|
|
'erc-nickserv-identify-autodetect)
|
|
|
|
|
(remove-hook 'erc-after-connect
|
|
|
|
|
'erc-nickserv-identify-on-connect)
|
|
|
|
|
(remove-hook 'erc-nick-changed-functions
|
2007-12-09 06:40:47 +00:00
|
|
|
|
'erc-nickserv-identify-on-nick-change)
|
|
|
|
|
(remove-hook 'erc-server-NOTICE-functions
|
|
|
|
|
'erc-nickserv-identification-autodetect))))
|
2006-01-29 13:08:58 +00:00
|
|
|
|
|
|
|
|
|
(defcustom erc-prompt-for-nickserv-password t
|
|
|
|
|
"Ask for the password when identifying to NickServ."
|
|
|
|
|
:group 'erc-services
|
|
|
|
|
:type 'boolean)
|
|
|
|
|
|
|
|
|
|
(defcustom erc-nickserv-passwords nil
|
|
|
|
|
"Passwords used when identifying to NickServ automatically.
|
|
|
|
|
|
|
|
|
|
Example of use:
|
|
|
|
|
(setq erc-nickserv-passwords
|
|
|
|
|
'((freenode ((\"nick-one\" . \"password\")
|
|
|
|
|
(\"nick-two\" . \"password\")))
|
|
|
|
|
(DALnet ((\"nick\" . \"password\")))))"
|
|
|
|
|
:group 'erc-services
|
|
|
|
|
:type '(repeat
|
|
|
|
|
(list :tag "Network"
|
|
|
|
|
(choice :tag "Network name"
|
2007-04-01 13:36:38 +00:00
|
|
|
|
(const Ars)
|
|
|
|
|
(const Austnet)
|
|
|
|
|
(const Azzurra)
|
|
|
|
|
(const BitlBee)
|
|
|
|
|
(const BRASnet)
|
2006-01-29 13:08:58 +00:00
|
|
|
|
(const DALnet)
|
2007-04-01 13:36:38 +00:00
|
|
|
|
(const freenode)
|
2006-01-29 13:08:58 +00:00
|
|
|
|
(const GalaxyNet)
|
2007-12-09 06:40:47 +00:00
|
|
|
|
(const GRnet)
|
2006-01-29 13:08:58 +00:00
|
|
|
|
(const iip)
|
2007-04-01 13:36:38 +00:00
|
|
|
|
(const OFTC)
|
|
|
|
|
(const QuakeNet)
|
2008-01-25 03:28:10 +00:00
|
|
|
|
(const Rizon)
|
2007-04-01 13:36:38 +00:00
|
|
|
|
(const SlashNET)
|
2006-01-29 13:08:58 +00:00
|
|
|
|
(symbol :tag "Network name"))
|
|
|
|
|
(repeat :tag "Nickname and password"
|
|
|
|
|
(cons :tag "Identity"
|
|
|
|
|
(string :tag "Nick")
|
|
|
|
|
(string :tag "Password"))))))
|
|
|
|
|
|
|
|
|
|
;; Variables:
|
|
|
|
|
|
|
|
|
|
(defcustom erc-nickserv-alist
|
2007-04-01 13:36:38 +00:00
|
|
|
|
'((Ars
|
|
|
|
|
nil nil
|
|
|
|
|
"Census"
|
2007-12-09 06:40:47 +00:00
|
|
|
|
"IDENTIFY" nil nil nil)
|
2007-04-01 13:36:38 +00:00
|
|
|
|
(Austnet
|
|
|
|
|
"NickOP!service@austnet.org"
|
|
|
|
|
"/msg\\s-NickOP@austnet.org\\s-identify\\s-<password>"
|
|
|
|
|
"nickop@austnet.org"
|
2007-12-09 06:40:47 +00:00
|
|
|
|
"identify" nil nil nil)
|
2007-04-01 13:36:38 +00:00
|
|
|
|
(Azzurra
|
|
|
|
|
"NickServ!service@azzurra.org"
|
|
|
|
|
"/ns\\s-IDENTIFY\\s-password"
|
|
|
|
|
"NickServ"
|
2007-12-09 06:40:47 +00:00
|
|
|
|
"IDENTIFY" nil nil nil)
|
2007-04-01 13:36:38 +00:00
|
|
|
|
(BitlBee
|
|
|
|
|
nil nil
|
2007-01-17 18:17:25 +00:00
|
|
|
|
"&bitlbee"
|
2007-12-09 06:40:47 +00:00
|
|
|
|
"identify" nil nil nil)
|
2007-04-01 13:36:38 +00:00
|
|
|
|
(BRASnet
|
|
|
|
|
"NickServ!services@brasnet.org"
|
|
|
|
|
"/NickServ\\s-IDENTIFY\\s-senha"
|
|
|
|
|
"NickServ"
|
2007-12-09 06:40:47 +00:00
|
|
|
|
"IDENTIFY" nil "" nil)
|
2007-01-17 18:17:25 +00:00
|
|
|
|
(DALnet
|
2006-01-29 13:08:58 +00:00
|
|
|
|
"NickServ!service@dal.net"
|
|
|
|
|
"/msg\\s-NickServ@services.dal.net\\s-IDENTIFY\\s-<password>"
|
|
|
|
|
"NickServ@services.dal.net"
|
2007-12-09 06:40:47 +00:00
|
|
|
|
"IDENTIFY" nil nil nil)
|
2006-01-29 13:08:58 +00:00
|
|
|
|
(freenode
|
|
|
|
|
"NickServ!NickServ@services."
|
2008-01-10 03:51:14 +00:00
|
|
|
|
;; freenode also accepts a password at login, see the `erc'
|
|
|
|
|
;; :password argument.
|
2008-06-19 04:59:11 +00:00
|
|
|
|
"This\\s-nickname\\s-is\\s-registered.\\s-Please\\s-choose"
|
2006-01-29 13:08:58 +00:00
|
|
|
|
"NickServ"
|
2007-12-09 06:40:47 +00:00
|
|
|
|
"IDENTIFY" nil nil
|
2008-06-19 04:59:11 +00:00
|
|
|
|
;; See also the 901 response code message.
|
|
|
|
|
"You\\s-are\\s-now\\s-identified\\s-for\\s-")
|
2006-01-29 13:08:58 +00:00
|
|
|
|
(GalaxyNet
|
|
|
|
|
"NS!nickserv@galaxynet.org"
|
|
|
|
|
"Please\\s-change\\s-nicks\\s-or\\s-authenticate."
|
|
|
|
|
"NS@services.galaxynet.org"
|
2007-12-09 06:40:47 +00:00
|
|
|
|
"AUTH" t nil nil)
|
|
|
|
|
(GRnet
|
|
|
|
|
"NickServ!service@irc.gr"
|
|
|
|
|
"This\\s-nickname\\s-is\\s-registered\\s-and\\s-protected."
|
|
|
|
|
"NickServ"
|
|
|
|
|
"IDENTIFY" nil nil
|
|
|
|
|
"Password\\s-accepted\\s--\\s-you\\s-are\\s-now\\s-recognized.")
|
2006-01-29 13:08:58 +00:00
|
|
|
|
(iip
|
|
|
|
|
"Trent@anon.iip"
|
|
|
|
|
"type\\s-/squery\\s-Trent\\s-identify\\s-<password>"
|
|
|
|
|
"Trent@anon.iip"
|
2007-12-09 06:40:47 +00:00
|
|
|
|
"IDENTIFY" nil "SQUERY" nil)
|
2007-01-05 02:09:07 +00:00
|
|
|
|
(OFTC
|
|
|
|
|
"NickServ!services@services.oftc.net"
|
2008-01-10 03:51:14 +00:00
|
|
|
|
;; OFTC's NickServ doesn't ask you to identify anymore.
|
|
|
|
|
nil
|
2007-01-05 02:09:07 +00:00
|
|
|
|
"NickServ"
|
2008-01-10 03:51:14 +00:00
|
|
|
|
"IDENTIFY" nil nil
|
|
|
|
|
"You\\s-are\\s-successfully\\s-identified\\s-as\\s-")
|
2008-01-25 03:28:10 +00:00
|
|
|
|
(Rizon
|
|
|
|
|
"NickServ!service@rizon.net"
|
|
|
|
|
"This\\s-nickname\\s-is\\s-registered\\s-and\\s-protected."
|
|
|
|
|
"NickServ"
|
|
|
|
|
"IDENTIFY" nil nil
|
|
|
|
|
"Password\\s-accepted\\s--\\s-you\\s-are\\s-now\\s-recognized.")
|
2007-04-01 13:36:38 +00:00
|
|
|
|
(QuakeNet
|
|
|
|
|
nil nil
|
|
|
|
|
"Q@CServe.quakenet.org"
|
2007-12-09 06:40:47 +00:00
|
|
|
|
"auth" t nil nil)
|
2007-04-01 13:36:38 +00:00
|
|
|
|
(SlashNET
|
|
|
|
|
"NickServ!services@services.slashnet.org"
|
|
|
|
|
"/msg\\s-NickServ\\s-IDENTIFY\\s-password"
|
|
|
|
|
"NickServ@services.slashnet.org"
|
2007-12-09 06:40:47 +00:00
|
|
|
|
"IDENTIFY" nil nil nil))
|
2006-01-29 13:08:58 +00:00
|
|
|
|
"Alist of NickServer details, sorted by network.
|
|
|
|
|
Every element in the list has the form
|
2007-12-09 06:40:47 +00:00
|
|
|
|
\(SYMBOL NICKSERV REGEXP NICK KEYWORD USE-CURRENT ANSWER SUCCESS-REGEXP)
|
2006-01-29 13:08:58 +00:00
|
|
|
|
|
|
|
|
|
SYMBOL is a network identifier, a symbol, as used in `erc-networks-alist'.
|
|
|
|
|
NICKSERV is the description of the nickserv in the form nick!user@host.
|
|
|
|
|
REGEXP is a regular expression matching the message from nickserv.
|
|
|
|
|
NICK is nickserv's nickname. Use nick@server where necessary/possible.
|
|
|
|
|
KEYWORD is the keyword to use in the reply message to identify yourself.
|
|
|
|
|
USE-CURRENT indicates whether the current nickname must be used when
|
|
|
|
|
identifying.
|
|
|
|
|
ANSWER is the command to use for the answer. The default is 'privmsg.
|
2007-12-09 06:40:47 +00:00
|
|
|
|
SUCCESS-REGEXP is a regular expression matching the message nickserv
|
|
|
|
|
sends when you've successfully identified.
|
|
|
|
|
The last two elements are optional."
|
2006-01-29 13:08:58 +00:00
|
|
|
|
:group 'erc-services
|
|
|
|
|
:type '(repeat
|
|
|
|
|
(list :tag "Nickserv data"
|
|
|
|
|
(symbol :tag "Network name")
|
2007-04-01 13:36:38 +00:00
|
|
|
|
(choice (string :tag "Nickserv's nick!user@host")
|
|
|
|
|
(const :tag "No message sent by Nickserv" nil))
|
|
|
|
|
(choice (regexp :tag "Identify request sent by Nickserv")
|
|
|
|
|
(const :tag "No message sent by Nickserv" nil))
|
2006-01-29 13:08:58 +00:00
|
|
|
|
(string :tag "Identify to")
|
|
|
|
|
(string :tag "Identify keyword")
|
|
|
|
|
(boolean :tag "Use current nick in identify message?")
|
|
|
|
|
(choice :tag "Command to use (optional)"
|
|
|
|
|
(string :tag "Command")
|
|
|
|
|
(const :tag "No special command necessary" nil)))))
|
|
|
|
|
|
2007-01-17 18:17:25 +00:00
|
|
|
|
(defsubst erc-nickserv-alist-sender (network &optional entry)
|
|
|
|
|
(nth 1 (or entry (assoc network erc-nickserv-alist))))
|
|
|
|
|
|
|
|
|
|
(defsubst erc-nickserv-alist-regexp (network &optional entry)
|
|
|
|
|
(nth 2 (or entry (assoc network erc-nickserv-alist))))
|
|
|
|
|
|
|
|
|
|
(defsubst erc-nickserv-alist-nickserv (network &optional entry)
|
|
|
|
|
(nth 3 (or entry (assoc network erc-nickserv-alist))))
|
|
|
|
|
|
|
|
|
|
(defsubst erc-nickserv-alist-ident-keyword (network &optional entry)
|
|
|
|
|
(nth 4 (or entry (assoc network erc-nickserv-alist))))
|
|
|
|
|
|
|
|
|
|
(defsubst erc-nickserv-alist-use-nick-p (network &optional entry)
|
|
|
|
|
(nth 5 (or entry (assoc network erc-nickserv-alist))))
|
|
|
|
|
|
|
|
|
|
(defsubst erc-nickserv-alist-ident-command (network &optional entry)
|
|
|
|
|
(nth 6 (or entry (assoc network erc-nickserv-alist))))
|
|
|
|
|
|
2007-12-09 06:40:47 +00:00
|
|
|
|
(defsubst erc-nickserv-alist-identified-regexp (network &optional entry)
|
|
|
|
|
(nth 7 (or entry (assoc network erc-nickserv-alist))))
|
|
|
|
|
|
2006-01-29 13:08:58 +00:00
|
|
|
|
;; Functions:
|
|
|
|
|
|
2007-12-09 06:40:47 +00:00
|
|
|
|
(defcustom erc-nickserv-identified-hook nil
|
|
|
|
|
"Run this hook when NickServ acknowledged successful identification.
|
|
|
|
|
Hooks are called with arguments (NETWORK NICK)."
|
|
|
|
|
:group 'erc-services
|
|
|
|
|
:type 'hook)
|
|
|
|
|
|
|
|
|
|
(defun erc-nickserv-identification-autodetect (proc parsed)
|
|
|
|
|
"Check for NickServ's successful identification notice.
|
|
|
|
|
Make sure it is the real NickServ for this network and that it has
|
|
|
|
|
specifically confirmed a successful identification attempt.
|
|
|
|
|
If this is the case, run `erc-nickserv-identified-hook'."
|
|
|
|
|
(let* ((network (erc-network))
|
|
|
|
|
(sender (erc-nickserv-alist-sender network))
|
|
|
|
|
(success-regex (erc-nickserv-alist-identified-regexp network))
|
|
|
|
|
(sspec (erc-response.sender parsed))
|
|
|
|
|
(nick (car (erc-response.command-args parsed)))
|
|
|
|
|
(msg (erc-response.contents parsed)))
|
|
|
|
|
;; continue only if we're sure it's the real nickserv for this network
|
|
|
|
|
;; and it's told us we've successfully identified
|
|
|
|
|
(when (and sender (equal sspec sender)
|
2008-01-10 03:51:14 +00:00
|
|
|
|
success-regex
|
2007-12-09 06:40:47 +00:00
|
|
|
|
(string-match success-regex msg))
|
|
|
|
|
(erc-log "NickServ IDENTIFY success notification detected")
|
|
|
|
|
(run-hook-with-args 'erc-nickserv-identified-hook network nick)
|
|
|
|
|
nil)))
|
|
|
|
|
|
2006-01-29 13:08:58 +00:00
|
|
|
|
(defun erc-nickserv-identify-autodetect (proc parsed)
|
2008-01-10 03:51:14 +00:00
|
|
|
|
"Identify to NickServ when an identify request is received.
|
|
|
|
|
Make sure it is the real NickServ for this network.
|
2006-01-29 13:08:58 +00:00
|
|
|
|
If `erc-prompt-for-nickserv-password' is non-nil, prompt the user for the
|
|
|
|
|
password for this nickname, otherwise try to send it automatically."
|
|
|
|
|
(unless (and (null erc-nickserv-passwords)
|
|
|
|
|
(null erc-prompt-for-nickserv-password))
|
|
|
|
|
(let* ((network (erc-network))
|
2007-01-17 18:17:25 +00:00
|
|
|
|
(sender (erc-nickserv-alist-sender network))
|
|
|
|
|
(identify-regex (erc-nickserv-alist-regexp network))
|
2006-01-29 13:08:58 +00:00
|
|
|
|
(sspec (erc-response.sender parsed))
|
|
|
|
|
(nick (car (erc-response.command-args parsed)))
|
|
|
|
|
(msg (erc-response.contents parsed)))
|
|
|
|
|
;; continue only if we're sure it's the real nickserv for this network
|
|
|
|
|
;; and it's asked us to identify
|
2007-01-17 18:17:25 +00:00
|
|
|
|
(when (and sender (equal sspec sender)
|
2008-01-10 03:51:14 +00:00
|
|
|
|
identify-regex
|
2006-01-29 13:08:58 +00:00
|
|
|
|
(string-match identify-regex msg))
|
|
|
|
|
(erc-log "NickServ IDENTIFY request detected")
|
|
|
|
|
(erc-nickserv-call-identify-function nick)
|
|
|
|
|
nil))))
|
|
|
|
|
|
|
|
|
|
(defun erc-nickserv-identify-on-connect (server nick)
|
|
|
|
|
"Identify to Nickserv after the connection to the server is established."
|
2007-01-05 02:09:07 +00:00
|
|
|
|
(unless (or (and (null erc-nickserv-passwords)
|
|
|
|
|
(null erc-prompt-for-nickserv-password))
|
|
|
|
|
(and (eq erc-nickserv-identify-mode 'both)
|
2007-01-17 18:17:25 +00:00
|
|
|
|
(erc-nickserv-alist-regexp (erc-network))))
|
2006-01-29 13:08:58 +00:00
|
|
|
|
(erc-nickserv-call-identify-function nick)))
|
|
|
|
|
|
|
|
|
|
(defun erc-nickserv-identify-on-nick-change (nick old-nick)
|
|
|
|
|
"Identify to Nickserv whenever your nick changes."
|
2007-01-05 02:09:07 +00:00
|
|
|
|
(unless (or (and (null erc-nickserv-passwords)
|
|
|
|
|
(null erc-prompt-for-nickserv-password))
|
|
|
|
|
(and (eq erc-nickserv-identify-mode 'both)
|
2007-01-17 18:17:25 +00:00
|
|
|
|
(erc-nickserv-alist-regexp (erc-network))))
|
2006-01-29 13:08:58 +00:00
|
|
|
|
(erc-nickserv-call-identify-function nick)))
|
|
|
|
|
|
|
|
|
|
(defun erc-nickserv-call-identify-function (nickname)
|
|
|
|
|
"Call `erc-nickserv-identify' interactively or run it with NICKNAME's
|
|
|
|
|
password.
|
|
|
|
|
The action is determined by the value of `erc-prompt-for-nickserv-password'."
|
|
|
|
|
(if erc-prompt-for-nickserv-password
|
|
|
|
|
(call-interactively 'erc-nickserv-identify)
|
|
|
|
|
(when erc-nickserv-passwords
|
|
|
|
|
(erc-nickserv-identify
|
|
|
|
|
(cdr (assoc nickname
|
|
|
|
|
(nth 1 (assoc (erc-network)
|
|
|
|
|
erc-nickserv-passwords))))))))
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun erc-nickserv-identify (password)
|
|
|
|
|
"Send an \"identify <PASSWORD>\" message to NickServ.
|
|
|
|
|
When called interactively, read the password using `read-passwd'."
|
|
|
|
|
(interactive
|
|
|
|
|
(list (read-passwd
|
|
|
|
|
(format "NickServ password for %s on %s (RET to cancel): "
|
|
|
|
|
(erc-current-nick)
|
|
|
|
|
(or (and (erc-network)
|
|
|
|
|
(symbol-name (erc-network)))
|
|
|
|
|
"Unknown network")))))
|
|
|
|
|
(when (and password (not (string= "" password)))
|
|
|
|
|
(let* ((erc-auto-discard-away nil)
|
|
|
|
|
(network (erc-network))
|
|
|
|
|
(nickserv-info (assoc network erc-nickserv-alist))
|
2007-01-17 18:17:25 +00:00
|
|
|
|
(nickserv (or (erc-nickserv-alist-nickserv nil nickserv-info)
|
|
|
|
|
"NickServ"))
|
|
|
|
|
(identify-word (or (erc-nickserv-alist-ident-keyword
|
|
|
|
|
nil nickserv-info)
|
|
|
|
|
"IDENTIFY"))
|
|
|
|
|
(nick (if (erc-nickserv-alist-use-nick-p nil nickserv-info)
|
2006-01-29 13:08:58 +00:00
|
|
|
|
(concat (erc-current-nick) " ")
|
|
|
|
|
""))
|
2007-01-17 18:17:25 +00:00
|
|
|
|
(msgtype (or (erc-nickserv-alist-ident-command nil nickserv-info)
|
|
|
|
|
"PRIVMSG")))
|
2006-01-29 13:08:58 +00:00
|
|
|
|
(erc-message msgtype
|
|
|
|
|
(concat nickserv " " identify-word " " nick password)))))
|
|
|
|
|
|
2006-02-08 02:41:23 +00:00
|
|
|
|
(provide 'erc-services)
|
2006-01-29 13:08:58 +00:00
|
|
|
|
|
2006-02-08 02:41:23 +00:00
|
|
|
|
;;; erc-services.el ends here
|
2006-01-29 13:08:58 +00:00
|
|
|
|
;;
|
|
|
|
|
;; Local Variables:
|
|
|
|
|
;; indent-tabs-mode: t
|
|
|
|
|
;; tab-width: 8
|
|
|
|
|
;; End:
|
|
|
|
|
|
|
|
|
|
;; arch-tag: d401c8aa-d938-4255-96a9-3efb64c47e58
|