Join chan

[djkenny]

euh, t es sur de toi? car en fait il y a une erreur dans le code que je t ai filé et ça ne peut pas fonctionner (il ne pouvais pas kickban vu que la variable $pseudo n'existe pas).

tclcopier

#######################
## Secure Join Staff ##
#######################
 
set chekback "#test"
 
set vhost {
   *@NetAdmin.*.org
   *@TechAdmin.*.org
   *@BotAdmin.*.org
}
 
bind join - "*" pub:join
proc pub:join { nick uhost handle channel } {
   global chekback vhost
   if [string equal -nocase $channel $chekback] {
      foreach host $vhost {
         if [string match -nocase $host $uhost] {
            return 1
         }
      }
      set raison " \00304$nick - \00302Vous n'êtes pas autorisé à être sur ce salon."
      putquick "KICK $channel $nick :$raison"
      putquick "MODE $channel +bb *!$uhost $nick*!*@*"
   }
}

celui la fonctionne, je l ai testé!!