Remove debugging.

diff --git a/bot.tcl b/bot.tcl
index 87d8545268a7f3f799752d4147fc4ad85a9227da..95febc412a389a8c4e42efe67dc064c5c656b804 100755 (executable)
--- a/bot.tcl
+++ b/bot.tcl
@@ -49,7 +49,6 @@ proc onread {args} {
     global sock
     
     if {[gets $sock line] == -1} { set terminate 1; return }
-binary scan $line H* inhex; puts >$inhex<
     regsub -all "\[^ -\176\240-\376\]" $line ? line
     set org $line
     if {[regexp -nocase {^:([^ ]+) (.*)} $line dummy prefix remain]} {