bonjour,
je men remet à vous car je rencontre un souci sur un TCL.
en effet lors du joins du pseudo qui est enregistrer dans le .db sur un salon définie l'user est voice est si il n'est pas dans le .db il est kickban du salon.
mon souci c'est qu'il prend pas l'extension de l'user donc il refuse de le voice donc mon bot le kickban.
ex: si l'user joins le salon en pseudo|eggdrop le bot le kickban
et j'aimerais qu'il prenne le pseudo avec l'extension et les caractères \[ ]\
cordialement
je men remet à vous car je rencontre un souci sur un TCL.
en effet lors du joins du pseudo qui est enregistrer dans le .db sur un salon définie l'user est voice est si il n'est pas dans le .db il est kickban du salon.
mon souci c'est qu'il prend pas l'extension de l'user donc il refuse de le voice donc mon bot le kickban.
ex: si l'user joins le salon en pseudo|eggdrop le bot le kickban
et j'aimerais qu'il prenne le pseudo avec l'extension et les caractères \[ ]\
tcl
# //-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//
# Commencement du Script TCL
# //-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//
# //-//-//-//-//-//-//- Début De la Configuration -//-//-//-//-//-//-//
# Indiquer le salon
set phenom(salon) "Salon"
# Indiquer ici le message de kick de la personne qui ne sera pas autoriser à entrer sur votre salon
set phenom(kickmsg) "Access Non Autoriser pour ce salon ! "
# Le Systeme de Procédure lors du Joins de la personne
bind join - "$::phenom(salon) *" phenomAutorisation
proc phenomAutorisation {nick uhost hand chan} {
global botnick phenom
if {![acceesalon $nick]} {
putserv "PRIVMSG $::phenom(salon) :\00314Autorisation \0034° \00314Refusé\00314 \0034°\0034"
putserv "KICK $chan $nick : $::phenom(kickmsg)"
return 1
}
if {[acceesalon $nick]} {
putserv "PRIVMSG $::phenom(salon) :\00314Autorisation \00303°\00314Accepté\00303° \00314pour le salon $::phenom(salon)"
putserv "MODE $chan +vvvv $nick"
return 0
}
}
# Ne pas toucher Systeme Proc !!
proc acceesalon {nick} {
set fa [open "Salon.db" r]
while {![eof $fa]} {
set get [gets $fa]
if {![string compare [string tolower $get] [string tolower $nick]]} {
return 1
}
}
close $fo
return 0
}
# Céation du fichier Manquant
if {![file exist Salon.db]} {
.......
}
cordialement
