fetch/post fixes
This commit is contained in:
+4
-2
@@ -207,8 +207,10 @@ proc fetchiidb {url echos dbdir dolog} {
|
||||
set line [string trim $line]
|
||||
# detect if the line is related to echo name or message ID
|
||||
if {[string first "." $line] eq -1} { # message ID
|
||||
if {$curecho ne ""} {
|
||||
dict lappend echomap $curecho $line
|
||||
if {[string length $line] == 20} { # filter out invalid IDs
|
||||
if {$curecho ne ""} {
|
||||
dict lappend echomap $curecho $line
|
||||
}
|
||||
}
|
||||
} else { # echo name
|
||||
set curecho $line
|
||||
|
||||
Reference in New Issue
Block a user