| | 1 | #!/usr/bin/tclsh |
| | 2 | # usage: |
| | 3 | # cd ../ircbot |
| | 4 | # soemthing | ./spoutchan.tcl SERVER PORT NICK IDENT FULLNAME CHANNEL |
| | 5 | |
| | 6 | source irccore.tcl |
| | 7 | |
| | 8 | manyset $argv host port nick ident ownfullname channel |
| | 9 | |
| | 10 | proc connected {} { |
| | 11 | global channel |
| | 12 | sendout JOIN $channel |
| | 13 | } |
| | 14 | proc new_event {} { } |
| | 15 | proc privmsg_unlogged {args} { return 1 } |
| | 16 | proc msg_366 {args} { |
| | 17 | fconfigure stdin -blocking no |
| | 18 | fileevent stdin readable stdinread |
| | 19 | } |
| | 20 | proc stdinread {} { |
| | 21 | global channel |
| | 22 | if {[eof stdin]} { exit 0 } |
| | 23 | if {[gets stdin l] < 0} return |
| | 24 | sendprivmsg $channel $l |
| | 25 | } |
| | 26 | |
| | 27 | ensure_connecting |
| | 28 | vwait forever |
~mdw / ircbot / blame_incremental