Création de fichier | écriture

Code :

proc start:timer {} {

[llength [chanlist #....-fr]]

set f [open "...../user.txt" "w"]

puts $f [llength [chanlist #....-fr]]

close $f

timer 5 start:timer

return

}

start:timer

tcl

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
}