FastCGI implementation in OCaml
anil.recoil.org
1(* Simple Hello World FastCGI Responder application *)
2
3open Fastcgi
4
5let hello_handler request response =
6 let _http_req = Responder.request_of_fastcgi request in
7 let http_resp = Responder.response_of_fastcgi response in
8
9 http_resp.write_status 200;
10 http_resp.write_header "Content-Type" "text/html";
11 http_resp.write_body "<h1>Hello, FastCGI!</h1>";
12 http_resp.write_body "<p>This is a simple FastCGI responder application.</p>";
13 http_resp.finish ();
14
15 { app_status = 0; protocol_status = Request_complete }
16
17let () = Eio_main.run @@ fun env ->
18 let net = Eio.Stdenv.net env in
19 Eio.Switch.run @@ fun sw ->
20 Server.run_default ~sw ~net
21 ~handler:(Handler.Responder hello_handler)
22 ~listen_address:(`Tcp ("127.0.0.1", 9000))