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 {[eof stdin]} { exit 0 }
23 if {[gets stdin l] < 0} return
24 sendprivmsg $channel $l