-#!/usr/bin/tclsh8.2
+#!/usr/bin/tclsh
# usage:
# cd ../ircbot
# soemthing | ./spoutchan.tcl SERVER PORT NICK IDENT FULLNAME CHANNEL
sendout JOIN $channel
}
proc new_event {} { }
-proc privmsg_unlogged {args} { }
+proc privmsg_unlogged {args} { return 1 }
proc msg_366 {args} {
fconfigure stdin -blocking no
fileevent stdin readable stdinread