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}