Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


Join chan
#16
@djkenny: Effectivement j'avais en party-line, No such Variable $pseudo, je l'ai remplacé par nick, et puis le bot kick tous les Joins sur le salons, mais les nicks avec les vhost autorisées.
Je vais tester celui que tu viens de me poster. Merci bcp
#17
Le bot Kick tous les nick qui Join le salon, ce que je veux faire c'est juste une exception des Vhost que j'ai défini dans la Variable "Set Vhost", pour qu'il ne les kicks pas.
#18
Salut,

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


tcl
#######################
## 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"
   }
}

#19
@alias_angelius: Merci pour la réponse, mais avec ce code j'ai cette erreur en party-line, et le bot ne kick plus.


Code:
Tcl error [pub:join]: invalid command name "
   *@NetAdmin.*.org
   *@TechAdmin.*.org
   *@BotAdmin.*.org
   *@Local.*.org
"
#20
essaye de remplacer :


tcl
if {![$vhost $nick]} {


par :


tcl
if {![$host $nick]} {

#21
alias_angelius Wrote:essaye de remplacer :


tcl
if {![$vhost $nick]} {


par :


tcl
if {![$host $nick]} {

dans les 2 cas ça ne veut rien dire...

@Aristide: revois la variables vhost, a mon avis t as du faire une erreur dans la configuration car la dernière version que je t ai donné fonctionne parfaitement lorsque que j ajoute mon host dans la liste.
C'est en reconnaissant ses erreurs que l'on progresse ;)
Away
#22
Bah un tcl d'autorisation avec un flag se ferait en 4 lignes et serait beaucoup plus simple


Forum Jump:


Users browsing this thread: 1 Guest(s)