Function: erc-identd-filter

erc-identd-filter is a byte-compiled function defined in erc-identd.el.gz.

Signature

(erc-identd-filter PROC STRING)

Documentation

This filter implements RFC1413 (identd authentication protocol).

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-identd.el.gz
(defun erc-identd-filter (proc string)
  "This filter implements RFC1413 (identd authentication protocol)."
  (let ((erc-identd-process proc))
    (when (string-match "\\([0-9]+\\)\\s-*,\\s-*\\([0-9]+\\)" string)
      (let ((port-on-server (match-string 1 string))
	    (port-on-client (match-string 2 string)))
	(send-string erc-identd-process
		     (format "%s, %s : USERID : %s : %s\n"
			     port-on-server port-on-client
			     system-type (user-login-name)))
	(stop-process erc-identd-process)
	(delete-process proc)))))