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

details in example

Browse source
This commit is contained in:
Simon Cruanes 2023-06-05 21:50:55 -04:00
parent 072a6041be
commit 55ef988aa4
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 19 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
examples/echo_eio.ml
View file

@ -120,9 +120,15 @@ let () =
(* stats *)
S.add_route_handler server
S.Route.(exact "stats" @/ return)
(fun _req ->
let stats = get_stats () in
S.Response.make_string @@ Ok stats);
S.add_route_handler server ~meth:`POST
S.Route.(exact "quit" @/ return)
(fun _req ->
let stats = get_stats () in
S.Response.make_string @@ Ok stats);
S.stop server;
S.Response.make_string (Ok "quitting"));
(* main page *)
S.add_route_handler server
@ -175,6 +181,14 @@ let () =
txt " (GET) to access a VFS embedded in the binary";
];
];
li []
[
pre []
[
a [ A.href "/quit/" ] [ txt "/quit (POST)" ];
txt " have the server stop";
];
];
];
];
]
@ -183,6 +197,8 @@ let () =
S.Response.make_string ~headers:[ "content-type", "text/html" ] @@ Ok s);
Printf.printf "listening on http://%s:%d\n%!" (S.addr server) (S.port server);
match S.run server with
let res = S.run server in
Gc.print_stat stdout;
match res with
| Ok () -> ()
| Error e -> raise e