Join chan

[CrazyCat]

Il y a quelque chose qui me gène dans le script donné par ArKeNiS:

tclcopier

foreach host $vhost {
     if {![string match -nocase $host $uhost]} {
      set hostmask "[getchanhost $nick $channel]"
      set raison " \00304$nick - \00302Vous n'êtes pas autorisé à être sur ce salon."
       putquick "KICK $channel $pseudo $raison"
       putquick "MODE $channel +bb $hostmask $pseudo"
     }
   }

Donc dès que $uhost est différent de $host, la personne est bannie ?
Pour ma part, je ferai:

tclcopier

foreach host $vhost {
   if {[string match -nocase $host $uhost]} {
      return 1
   }
   set hostmask "[getchanhost $nick $channel]"
   set raison " \00304$nick - \00302Vous n'êtes pas autorisé à être sur ce salon."
   putquick "KICK $channel $pseudo $raison"
   putquick "MODE $channel +bb $hostmask $pseudo"
}