help needed

[floid]

I need a very simple script, it would be great if somebody could help me out: The script should write the current number of users in a certain channel to a text file.

[demond]

Code: Select all

set f [open file.txt w]
puts $f [llength [chanlist #yourchan]]
close $f

[floid]

Code: Select all

set f [open file.txt w]
puts $f [llength [chanlist #yourchan]]
close $f

thanks! can you also expand the script, so that is automatically updates the file every minute? thanks a lot in advance!

[demond]

Code: Select all

bind time - * countusers
proc countusers {m h d mo y} {
  set f [open file.txt w]
  puts $f [llength [chanlist #yourchan]]
  close $f 
}

[spock]

countusers is an existing tcl command so its probably a good idea to give the proc a different name

[demond]

wisely said, spock

Code: Select all

bind time - * countchan
proc countchan {m h d mo y} {
  set f [open file.txt w]
  puts $f [llength [chanlist #yourchan]]
  close $f
}