cherche tcl pseudo

[CrazyCat]

Il n'y a pas de tcl comme ça qui existe, mais c'est faisable:

tclcopier

set canal "#chan"
set fichier "liste.html"
bind join - "$canal *" list:join
bind part - "$canal *" list:part
bind sign - "$canal *" list:quit
 
proc list:join {nick uhost handle chan} { list:log; }
proc list:part {nick uhost handle chan text} {
   if {$nick != $::botnick} { list:log; }
}
proc list:quit {nick uhost handle chan text} {
   if {$nick != $::botnick} { list:log; }
}
proc list:log {} {
   set fp [open $::fichier r]
   foreach cnick [chanlist $::canal] {
      puts $fp $cnick
   }
   close $fp
}