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

Also close connection if response's headers contains connection: close (#33)

Browse source
This commit is contained in:
Christophe Raffalli 2021-12-16 05:54:48 -10:00 • committed by Simon Cruanes
parent 0c94a8aab0
commit a5e2e47b17
No known key found for this signature in database
GPG key ID: 4AC01D0849AA62B6
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Tiny_httpd.ml
View file

@ -1089,7 +1089,10 @@ let handle_client_ (self:t) (client_sock:Unix.file_descr) : unit =
(* how to reply *)
let resp r =
try Response.output_ oc r
try
if Headers.get "connection" r.Response.headers = Some"close" then
continue := false;
Response.output_ oc r
with Sys_error _ -> continue := false
in