4 # soemthing | ./spoutchan.tcl SERVER PORT NICK IDENT FULLNAME CHANNEL
8 manyset $argv host port nick ident ownfullname channel
15 proc privmsg_unlogged {args} { }
17 fconfigure stdin -blocking no
18 fileevent stdin readable stdinread
22 if {[gets stdin l] < 0} return
23 sendprivmsg $channel $l