[Résolu] Badreal channel

[IluZi0n]

[font=Trebuchet MS]Bonjour!

J'ai trouvé sur le net un tcl de "Badreal" d’après la configuration il faut crée un fichier nommé "badfullname.txt" sous cette forme:

#Salon *badword1* *badword2* etc...
Ce que j'ai fait... mais le script ne réagit pas aucuns Kick/Ban.
Savez -vous de quoi peut venir l'erreur ?

tclcopier

#Put the TCL rehash, then edit badfullname.txt from the main directory
#put in the text file like that :
# #channel1 *word1* *word2*..
# #channel2 *word3 *word4..
#And then rehash.
#You can put as many channels and words as you want.
#
 
set bad(reason) "Votre situation ne vous autorise pas à entré sur ce salon!"

#Here you can set the time for the ban (minutes)
 
set bad(time) "20"

#Here you can set the flags that are excepted
 
set bad(flags) "o|o"
 
 
setudef flag badfullname
set Autor "BLaCkShaDoW"
set vers "1.1"
 
if {[file exists badfullname.txt] == 0} {
set afile [open badfullname.txt a]
close $afile
}
 
bind join -|- "* *" badrealname
 
proc badrealname {nickname hostname handle channel} {
global botnick
set dir "badfullname.txt"
set ::cchan $channel
set ::nnick $nickname
set ::hhost $hostname
set file [open $dir "r"]
set data [read -nonewline $file]
close $file
if {$data == ""} { return 0 }
set split [split $data "\n"]
foreach line $split {
set chanentry [lindex [split $line] 0]
if {[string match -nocase $channel $chanentry]} {
if {![botisop $channel]} { return 0 }
if {[onchan $nickname $channel]} {
putquick "WHOIS $nickname $nickname"
bind RAW - 311 badfullnames
}
}
}
}
 
proc badfullnames { from keyword arguments } {
global botnick bad
set channel $::cchan
set nickname $::nnick
set host $::hhost
set dir "badfullname.txt"
set handle "[nick2hand $nickname]"
set fullname [string range [join [lrange $arguments 5 end]] 1 end]
if {[onchan $nickname $channel]} {
          set banmask *!*@[lindex [split [getchanhost $nickname $channel] "@"] 1]
   }
set file [open $dir "r"]
set data [read -nonewline $file]
close $file
if {$data == ""} { return 0 }
set split [split $data "\n"]
foreach line $split {
set chanentry [lindex [split $line] 0]
if {[string match -nocase $channel $chanentry]} {
set fullnameentry [lrange [split $line] 1 end]
  foreach realname [string tolower $fullnameentry] {
if {[string match $realname [string tolower $fullname]]} {
if {[matchattr $handle $bad(flags) $channel]} { return 0 }
newchanban $channel $banmask $botnick $bad(reason) [expr $bad(time)]
}
}
}
}
unbind RAW - 311 badfullnames
}
 
putlog "Bad Fullname $vers by $Autor Loaded !"

Merci de votre aide
Cordialement,[/font]

[IluZi0n]

Hello,

Le problème à été trouvé, le code fonctionne donc je le partage ! pour ceux qu'il le veulents.
Il suffi de ne pas mettre d'espace dans le badfullname.txt

Ex: #salon */server* ne pas mettre */server irc*

Amicalement,