Return to PasswordLookup.cr CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / courier / examples / passwd

BSD 4.3

PasswordLookup : PROGRAM =

BEGIN

    -- This is a translation of the passwd structure in <pwd.h>

    Passwd : TYPE = RECORD [
	pw_name, pw_passwd : STRING,
	pw_uid, pw_gid, pw_quota : LONG CARDINAL,
	pw_comment, pw_gecos, pw_dir, pw_shell : STRING
    ];

    -- Remote entry points.

    LookupUser : PROCEDURE [user : STRING] RETURNS [passwd : Passwd]
		    = 0;

    LookupUid : PROCEDURE [uid : CARDINAL] RETURNS [passwd : Passwd]
		    = 1;
END.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.