| Current Path : /usr/share/emacs/24.3/lisp/erc/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/erc/erc-identd.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:38 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/erc/erc-identd.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'erc) (defvar erc-identd-process nil) (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\304\301\312\313&\210\306\314\302\315\316\317\320\321\304\301\312\322& \207" [custom-declare-group erc-identd nil "Run a local identd server." :group erc custom-declare-variable erc-identd-port 8113 "Port to run the identd server on if not specified in the argument for\n`erc-identd-start'.\n\nThis can be either a string or a number." :type (choice (const :tag "None" nil) (integer :tag "Port number") (string :tag "Port string")) erc-identd-mode "Non-nil if Erc-Identd mode is enabled.\nSee the command `erc-identd-mode' for a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `erc-identd-mode'." :set custom-set-minor-mode :initialize custom-initialize-default boolean] 12) #@227 Toggle ERC identd mode. With a prefix argument ARG, enable identd if ARG is positive, and disable it otherwise. If called from Lisp, enable the mode if ARG is omitted or nil. This mode launches an identd server on port 8113. (defalias 'erc-identd-mode #[(&optional arg) "\303 \304=\203 \n?\202 \305 !\306V\211\203 \307 \210\202! \310 \210\311\312\n\203+ \313\202, \314\"\210\315\316!\203Q \317\302!\210\303 \203D \303 \232\203Q \320\321\n\203N \322\202O \323\"\210)\324 \210\n\207" [#1=#:last-message arg erc-identd-mode current-message toggle prefix-numeric-value 0 erc-identd-enable erc-identd-disable run-hooks erc-identd-mode-hook erc-identd-mode-on-hook erc-identd-mode-off-hook called-interactively-p any customize-mark-as-set message "Erc-Identd mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 1460) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n \303\211%\207" [erc-identd-mode-map add-minor-mode erc-identd-mode nil boundp] 6) #@25 Enable ERC identd mode. (defalias 'erc-identd-enable #[nil "\301\302\303\"\210\304\305\306\307\"\210\305\310\311\"\207" [erc-identd-mode add-to-list erc-modules identd t add-hook erc-connect-pre-hook erc-identd-quickstart erc-disconnected-hook erc-identd-stop] 3 (#$ . 2454) nil]) #@26 Disable ERC identd mode. (defalias 'erc-identd-disable #[nil "\302\303\"\304\305\306\307\"\210\305\310\311\"\207" [erc-modules erc-identd-mode delq identd nil remove-hook erc-connect-pre-hook erc-identd-quickstart erc-disconnected-hook erc-identd-stop] 3 (#$ . 2742) nil]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-identd-mode definition-name identd erc-identd-enable erc-identd-disable] 4) #@66 This filter implements RFC1413 (identd authentication protocol). (defalias 'erc-identd-filter #[(proc string) "\306\307\n\"\205' \310\311\n\"\310\312\n\" \313 \314\315\f \316 %\"\210\317 !\210\320!*)\207" [proc erc-identd-process string port-on-client port-on-server system-type string-match "\\([0-9]+\\)\\s-*,\\s-*\\([0-9]+\\)" match-string 1 2 send-string format "%s, %s : USERID : %s : %s\n" user-login-name stop-process delete-process] 8 (#$ . 3186)]) #@313 Start an identd server listening to port 8113. Port 113 (auth) will need to be redirected to port 8113 on your machine -- using iptables, or a program like redir which can be run from inetd. The idea is to provide a simple identd server when you need one, without having to install one globally on your system. (defalias 'erc-identd-start #[(&optional port) "\204 ;\203 \303!\n\203 \304\n!\210\305\306\307\310\311\312\313\314\315\316\317\316\320\316\321\322&\323\n\311\"\207" [port erc-identd-port erc-identd-process string-to-number delete-process make-network-process :name "identd" :buffer nil :host local :service :server t :noquery :nowait :filter erc-identd-filter set-process-query-on-exit-flag] 17 (#$ . 3655) (list (read-string "Serve identd requests on port: " "8113"))]) #@100 Start the identd server with the default port. The default port is specified by `erc-identd-port'. (defalias 'erc-identd-quickstart #[(&rest ignored) "\300 \207" [erc-identd-start] 1 (#$ . 4457)]) (defalias 'erc-identd-stop #[(&rest ignore) "\205 \301!\210\302\211\207" [erc-identd-process delete-process nil] 2 nil nil]) (provide 'erc-identd)