Re: Is Username Expansion possible in GNUS?

[Sudish Joseph <sudish@mindspring.com>]

"Edward J. Sabol" <sabol@thuban.gsfc.nasa.gov> writes:
> It doesn't use getpwnam(3); instead it loads /etc/passwd into a
> buffer and searches that.
> 
> For large sites, one is more likely to use YP, NIS, NIS+, Ph, or
> Kerberos to look up such information. In such case, I believe you

Isn't getpwnam() supposed to work under all those conditions?
Hallvard Furuseth's idea was cool, so I did it using perl.  Not
beautiful, but it works.

-Sudish


(defun getpwnam (name)
  "Results of getpwnam(name) as a list of 9 strings; nil on failure"
  (save-excursion
    (set-buffer (get-buffer-create " *getpwnam*"))
    (if (or (/= 0
		(call-process "perl" nil t nil "-e"
			      (format "print join ':', getpwnam('%s')"
				      name)))
	    (bobp))
	(not (kill-buffer (current-buffer))) ; crockery
      (goto-char 1)
      (save-match-data
	(looking-at "\\(.*\\):\\(.*\\):\\(.*\\):\\(.*\\):\\(.*\\):\\(.*\\):\\(.*\\):\\(.*\\):\\(.*\\)")
	(let ((l (list
		  (match-string 1) (match-string 2) (match-string 3)
		  (match-string 4) (match-string 5) (match-string 6)
		  (match-string 7) (match-string 8) (match-string 9))))
	  (kill-buffer (current-buffer))
	  l)))))