i need a tcl file to:

matt2kjones · Post by **matt2kjones** » Mon Apr 14, 2003 1:41 pm

I need a tcl file, which every minute, writes to a text file how many users are in the chat room the bot is connected in.

If anyone could do that for me, or could direct me to a pre made script then that wold be great

Thanx

Papillon · Post by **Papillon** » Mon Apr 14, 2003 1:48 pm

try searching in the tcl archive, or why not trying to make it yourself?

Post by **caesar** » Mon Apr 14, 2003 4:13 pm

Code: Select all

set status(file) "status.txt"
set status(chan) "#channel"

bind time - * chan:status

proc chan:status {args} {
  if {![validchan $::status(chan)]} {
    putlog "\002Warning!\002 Invalid channel $::status(chan).. Please replace it!"
    return
  }
  set file [open $::status(file) w]
  puts $file "Current $::status(chan) users: [llength [chanlist [string tolower $::status(chan)]]]"
  catch {close $file}
}