blob: e5757d82a355a5187304cb797f15668898526759 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
unit pwd;
interface
uses
initc,baseunix,ctypes;
{$IFDEF FPC}
{$PACKRECORDS C}
{$ENDIF}
const
External_library= clib; {Setup as you need}
const
_PATH_PWD = '/etc';
_PATH_PASSWD = '/etc/passwd';
_PASSWD = 'passwd';
_PATH_MASTERPASSWD = '/etc/master.passwd';
{$ifdef Darwin}
_PATH_MASTERPASSWD_LOCK = '/etc/ptmp';
{$endif}
_MASTERPASSWD = 'master.passwd';
_PATH_MP_DB = '/etc/pwd.db';
_MP_DB = 'pwd.db';
_PATH_SMP_DB = '/etc/spwd.db';
_SMP_DB = 'spwd.db';
_PATH_PWD_MKDB = '/usr/sbin/pwd_mkdb';
{$ifdef BSD}
_PW_VERSION_MASK = #$F0;
function _PW_VERSIONED(x,v : longint) : cuchar; inline;
const
_PW_KEYBYNAME = #$31; { stored by name }
_PW_KEYBYNUM = #$32; { stored by entry in the "file"}
_PW_KEYBYUID = #$33; { stored by uid }
{$ifdef FreeBSD}
_PW_KEYYPENABLED = #$34; { YP is enabled }
_PW_KEYYPBYNUM = #$35; { special +@netgroup entries }
{$endif}
{ The database also contains a key to indicate the format version of
* the entries therein. There may be other, older versioned entries
* as well. }
const
{$ifdef FreeBSD}
_PWD_VERSION_KEY = #$FF+'VERSION';
_PWD_CURRENT_VERSION = #$4;
{$endif}
_PASSWORD_EFMT1 = '_'; { extended encryption format }
_PASSWORD_LEN = 128; { max length, not counting NULL }
{$ifdef Darwin}
_PASSWORD_NOUID = $01; (* flag for no specified uid. *)
_PASSWORD_NOGID = $02; (* flag for no specified gid. *)
_PASSWORD_NOCHG = $04; (* flag for no specified change. *)
_PASSWORD_NOEXP =$08; (* flag for no specified expire. *)
_PASSWORD_WARNDAYS = 14; (* days to warn about expiry *)
_PASSWORD_CHGNOW = -1; (* special day to force password
* change at next login *)
{$endif}
{$endif}
type
{ Darwin uses __darwin_time_t, but that is an alias for time_t }
PPasswd = ^TPasswd;
PPPasswd = ^PPasswd;
Passwd = record
pw_name : pchar; { user name }
pw_passwd : pchar; { encrypted password }
pw_uid : Tuid; { user uid }
pw_gid : Tgid; { user gid }
{$ifdef bsd}
pw_change : Ttime platform; { password change time }
pw_class : pchar platform; { user access class }
{$endif}
pw_gecos : pchar; { Honeywell login info }
pw_dir : pchar; { home directory }
pw_shell : pchar; { default shell }
{$ifdef bsd}
pw_expire : Ttime platform; { account expiration }
{$ifdef FreeBSD}
pw_fields : cint platform; { internal: fields filled in }
{$endif}
{$endif}
end;
TPasswd = Passwd;
{$ifdef FreeBSD}
const
_PWF_NAME = 1;
_PWF_PASSWD = 2;
_PWF_UID = 4;
_PWF_GID = 8;
_PWF_CHANGE = $10;
_PWF_CLASS = $20;
_PWF_GECOS = $40;
_PWF_DIR = $80;
_PWF_SHELL = $100;
_PWF_EXPIRE = $200;
_PWF_SOURCE = $3000;
_PWF_FILES = $1000;
_PWF_NIS = $2000;
_PWF_HESIOD = $3000;
{$endif}
function fpgetpwnam (name:pchar):PPasswd; cdecl;external External_library name 'getpwnam';
function fpgetpwuid (id:tuid):PPasswd;cdecl;external External_library name 'getpwuid';
procedure fpendpwent;cdecl;external External_library name 'endpwent';
function fpgetpwent:ppasswd;cdecl;external External_library name 'getpwent';
procedure fpsetpwent;cdecl;external External_library name 'setpwent';
function fpgetpwnam_r (namepara1:pchar; pwd:Ppasswd; buffer:pchar; bufsize:size_t; pwresult:PPpasswd):cint;cdecl;external External_library name 'getpwnam_r';
function fpgetpwuid_r (uid:uid_t; pwd:Ppasswd; buffer:pchar; buffersize:size_t; pwresult:PPpasswd):cint;cdecl;external External_library name 'getpwuid_r';
{$ifndef Darwin}
function fpgetpwent_r (pwd:Ppasswd; buffer:pchar; buffersize:size_t; pwresult:PPpasswd):cint;cdecl;external External_library name 'getpwent_r';
{$endif}
implementation
{$ifdef BSD}
function _PW_VERSIONED (x,v : longint) : cuchar; inline;
begin
_PW_VERSIONED:= (x and $CF) or (v shl 4);
end;
{$endif}
end.
|
