Current File : //usr/local/share/emacs/27.2/lisp/erc/erc-identd.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 `erc-identd-mode' command\nfor 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) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\n\203# \312 \210\202& \313 \210\314\315\307\302!\2032 \316\2023 \317\"\210\320\321!\203^ \322\302!\210\304 \203K \304 \232\203^ \323\324\325\307\302!\203Y \326\202Z \327 #\210))\330 \210\307\302!\207" [#1=#:last-message arg erc-identd-mode local current-message set-default toggle default-value 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%s" "en" "dis" force-mode-line-update] 4 (#$ . 1312) (list (or current-prefix-arg 'toggle))])
(defvar erc-identd-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [erc-identd-mode-map erc-identd-mode-hook variable-documentation put "Hook run after entering or leaving `erc-identd-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" 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 (#$ . 2689) 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 (#$ . 2977) 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 (#$ . 3421)])
#@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 (#$ . 3890) (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 (#$ . 4692)])
(defalias 'erc-identd-stop #[(&rest ignore) "\205 \301!\210\302\211\207" [erc-identd-process delete-process nil] 2 nil nil])
(provide 'erc-identd)
Mini Shell