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

Zombie killer

This commit is contained in:
g00r00 2013-10-01 19:01:10 -04:00
parent 25af81e712
commit eaa1abb2fd
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
mystic/mis_client_telnet.pas
View File

@ -132,14 +132,15 @@ End;
{$IFDEF USEFORK}
Procedure TTelnetServer.Execute;
Var
Num : LongInt;
NI : TNodeInfoRec;
PID : LongInt;
PTYFD : LongInt;
RDFDSET : TFDSet;
Count : LongInt;
Buffer : Array[1..8 * 1024] of Char;
MaxFD : LongInt;
Num : LongInt;
NI : TNodeInfoRec;
PID : LongInt;
PTYFD : LongInt;
RDFDSET : TFDSet;
Count : LongInt;
Buffer : Array[1..8 * 1024] of Char;
MaxFD : LongInt;
WaitStat : LongInt;
Begin
Client.FTelnetServer := True;
@ -198,6 +199,9 @@ Begin
fpClose (PTYFD);
Repeat
Until fpWaitPID(PID, WaitStat, WUNTRACED) = PID;
NI.Busy := False;
NI.IP := '';
NI.User := '';