From 7c57c8af3293d490f35edd92cd885e0969aa5d1a Mon Sep 17 00:00:00 2001
From: David Florness <david@florness.com>
Date: Mon, 9 Mar 2020 22:55:34 -0600
Subject: [PATCH] Ask user if he wants to use SSL

---
 client.rkt | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/client.rkt b/client.rkt
index 9ad7cbc..5433158 100644
--- a/client.rkt
+++ b/client.rkt
@@ -26,6 +26,7 @@
     [type : Symbol])]
   [update-host (-> requester String requester)]
   [update-port (-> requester Integer requester)]
+  [update-ssl  (-> requester Boolean requester)]
   [json-requester requester]
   [#:struct json-response
    ([status : String]
@@ -299,9 +300,17 @@
   (define point (gen))
 
   (define bulletin
-    (update-port (update-host json-requester
-                              (readline "Bulletin host: "))
-                 1984))
+    (update-ssl
+     (update-port (update-host json-requester
+                               (readline "Bulletin host: "))
+                  1984)
+     (let loop ()
+       (case (readline "Enable encryption via SSL? [Y/n] ")
+         [("" "y" "Y") #t]
+         [("n" "N") #f]
+         [else
+          (displayln "Please answer with a `y' or `n'.")
+          (loop)]))))
 
   ; check if we're allowed to register
   (let-values ([(answer why) (can-we-register? bulletin)])
-- 
2.38.4