tii

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

commit 419dece4e2c36a40373abaeb13c923b0dc06b96f
parent 6bc8a2072c20fd9790b0788e79961f8d94098fce
Author: Luxferre <lux@ferre>
Date:   Sun, 27 Oct 2024 09:48:54 +0200

added ID hash mismatch display to tiix

Diffstat:
Mtiix.tcl | 4++++
1 file changed, 4 insertions(+), 0 deletions(-)

diff --git a/tiix.tcl b/tiix.tcl @@ -164,6 +164,10 @@ proc tiix_viewecho {} { set textw .tabbar.r.content.text $textw insert end "\[$renderedts\] " linkinsert $textw $msg(msgid) 1 + set msg(content_id) [string trim $msg(content_id)] + if {$msg(msgid) ne $msg(content_id)} { + $textw insert end " (ID hash mismatch!)" + } set msg(echoname) [string trim $msg(echoname)] set msg(msgfrom) [string trim $msg(msgfrom)] set msg(msgfromaddr) [string trim $msg(msgfromaddr)]