From 25d100abb097adb623c8f0ef4613b178a59cb9dd Mon Sep 17 00:00:00 2001
From: Ryan Kavanagh <rak@rak.ac>
Date: Sat, 6 Jun 2020 10:39:19 -0400
Subject: Tentative of connect for tlsutils

---
 gemini/tlsUtils.ml  | 16 ++++++++++++++++
 gemini/tlsUtils.mli |  1 +
 2 files changed, 17 insertions(+)

(limited to 'gemini')

diff --git a/gemini/tlsUtils.ml b/gemini/tlsUtils.ml
index 0916185..0ea00ab 100644
--- a/gemini/tlsUtils.ml
+++ b/gemini/tlsUtils.ml
@@ -1,6 +1,7 @@
 module type TLS_UTILS =
 sig
   type authenticator = X509_lwt.authenticator Lwt.t
+  type ciphers = Tls.Ciphersuite.ciphersuite list
 
   val null_auth : authenticator
 
@@ -9,11 +10,16 @@ sig
   val self_sign : ?bits:int -> ?days:int
     -> X509.Distinguished_name.t
     -> (Tls.Config.certchain, string) result
+
+  (*val connect : authenticator:authenticator -> ?peer_name:string ->
+    ?ciphers:ciphers -> string * int
+    -> (Lwt_io.input_channel * Lwt_io.output_channel) Lwt.t *)
 end
 
 module TlsUtils : TLS_UTILS =
 struct
   type authenticator = X509.Authenticator.t Lwt.t
+  type ciphers = Tls.Ciphersuite.ciphersuite list
 
   let null_auth = Lwt.return (fun ~host:_ -> fun _ -> Ok None)
 
@@ -36,4 +42,14 @@ struct
                 (`RSA priv) dnames with
         | Ok cert -> Ok ([cert], priv)
         | Error _ -> Error "Unable to sign")
+
+  (*let connect authenticator ?peer_name ?(ciphers=Tls.Config.Ciphers.default)
+      (host, port) =
+    let peer_name = match peer_name with
+      | Some name -> name
+      | None -> host in
+      Tls_lwt.connect_ext
+      Tls.Config.(client ~peer_name:peer_name ~authenticator
+                    ~ciphers ()) (host, port)
+  *)
 end
diff --git a/gemini/tlsUtils.mli b/gemini/tlsUtils.mli
index ba89de7..35a674d 100644
--- a/gemini/tlsUtils.mli
+++ b/gemini/tlsUtils.mli
@@ -1,6 +1,7 @@
 module type TLS_UTILS =
 sig
   type authenticator = X509_lwt.authenticator Lwt.t
+  type ciphers = Tls.Ciphersuite.ciphersuite list
 
   val null_auth : authenticator
 
-- 
cgit v1.2.3