added ID hash mismatch display to tiix
This commit is contained in:
@@ -164,6 +164,10 @@ proc tiix_viewecho {} {
|
|||||||
set textw .tabbar.r.content.text
|
set textw .tabbar.r.content.text
|
||||||
$textw insert end "\[$renderedts\] "
|
$textw insert end "\[$renderedts\] "
|
||||||
linkinsert $textw $msg(msgid) 1
|
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(echoname) [string trim $msg(echoname)]
|
||||||
set msg(msgfrom) [string trim $msg(msgfrom)]
|
set msg(msgfrom) [string trim $msg(msgfrom)]
|
||||||
set msg(msgfromaddr) [string trim $msg(msgfromaddr)]
|
set msg(msgfromaddr) [string trim $msg(msgfromaddr)]
|
||||||
|
|||||||
Reference in New Issue
Block a user