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

accept http1.0

Browse source
This commit is contained in:
Simon Cruanes 2020-05-27 13:23:02 -04:00
parent 5c56cb7f1e
commit eaa2c9b3b7
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Tiny_httpd.ml
View file

@ -456,7 +456,10 @@ module Request = struct
try
let line = Byte_stream.read_line ~buf bs in
let meth, path =
try Scanf.sscanf line "%s %s HTTP/1.1\r" (fun x y->x,y)
try
let m, p, v = Scanf.sscanf line "%s %s HTTP/1.%d\r" (fun x y z->x,y,z) in
if v != 0 && v != 1 then raise Exit;
m, p
with _ ->
_debug (fun k->k "invalid request line: `%s`" line);
raise (Bad_req (400, "Invalid request line"))