Posted to tcl by kbk at Thu Feb 25 01:33:59 GMT 2021view pretty

set thischannel [string range $channel 1 end]
foreach ch [dict keys [dict get $ops $nickname]] {
    if {$ch eq $thischannel} {
	set l "$ch is $thischannel"
    } else {
	set l "$ch is not $thischannel $ch ="
	foreach c [split $ch {}] {
	    scan $c %c x
	    append l [format " %x" $x]
	}
	append l " " $thischannel " ="
	foreach c [split $thischannel {}] {
	    scan $c %c x
	    append l [format " %x" $x]
	}
    }
    putquick "PRIVMSG #ops :[encoding convertto utf-8 $l]"
}