From 7a5c03510b30b4599823f7d7b66c2c98a0c678b0 Mon Sep 17 00:00:00 2001
From: Luxferre <lux@ferre>
Date: Wed, 23 Oct 2024 15:21:20 +0300
Subject: [PATCH] fetch/post fixes

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

diff --git a/tiifetch.tcl b/tiifetch.tcl
index 790d58d..dfa299f 100755
--- 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