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

4
mystic/mis_client_telnet.pas
View File

@ -140,6 +140,7 @@ Var
Count : LongInt; Count : LongInt;
Buffer : Array[1..8 * 1024] of Char; Buffer : Array[1..8 * 1024] of Char;
MaxFD : LongInt; MaxFD : LongInt;
WaitStat : LongInt;
Begin Begin
Client.FTelnetServer := True; Client.FTelnetServer := True;
@ -198,6 +199,9 @@ Begin
fpClose (PTYFD); fpClose (PTYFD);
Repeat
Until fpWaitPID(PID, WaitStat, WUNTRACED) = PID;
NI.Busy := False; NI.Busy := False;
NI.IP := ''; NI.IP := '';
NI.User := ''; NI.User := '';