Corriger la casse des caractères du nom d'un chan
Si une commande accepte le nom d'un chan comme argument, vous pourriez avoir besoin de corriger automatiquement la casse des caractères.
Veuillez noter que le bon fonctionnement de cette méthode se base sur le fait que le chan a été ajouté à l'Eggdrop avec avec la bonne casse au moyen de .+chan
Procédure
###############################################################################
### Correction de la casse des caractères du nom d'un chan.
###############################################################################
proc fix_chan_case {chan} {
if { [validchan $chan] } {
return [lindex [set chanlist [channels]] [lsearch -nocase -exact $chanlist $chan]]
} else {
return $chan
}
}
Exemple
fix_chan_case #testchan
Tcl: #TestChan