Refuse to connect to a 100k gopherhole if TLS is not available in the…

… system
erkin · Jun 26, 2019 · ce61360 · ce61360
1 parent 993bd3a
commit ce61360
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/gopher.rkt b/src/gopher.rkt
@@ -20,8 +20,11 @@
                 ;; TLS handshake fails.
                 (cond
                   ;; https://github.com/erkin/gophwr/wiki/TLS#100k-convention
-                  ((and ssl-available? (> port 100000))
-                   (ssl-connect/enable-break host (- port 100000)))
+                  ((> port 100000)
+                   (if ssl-available?
+                       (ssl-connect/enable-break host (- port 100000))
+                       (raise-user-error
+                        "This gopherhole requires TLS to connect.")))
                   ((tls-enabled?)
                    (ssl-connect/enable-break host port))
                   (else