Stat_nb

**Dylan** Mar 29 Déc - 5:04

Code:: set canal "#Accueil" 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 "/home/webzz/www/accueil.txt" "w"] puts $fp [llength [chanlist $::canal]] close $fp return 1 }