paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-25 07:08:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

disable KeepAlive flag in CloseConnectionSocket to close hanging keep-alive connections

Browse Source
This commit is contained in:
Ondrej Pokorny 2022-11-03 12:35:40 +01:00 committed by Michael Van Canneyt
parent 0dbf40a24c
commit a1a30876d5
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-web/src/base/fphttpserver.pp
View File

@ -652,7 +652,10 @@ end;
procedure TFPHTTPServerConnectionListHandler.CloseConnectionSocket(aConnection: TFPHTTPConnection; var aContinue: boolean);
begin
if Not aConnection.IsUpgraded then
begin
sockets.CloseSocket(aConnection.Socket.Handle);
aConnection.FKeepAlive:=False; // to exit the keep-alive loop for hanging sockets
end;
end;
procedure TFPHTTPServerConnectionListHandler.Foreach(aIterator: TConnectionIterator);