Création de fichier | écriture

[CrazyCat]

Je pense qu'utiliser un timer n'est pas une bonne idée... plutôt réagir à ce qui fait varier le nombre d'utilisateurs:

tclcopier

set canal "#canal"
bind join - "$canal *" log:join
proc log:join {nick uhost handle chan} { log:write }
 
bind part - "$canal *" log:part
proc log:part {nick uhost handle chan {msg ""}} { log:write }
 
bind kick - "$canal *" log:kick
proc log:kick {nick uhost handle chan target reason} { log:write }
 
bind sign - "$canal *" log:quit
proc log:quit {nick uhost handle chan reason} { log:write }
 
proc log:write {} {
   set fp [open "./usernb.$::canal" "w"]
   puts $fp [llength [chanlist $::canal]]
   close $fp
   return 1
}