eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Now switches to the user/group that owns the executable on startup.

This commit is contained in:
mysticbbs 2012-08-13 18:54:00 -04:00
parent acfb1eebf7
commit c91a1c93cb
2 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
mystic/mis.pas
View File

@ -337,6 +337,23 @@ Begin
SwitchFocus; SwitchFocus;
End; End;
{$IFDEF UNIX}
Procedure SetUserOwner;
Var
Info : Stat;
MysLoc : String;
Begin
MysLoc := GetEnv('mysticbbs');
If MysLoc <> '' Then MysLoc := DirSlash(MysLoc);
If fpStat(MysLoc + 'mis', Info) = 0 Then Begin
fpSetGID (Info.st_GID);
fpSetUID (Info.st_UID);
End;
End;
{$ENDIF}
Function ServerStartup : Boolean; Function ServerStartup : Boolean;
Begin Begin
Result := False; Result := False;
@ -393,6 +410,10 @@ Begin
Result := True; Result := True;
End; End;
{$IFDEF UNIX}
SetUserOwner;
{$ENDIF}
End; End;
{$IFDEF UNIX} {$IFDEF UNIX}

6
mystic/mystic.pas
View File

@ -182,7 +182,13 @@ Procedure Linux_Init;
Var Var
Count : Word; Count : Word;
TChat : ChatRec; TChat : ChatRec;
Info : Stat;
Begin Begin
If fpStat('mystic', Info) = 0 Then Begin
fpSetGID (Info.st_GID);
fpSetUID (Info.st_UID);
End;
Session.NodeNum := 0; Session.NodeNum := 0;
For Count := 1 to Config.INetTNNodes Do Begin For Count := 1 to Config.INetTNNodes Do Begin