Code: Select all
bind time - "?0 *" write:chans
bind time - "?5 *" write:chans
set listchannel "#thechannel"
set listfile "nicks.txt"
proc write:chans {m h d mo y} {
set f [open $::listfile "CREAT WRONLY TRUNK"]
puts $f [join [chanlist $::listchannel] ", "]
close $f
}