From 7e1e21439da08f65403b4df6895f4800f3ac69a3 Mon Sep 17 00:00:00 2001 From: w6vvn Date: Sat, 6 Sep 2025 17:17:02 -0700 Subject: [PATCH] refuse to visit non-gemini urls --- client.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/client.rkt b/client.rkt index 1ec14be..481f69b 100644 --- a/client.rkt +++ b/client.rkt @@ -109,7 +109,6 @@ [(and (>= status 20) (<= status 29)) - (let-values ([(doc) (gmi:parse (port->lines c-in))] [(db-in db-out) (make-pipe #f)]) @@ -150,4 +149,6 @@ (<= status 69)) (displayln "certificate handling not yet implemented")])))) - (iter url 5)))) + (if (not (string=? (url-scheme url) "gemini")) + (printf "unsupported url: ~a~n" (url->string url)) + (iter url 5)))))