simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-14 23:06:05 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Also close connection if response's headers contains connection: close

Browse source
This commit is contained in:
craff 2021-12-15 18:39:09 -10:00
parent 6a3ffdfd9b
commit 893475734b
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Tiny_httpd.ml
View file

@ -1034,6 +1034,8 @@ let handle_client_ (self:t) (client_sock:Unix.file_descr) : unit =
let resp r = let resp r =
try try
let r = post_process_resp r in let r = post_process_resp r in
if Headers.get "connection" r.Response.headers = Some"close" then
continue := false;
Response.output_ oc r Response.output_ oc r
with Sys_error _ -> continue := false with Sys_error _ -> continue := false
in in