tii

commit 4a38c24aba3149720b544a5d5cb6b48348e5ad47
parent 92fcea502ee5cb34e01f9c7b7774ecdb82da1161
Author: Luxferre <lux@ferre>
Date:   Thu, 21 Nov 2024 19:46:55 +0200

fixed gopher/nex fetching

Diffstat:
M
tiifetch.tcl
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/tiifetch.tcl b/tiifetch.tcl
@@ -45,12 +45,12 @@ proc url2dict {inputurl} {
     gophers -
     gopher {
       if {$rport eq ""} {set rport 70}
-      set selector [string cat [string range $rpath 1 end] "\r\n"]
+      set selector [string cat "/" [string range $rpath 1 end] "\r\n"]
       dict set out handler render_handler_gopher
     }
     finger {
       if {$rport eq ""} {set rport 79}
-      set selector "$selector\r\n"
+      set selector "/$selector\r\n"
     }
     spartan {
       if {$rport eq ""} {set rport 300}
@@ -63,7 +63,7 @@ proc url2dict {inputurl} {
     }
     nex {
       if {$rport eq ""} {set rport 1900}
-      set selector "$selector\r\n"
+      set selector "/$selector\r\n"
     }
     gemini {
       if {$rport eq ""} {set rport 1965}