4 # soemthing | ./spoutchan.tcl SERVER PORT NICK IDENT FULLNAME CHANNEL
8 manyset
$argv host port nick ident ownfullname channel
15 proc privmsg_unlogged
{args
} { return 1 }
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