luxferre/tii
1
0
Fork 0
Code Actions Activity

fetch/post fixes

Browse Source
This commit is contained in:
Luxferre
2024-10-23 15:21:20 +03:00
parent 5f77e76d18
commit 7a5c03510b
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tiifetch.tcl
+2
View File
@@ -207,9 +207,11 @@ proc fetchiidb {url echos dbdir dolog} {
set line [string trim $line] set line [string trim $line]
# detect if the line is related to echo name or message ID # detect if the line is related to echo name or message ID
if {[string first "." $line] eq -1} { # message ID if {[string first "." $line] eq -1} { # message ID
if {[string length $line] == 20} { # filter out invalid IDs
if {$curecho ne ""} { if {$curecho ne ""} {
dict lappend echomap $curecho $line dict lappend echomap $curecho $line
} }
}
} else { # echo name } else { # echo name
set curecho $line set curecho $line
dict set echomap $curecho "" dict set echomap $curecho ""