petite astuce pour les binds pub/msg indentique

[CrazyCat]

Moi, j'ai plus propre et plus explicite, et qui lave plus blanc même à basse température:

tclcopier

bind pub o !op op:pub
bind msg o !op op:msg
 
proc op:pub {nick uhost handle chan args} {
   pushmode $chan +o $nick
}
proc op:msg {nick uhost handle args} {
   if {!validchan [lindex $args 0]} { return 0;}
   op:pub $nick $uhost $handle [lindex $args 0] {""}
}

En plus, ça permet de faire facilement des contrôles différents en fonction du mode d'appel de la commande.