|
@@ -1,8 +1,14 @@
|
|
|
|
+{$IFNDEF FPC_DOTTEDUNITS}
|
|
unit users;
|
|
unit users;
|
|
|
|
+{$ENDIF FPC_DOTTEDUNITS}
|
|
|
|
|
|
Interface
|
|
Interface
|
|
{$mode delphi}
|
|
{$mode delphi}
|
|
|
|
+{$IFDEF FPC_DOTTEDUNITS}
|
|
|
|
+uses UnixApi.Types,UnixApi.Base,UnixApi.Pwd,UnixApi.Grp, {$ifdef Linux} UnixApi.Shadow,{$endif}System.SysUtils,System.Classes;
|
|
|
|
+{$ELSE FPC_DOTTEDUNITS}
|
|
uses UnixType,BaseUnix,pwd,grp, {$ifdef Linux} shadow,{$endif}SysUtils,Classes;
|
|
uses UnixType,BaseUnix,pwd,grp, {$ifdef Linux} shadow,{$endif}SysUtils,Classes;
|
|
|
|
+{$ENDIF FPC_DOTTEDUNITS}
|
|
|
|
|
|
Type
|
|
Type
|
|
EUserLookupError = Class(Exception);
|
|
EUserLookupError = Class(Exception);
|
|
@@ -64,7 +70,7 @@ EShadowNotPermitted = 'Not enough permissions to access shadow password file';
|
|
Function getpwnam(Const UserName: AnsiString) : PPasswordRecord;
|
|
Function getpwnam(Const UserName: AnsiString) : PPasswordRecord;
|
|
|
|
|
|
begin
|
|
begin
|
|
- Result:=pwd.fpgetpwnam(PAnsiChar(UserName));
|
|
|
|
|
|
+ Result:={$IFDEF FPC_DOTTEDUNITS}UnixApi.{$ENDIF}Pwd.fpgetpwnam(PAnsiChar(UserName));
|
|
end;
|
|
end;
|
|
|
|
|
|
Procedure GetUserData(Const UserName : AnsiString; Var Data : TPasswordRecord);
|
|
Procedure GetUserData(Const UserName : AnsiString; Var Data : TPasswordRecord);
|
|
@@ -179,7 +185,7 @@ end;
|
|
Function getgrnam(Const GroupName: AnsiString) : PGroup;
|
|
Function getgrnam(Const GroupName: AnsiString) : PGroup;
|
|
|
|
|
|
begin
|
|
begin
|
|
- Result:=grp.fpgetgrnam(PAnsiChar(GroupName));
|
|
|
|
|
|
+ Result:={$IFDEF FPC_DOTTEDUNITS}UnixApi.{$ENDIF}Grp.fpgetgrnam(PAnsiChar(GroupName));
|
|
end;
|
|
end;
|
|
|
|
|
|
Procedure GetGroupData(Const GroupName : AnsiString; Var Data : TGroup); overload;
|
|
Procedure GetGroupData(Const GroupName : AnsiString; Var Data : TGroup); overload;
|
|
@@ -294,13 +300,13 @@ end;
|
|
function getspnam(UserName : AnsiString): PPasswordFileEntry;
|
|
function getspnam(UserName : AnsiString): PPasswordFileEntry;
|
|
|
|
|
|
begin
|
|
begin
|
|
- result:=shadow.getspnam(PAnsiChar(UserName));
|
|
|
|
|
|
+ result:={$IFDEF FPC_DOTTEDUNITS}UnixApi.{$ENDIF}Shadow.getspnam(PAnsiChar(UserName));
|
|
end;
|
|
end;
|
|
|
|
|
|
function sgetspent(Line : AnsiString): PPasswordFileEntry;
|
|
function sgetspent(Line : AnsiString): PPasswordFileEntry;
|
|
|
|
|
|
begin
|
|
begin
|
|
- Result:=shadow.sgetspent(PAnsiChar(Line));
|
|
|
|
|
|
+ Result:={$IFDEF FPC_DOTTEDUNITS}UnixApi.{$ENDIF}shadow.sgetspent(PAnsiChar(Line));
|
|
end;
|
|
end;
|
|
|
|
|
|
Procedure GetUserShadowData(Const UserName : AnsiString; Var Data : TPasswordFileEntry);
|
|
Procedure GetUserShadowData(Const UserName : AnsiString; Var Data : TPasswordFileEntry);
|