[Jos Decoster] 22-dec-2006 To automatically redirect [Eggdrop] questions from #tcl to #eggtcl, I added this proc to tkchat: ====== proc ::tkchat::Bot { nick msg msgtype mark timestamp } { variable nick_seen if { ![string equal $msgtype NORMAL] } { return } if { [info exists nick_seen($nick)] && [expr {$timestamp - $nick_seen($nick)}] < 3600 } { return } if { ![string match -nocase "*eggdrop*" $msg] } { return } tkjabber::msgSend "$nick, for more information about eggdrop, also take a look at \#eggtcl or http://wiki.tcl.tk/16656" set nick_seen($nick) $timestamp } ====== and called it from ::tkchat::addMessage like this: ====== tkchat::Bot $nick $msg $msgtype $mark $timestamp ====== <> Uncategorized