unikernel/duniverse/ocaml-tls/lwt/examples/resume_client.ml

@@ -0,0 +1,39 @@
+
+open Lwt
+open Ex_common
+
+let http_client ?ca ?fp hostname port =
+  let port          = int_of_string port in
+  auth ?ca ?fp () >>= fun authenticator ->
+  let config = get_ok (Tls.Config.client ~authenticator ()) in
+  Tls_lwt.Unix.connect config (hostname, port) >>= fun t ->
+  Tls_lwt.Unix.write t "foo\n" >>= fun () ->
+  let cs = Bytes.create 4 in
+  Tls_lwt.Unix.read t cs >>= fun _len ->
+  let cached_session = match Tls_lwt.Unix.epoch t with
+    | Ok e -> e
+    | Error () -> invalid_arg "error retrieving epoch"
+  in
+  Tls_lwt.Unix.close t >>= fun () ->
+  Printf.printf "closed session\n" ;
+  let config = get_ok (Tls.Config.client ~authenticator ~cached_session ()) in
+  Tls_lwt.connect_ext config (hostname, port) >>= fun (ic, oc) ->
+  let req = String.concat "\r\n" [
+    "GET / HTTP/1.1" ; "Host: " ^ hostname ; "Connection: close" ; "" ; ""
+  ] in
+  Lwt_io.(write oc req >>= fun () -> read ic >>= print >>= fun () -> printf "++ done.\n%!")
+
+let () =
+  try
+    match Sys.argv with
+    | [| _ ; host ; port ; "FP" ; fp |] -> Lwt_main.run (http_client host port ~fp)
+    | [| _ ; host ; port ; trust |] -> Lwt_main.run (http_client host port ~ca:trust)
+    | [| _ ; host ; port |]         -> Lwt_main.run (http_client host port)
+    | [| _ ; host |]                -> Lwt_main.run (http_client host "443")
+    | args                          -> Printf.eprintf "%s <host> <port>\n%!" args.(0)
+  with
+  | Tls_lwt.Tls_alert alert as exn ->
+      print_alert "remote end" alert ; raise exn
+  | Tls_lwt.Tls_failure fail as exn ->
+      print_fail "our end" fail ; raise exn
+