Miscellany

listen 23456 script vbulletinaccept
proc vbulletinaccept {idx} {
	control $idx vbincoming
}
proc vbincoming {idx args} {
putlog "$args <-- this is what the board sent to the bot"
  set line [join $args]
	if {[join $args] != "" } {
	  set chan [lindex $line 0]
	  set line [lrange $line 1 end] 
	  set line [join $line]
	  set line [split $line ";"]
	foreach line $line { putserv "PRIVMSG $chan :$line" }
	}
killdcc $idx
}