tii

Tcl-based suite for working with ii/idec protocol
git clone git://git.luxferre.top/tii.git
Log | Files | Refs | README

commit 7a5c03510b30b4599823f7d7b66c2c98a0c678b0
parent 5f77e76d18814c12a01c35c16bf208d3fb5c59b1
Author: Luxferre <lux@ferre>
Date:   Wed, 23 Oct 2024 15:21:20 +0300

fetch/post fixes

Diffstat:
Mtiifetch.tcl | 6++++--
1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/tiifetch.tcl b/tiifetch.tcl @@ -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