Gecko [ 122.154.134.11 ]

Name	Size	Permission
erc-autoaway.elc	11.58 KB	-rw-r--r--
erc-backend.elc	154.28 KB	-rw-r--r--
erc-button.elc	16.69 KB	-rw-r--r--
erc-capab.elc	7.67 KB	-rw-r--r--
erc-compat.elc	4.38 KB	-rw-r--r--
erc-dcc.elc	39.39 KB	-rw-r--r--
erc-ezbounce.elc	5.19 KB	-rw-r--r--
erc-fill.elc	6.71 KB	-rw-r--r--
erc-goodies.elc	32.55 KB	-rw-r--r--
erc-hecomplete.elc	7.96 KB	-rw-r--r--
erc-ibuffer.elc	6.77 KB	-rw-r--r--
erc-identd.elc	4.86 KB	-rw-r--r--
erc-imenu.elc	2.61 KB	-rw-r--r--
erc-join.elc	6.03 KB	-rw-r--r--
erc-lang.elc	4.68 KB	-rw-r--r--
erc-list.elc	9.25 KB	-rw-r--r--
erc-log.elc	14.83 KB	-rw-r--r--
erc-match.elc	19.02 KB	-rw-r--r--
erc-menu.elc	6.15 KB	-rw-r--r--
erc-netsplit.elc	7.94 KB	-rw-r--r--
erc-networks.elc	39.94 KB	-rw-r--r--
erc-notify.elc	9.37 KB	-rw-r--r--
erc-page.elc	4.88 KB	-rw-r--r--
erc-pcomplete.elc	10.62 KB	-rw-r--r--
erc-replace.elc	3.85 KB	-rw-r--r--
erc-ring.elc	5.21 KB	-rw-r--r--
erc-services.elc	15.01 KB	-rw-r--r--
erc-sound.elc	5.59 KB	-rw-r--r--
erc-speedbar.elc	10 KB	-rw-r--r--
erc-spelling.elc	4.66 KB	-rw-r--r--
erc-stamp.elc	14.9 KB	-rw-r--r--
erc-track.elc	34.83 KB	-rw-r--r--
erc-truncate.elc	4.18 KB	-rw-r--r--
erc-xdcc.elc	5.74 KB	-rw-r--r--
erc.elc	219.16 KB	-rw-r--r--

Code Editor : erc-identd.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:02 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/erc/erc-identd.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`erc-identd.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\301\302!\210\303B\304\303!\204�\305\303\306\"\210\307\310\306\311\312\302%\207" [current-load-list require erc erc-identd-process default-boundp set-default nil custom-declare-group erc-identd "Run a local identd server." :group] 6)
#@133 Port to run the identd server on if not specified in the argument for
`erc-identd-start'.

This can be either a string or a number.
(custom-declare-variable 'erc-identd-port '8113 '(#$ . 865) :group 'erc-identd :type '(choice (const :tag "None" nil) (integer :tag "Port number") (string :tag "Port string")))
#@266 Non-nil if Erc-Identd mode is enabled.
See the command `erc-identd-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `erc-identd-mode'.
(custom-declare-variable 'erc-identd-mode 'nil '(#$ . 1181) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-identd :type 'boolean)
#@141 Toggle ERC identd mode.
With arg, turn ERC identd mode on if and only if arg is positive.
This mode launches an identd server on port 8113.
(defalias 'erc-identd-mode #[(&optional arg) "\303 	\304=\203�\n?\202(�	\203�\305	!\306V\202(�\n\204\"�\307\202(�\310\311\302\"\210\312\211\2033�\313 \210\2026�\314 \210\315\316\n\203@�\317\202A�\320\"\210\321 \203e�\322\302!\210\303 \203X�\303 \232\203e�\310\323\n\203b�\324\202c�\325\"\210)\326 \210\n\207" [#1=#:last-message arg erc-identd-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil 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 customize-mark-as-set "Erc-Identd mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 1615) (list (or current-prefix-arg 'toggle))])
(byte-code "\300\301\302\303\304!\205�\304J#\207" [add-minor-mode erc-identd-mode nil boundp erc-identd-mode-map] 5)
#@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 (#$ . 2623) 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 (#$ . 2911) 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 (#$ . 3355)])
#@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 (#$ . 3824) (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 (#$ . 4626)])
(defalias 'erc-identd-stop #[(&rest ignore) "\205�\301!\210\302\211\207" [erc-identd-process delete-process nil] 2 nil nil])
(provide 'erc-identd)

${this.title}

Code Editor : erc-identd.elc