Join chan

[aliasangelius]

Salut,

Tien essaye ça mais suis pas sur de mon coup j'ai pas tester le code :

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."
      if {![$vhost $nick]} {
      putquick "KICK $channel $nick :$raison"
      putquick "MODE $channel +bb *!$uhost $nick*!*@*"
   }
   } else {
    putserv "privmsg $chekback :\0034Autorisation pour \002\[$nick\] \0034acceptée."
    pushmode $chan +v $nick"
   }
}