From 4a38c24aba3149720b544a5d5cb6b48348e5ad47 Mon Sep 17 00:00:00 2001
From: Luxferre <lux@ferre>
Date: Thu, 21 Nov 2024 19:46:55 +0200
Subject: [PATCH] fixed gopher/nex fetching

---
 tiifetch.tcl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tiifetch.tcl b/tiifetch.tcl
index 74cda86..e6c966c 100755
--- 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}