可以在ocaml cohttp或conduit中获取远程IP地址吗？

Question

是否可以在管道或cohttp级别获取远程IP地址？我试着挖掘源代码，但它似乎被埋在几层抽象层之下。我正在编写rest服务，并计划将其部署为单内核，并且记录请求者的IP地址是一项安全需求。

我正在使用cohttp，希望在unix (用于测试)和xen (用于部署)中都能做到这一点。如果需要，我可以为这两个环境添加条件代码。

Answer 1

我将the example in cohttp's readme修改为：

open Sexplib
[...]

  let callback (flow, _connection_id) req body =
    Conduit_lwt_unix.sexp_of_flow flow |> Sexp.to_string |> print_endline;

当我从localhost连接时，它打印出：

(TCP((fd <opaque>)(ip(V4 127.0.0.1))(port 62168)))

(弄清楚这一点并不是很明显；我只是将示例中的_conn替换为()，并遵循类型错误...)