Code: Select all
bind time - * {set f [open foo w]; puts $f [llength [chanlist #chan]]; close $f;#}
Code: Select all
# set your feed(s) sources here: feed name, channel, poll frequency in mins, feed URL
#
#set feeds(osnews:#chan1) {17 http://www.osnews.com/files/recent.rdf}
#set feeds(google:#chan2) {11 http://news.google.com/news?ned=us&topic=h&output=rss}
Code: Select all
set chan #yours
bind link - * foo
bind disc - * foo
proc foo {args} {
set bot [lindex $args 0]
set via [lindex $args 1]
if {$via != ""} {set t "$bot has linked via $via"} {set t "$bot delinked"}
puthelp "privmsg $::chan :$t"
}