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

  1. set thischannel [string range $channel 1 end]
  2. foreach ch [dict keys [dict get $ops $nickname]] {
  3. if {$ch eq $thischannel} {
  4. set l "$ch is $thischannel"
  5. } else {
  6. set l "$ch is not $thischannel $ch ="
  7. foreach c [split $ch {}] {
  8. scan $c %c x
  9. append l [format " %x" $x]
  10. }
  11. append l " " $thischannel " ="
  12. foreach c [split $thischannel {}] {
  13. scan $c %c x
  14. append l [format " %x" $x]
  15. }
  16. }
  17. putquick "PRIVMSG #ops :[encoding convertto utf-8 $l]"
  18. }