luxferre/tii
1
0
Fork 0
Code Actions Activity

removed mismatch warning

Browse Source
This commit is contained in:
Luxferre
2024-11-21 19:27:40 +02:00
parent 91b42cfb9e
commit 92fcea502e
6 changed files with 613 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tiifetch.tcl
+2 -2
View File
@@ -131,14 +131,14 @@ proc getfile {url} {
}
switch $scheme {
gophers - gopher - finger - nex {
if {$scheme eq "gophers"} {set localtls 1}
if {$scheme eq "gophers"} {set localtls 2} else {set localtls 0}
reqresp $host $port $sel $localtls utf-8
set body "$sock_response"
set sock_response ""
return $body
}
gemini - spartan {
if {$scheme eq "gemini"} {set localtls 1}
if {$scheme eq "gemini"} {set localtls 1} else {set localtls 0}
reqresp $host $port $sel $localtls utf-8
set body "$sock_response"
set sock_response ""