w6vvn/gem300
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refuse to visit non-gemini urls

Browse Source
This commit is contained in:
w6vvn
2025-09-06 17:17:02 -07:00
parent b4d226477e
commit 7e1e21439d
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
client.rkt
View File

@@ -109,7 +109,6 @@
[(and (>= status 20) [(and (>= status 20)
(<= status 29)) (<= status 29))
(let-values ([(doc) (gmi:parse (port->lines c-in))] (let-values ([(doc) (gmi:parse (port->lines c-in))]
[(db-in db-out) (make-pipe #f)]) [(db-in db-out) (make-pipe #f)])
@@ -150,4 +149,6 @@
(<= status 69)) (<= status 69))
(displayln "certificate handling not yet implemented")])))) (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)))))