;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (require 'erc) (defvar erc-identd-process nil) (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315%\210\306\316\310\311\317DD\320\321\322\323\324\314\325\304\301& \207" [custom-declare-group erc-identd nil "Run a local identd server." :group erc custom-declare-variable erc-identd-port funcall function #[0 "\300\207" [8113] 1 #1=""] "Port to run the identd server on.\nThis can be overridden by specifying an 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 #[0 "\300\207" [nil] 1 #1#] "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)#@247 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. (fn &optional ARG) (defalias 'erc-identd-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B \203B\313 \210\202E\314 \210\315\316\305\301!\203Q\317\202R\320\"\210\321\322!\203{\323\301!\210\302 \203j\211\302 \232\203{\324\325\326\305\301!\203w\327\202x\330\331$\210\210\332 \210\305\301!\207" [global-minor-modes erc-identd-mode current-message set-default toggle default-value 1 nil t boundp delq 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 "%s %sabled%s" "Erc-Identd mode" "en" "dis" "" force-mode-line-update] 7 (#$ . 1087) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar erc-identd-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\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.)" custom-type hook standard-value nil add-minor-mode erc-identd-mode boundp] 6)#@25 Enable ERC identd mode. (defalias 'erc-identd-enable #[0 "\302>\203 \210\202\302B\303\304\305\306\"\210\304\307\310\"\207" [erc-modules erc-identd-mode identd t add-hook erc-connect-pre-hook erc-identd-quickstart erc-disconnected-hook erc-identd-stop] 3 (#$ . 2675) nil])#@26 Disable ERC identd mode. (defalias 'erc-identd-disable #[0 "\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 (#$ . 2960) nil]) (byte-code "\300\301\302\303#\210\300\301\304\303#\210\300\305\304\303#\210\300\306\304\303#\207" [put erc-identd-mode erc-module identd definition-name erc-identd-enable erc-identd-disable] 4)#@84 This filter implements RFC1413 (identd authentication protocol). (fn PROC STRING) (defalias 'erc-identd-filter #[514 "\302\303\"\205&\304\305\"\304\306\"\307\310\311 \312 %\"\210\313!\210\314!\266\202)\207" [erc-identd-process 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] 12 (#$ . 3433)])#@334 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. (fn &optional PORT) (defalias 'erc-identd-start #[256 "\211\204\262\211;\203\302!\262 \203\303 !\210\304\305\306\307\310\311\312\313\314\315\316\315\317\315\320\321&\322 \310\"\207" [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] 18 (#$ . 3869) (byte-code "\300\301\302\"C\207" [read-string "Serve identd requests on port: " "8113"] 3)])#@120 Start the identd server with the default port. The default port is specified by `erc-identd-port'. (fn &rest IGNORED) (defalias 'erc-identd-quickstart #[128 "\300 \207" [erc-identd-start] 2 (#$ . 4714)])#@21 (fn &rest IGNORE) (defalias 'erc-identd-stop #[128 "\205 \301!\210\302\211\207" [erc-identd-process delete-process nil] 3 (#$ . 4924) nil]) (provide 'erc-identd)