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

refactor(echo): simplify code, use gzip aggressively

Browse source
This commit is contained in:
Simon Cruanes 2020-05-27 21:40:20 -04:00
parent 4f730ec7b6
commit bbe8d1c504
1 changed files with 2 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/examples/echo.ml
View file

@ -11,18 +11,14 @@ let () =
"-j", Arg.Set_int j, " maximum number of connections"; "-j", Arg.Set_int j, " maximum number of connections";
]) (fun _ -> raise (Arg.Bad "")) "echo [option]*"; ]) (fun _ -> raise (Arg.Bad "")) "echo [option]*";
let server = S.create ~port:!port_ ~max_connections:!j () in let server = S.create ~port:!port_ ~max_connections:!j () in
Tiny_httpd_camlzip.setup server; Tiny_httpd_camlzip.setup ~compress_above:1024 ~buf_size:(1024*1024) server;
(* say hello *) (* say hello *)
S.add_route_handler ~meth:`GET server S.add_route_handler ~meth:`GET server
S.Route.(exact "hello" @/ string @/ return) S.Route.(exact "hello" @/ string @/ return)
(fun name _req -> S.Response.make_string (Ok ("hello " ^name ^"!\n"))); (fun name _req -> S.Response.make_string (Ok ("hello " ^name ^"!\n")));
S.add_route_handler ~meth:`GET server S.add_route_handler ~meth:`GET server
S.Route.(exact "zcat" @/ string @/ return) S.Route.(exact "zcat" @/ string_urlencoded @/ return)
(fun path _req -> (fun path _req ->
let path = match Tiny_httpd_util.percent_decode path with
| Some s -> s
| None -> S.Response.fail_raise ~code:404 "invalid path %S" path
in
let ic = open_in path in let ic = open_in path in
let str = S.Byte_stream.of_chan ic in let str = S.Byte_stream.of_chan ic in
let mime_type = let mime_type =