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
|
Program TestPass2;
Uses pwd,grp,baseunix,sysutils;
{$mode objfpc}{$h+}
Procedure printpchar(fieldname:String;p:pchar);
Begin
If assigned(p) Then
Begin
write(fieldname);
write(':',' ':15-length(fieldname));
writeln(p);
End;
End;
Procedure printpchar(fieldname,p:string);
Begin
printpchar(fieldname,pchar(p));
End;
Var p : PPasswd;
supplementary_gids : array[0..99] Of gid_t;
i,nrgids: cint;
pgrp: PGroup;
Begin
p := fpgetpwnam('marcov');
If assigned(p) Then
Begin
printpchar('pw_name',p^.pw_name);
printpchar('pw_passwd',p^.pw_passwd);
writeln('pw_uid:',' ':9,p^.pw_uid);
writeln('pw_gid:',' ':9,p^.pw_gid);
{$ifdef BSD}
printpchar('pw_change',inttostr(p^.pw_change));
printpchar('pw_class',p^.pw_class);
{$endif}
printpchar('pw_gecos',p^.pw_gecos);
printpchar('pw_dir',p^.pw_dir);
printpchar('pw_shell',p^.pw_shell);
{$ifdef BSD}
printpchar('pw_expire',inttostr(p^.pw_expire));
{$ifdef FreeBSD}
printpchar('pw_fields',inttostr(p^.pw_fields));
{$endif}
{$endif}
End;
nrgids := 100;
If fpgetgrouplist(p^.pw_name,p^.pw_gid,@supplementary_gids,@nrgids)<>-1 Then
Begin
Write ('Supplementary groups:');
For i:=0 To nrgids-1 Do
Begin
pgrp := fpgetgrgid(supplementary_gids[i]);
If assigned(pgrp) Then
write(pgrp^.gr_name,' (',supplementary_gids[i],') ')
Else
write(' ???? (',supplementary_gids[i],') ')
End;
writeln;
End;
writeln;
End.
|
