tcl
bind join - * autoop
proc autoop {nick host hand chan} {
if [string equal -nocase $chan #salon1] {
putserv "MODE $chan +o $nick"
}
if [string equal -nocase $chan #salon2] {
putserv "PRIVMSG $chan +v $nick"
}
}
C'est en reconnaissant ses erreurs que l'on progresse