Log.tcl

[CrazyCat]

Oui, au temps pour moi, j'ai eu un abus de langage. Je voulais dire dans chaque procédure appelée par les binds.
Par exemple, pour la procédure logger:text :

tclcopier

proc logger:text {nick uhost handle chan text} {
   global logger
   set chan [string tolower $chan]
   set text [logger:strip $text]
   if {[isop $nick $chan] == "1"} {
      set nick "@$nick"
   } elseif {[ishalfop $nick $chan] == "1"} {
      set nick "%$nick"
   } elseif {[isvoice $nick $chan] == "1"} {
      set nick "+$nick"
   }
   logger:save $chan "$logger(color2)($nick) $text"
}

Et retirer l'appel à logger:strip dans logger:save

Je ne suis pas certain que cela ait un effet quelconque, surtout dans le cas de cette procédure où aucune modification n'est faite sur le texte reçu. Et j'imagine que le bug est peut-être un peu plus insidieux