Communauté Eggdrop

Salut all,

j'ai trouver ce script :

Code :
##################################

# ce programme permet d'interdir certains mots sur un chan sinon la personne riske le kick

# puis le ban au bout de 3 kicks !

# Attention cepdt ce TCL crée parfois des pb chez les bots (surtt sous windows !)

##################################

############################################################################

# File Name   : badwords.tcl

# Author      : SOLaL <alain@antinea.org>

############################################################################

set bwLog "badwords.tcl"

set bwVersion "1.0b"

set bwCopyright "(c) 1999-2000 SOLaL <alain@antinea.org>"

set bwChan "#buffy"

# YOU SHOULDN'T MODIFY ANTYTHING BELOW THIS LINE

set bwRun 1

set bwArray() ""

set bwNumber 0

set bwFilename "badwordsfile.txt"

############################################################################

# MAIN proc

############################################################################

if { ![info exists bwLoaded] } {

    putlog "$bwLog (c) 2000 SOLaL <alain@antinea.org>"

    set bwLoaded 1

} else {

    putlog "$bwLog : Already loaded..."

}

# Load the badwords file into memory

if { [file exists $bwFilename] } {

    set fd [open $bwFilename r]

    while { ![eof $fd] } {

        set bwArray($bwNumber) [gets $fd]

        incr bwNumber

    }

    close $fd

}

############################################################################

# CONTROL proc

############################################################################

bind pub o|o !control bwControl

proc bwControl {nick uhost hand channel args} {

    global bwChan bwLog bwVersion bwCopyright bwRun

    set channel [string tolower $channel]

    if { $bwChan != $channel } {

        return 0

    }

    putserv "PRIVMSG $bwChan :$bwLog ($bwVersion) - $bwCopyright"

    return 0

}

############################################################################

# VER proc

############################################################################

bind pub o|o !ver bwVersion

proc bwVersion {nick uhost hand channel args} {

    global bwChan bwLog bwVersion bwCopyright bwRun

    set channel [string tolower $channel]

    if { $bwChan != $channel } {

        return 0

    }

    putserv "PRIVMSG $bwChan :$bwLog ($bwVersion) - $bwCopyright"

    return 0

}

############################################################################

# SURVEYpub proc

############################################################################

bind pubm - * bwSurveypub

proc bwSurveypub {nick uhost hand channel args} {

    global bwLog bwChan bwArray bwNumber bwRun

    set channel [string tolower $channel]

    if { $bwChan != $channel } {

        return 0

    }

    if { ([isop $nick $bwChan])||([matchattr $nick o|o $bwChan])||([isvoice $nick $bwChan]) } {

        return 0

    }

    set args [join $args]

    set args [string tolower $args]

    for {set i 0} {$i < $bwNumber} {incr i} {

        if { $bwArray($i) != "" } {

            set badw [join $bwArray($i)]

            set dummy ""

            if { [regsub -all "$badw" $args "" dummy] } {

                putlog "$bwLog KICK $nick because saying '$badw'"

                putserv "KICK $bwChan $nick :Mot interdit ($badw) !"

            }

        }

    }

    return 0

}

############################################################################

# SURVEYact proc

############################################################################

bind ctcp - ACTION bwSurveyact

proc bwSurveyact {nick uhost hand channel keyword args} {

    bwSurveypub $nick $uhost $hand $channel $args

    return 0

}

############################################################################

# LIST proc

############################################################################

bind pub o|o !lst bwList

proc bwList {nick uhost hand channel args} {

    global bwLog bwChan bwArray bwNumber bwRun

    set channel [string tolower $channel]

    if { $bwChan != $channel } {

        return 0

    }

    putlog "$bwLog $nick ($uhost) uses !lst"

    set txForbidden ""

    set nWords 0

    for {set i 0} {$i < $bwNumber} {incr i} {

        if { $bwArray($i) != "" } {

            set txForbidden "$txForbidden $bwArray($i)"

            incr nWords

        }

    }

    if { $nWords == 0 } {

        putserv "PRIVMSG $bwChan :Mots interdits : <liste vide>"

    } else {

        putserv "PRIVMSG $bwChan :Mots interdits :$txForbidden"

    }

    return 0

}

############################################################################

# ADD proc

############################################################################

bind pub o|o !add bwAdd

proc bwAdd {nick uhost hand channel args} {

    global bwLog bwChan bwArray bwNumber bwFilename bwRun

    set channel [string tolower $channel]

    if { $bwChan != $channel } {

        return 0

    }

    if { ![isop $nick $bwChan] } {

        return 0

    }

    if { $args == [list {}] } {

        putserv "PRIVMSG $bwChan :Mots interdits : usage is !add words"

        return 0

    }

    set args [string tolower $args]

    putlog "$bwLog $nick ($uhost) uses !add (word is : '$args')"

    for {set i 0} {$i < $bwNumber} {incr i} {

        if { $args == $bwArray($i) } {

            putserv "PRIVMSG $bwChan :Mots interdits : '$args' existe déjà"

            return 0

        }

    }

    set bwArray($bwNumber) "$args"

    incr bwNumber

    putserv "PRIVMSG $bwChan :Mots interdits : ajout de '$args'"

    bwWritefile

}

############################################################################

# DEL proc

############################################################################

bind pub o|o !del bwDel

proc bwDel {nick uhost hand channel args} {

    global bwLog bwChan bwArray bwNumber bwFilename

    set channel [string tolower $channel]

    if { $bwChan != $channel } {

        return 0

    }

    if { ![isop $nick $bwChan] } {

        return 0

    }

    if { $args == [list {}] } {

        putserv "PRIVMSG $bwChan :Mots interdits : usage is !del words"

        return 0

    }

    set args [string tolower $args]

    putlog "$bwLog $nick ($uhost) uses !del (word is : '$args')"

    for {set i 0} {$i < $bwNumber} {incr i} {

        if { $args == $bwArray($i) } {

            set bwArray($i) ""

        }

    }

    putserv "PRIVMSG $bwChan :Mots interdits : suppression de '$args'"

    bwWritefile

    return 0

}

############################################################################

# WRITEFILE proc

############################################################################

proc bwWritefile {} {

    global bwArray bwNumber bwFilename

    set fd [open $bwFilename w]

    for {set i 0} {$i < $bwNumber} {incr i} {

        if { $bwArray($i) != "" } {

            puts $fd "$bwArray($i)"

        }

    }

    close $fd

    return 0

}

J'ai ajouter !add con mais quand on ecris par contre, l'user se fait kick...

Je dois chercher dans quoi pour éviter ce problème ?

Merci

Remplace les 2 fois ou tu as

tcl

set bwArray($bwNumber) ....

par:

tcl

set bwArray($bwNumber) [concat " " ... " "]

en remplaçant bien sûr "..." par les valeurs respectives

Merci donc j'ai fait :

Code :
set bwArray($bwNumber) [concat " "gets $fd" "]

Code :
set bwArray($bwNumber) [concat " "$args" "]

j'obtiens cette erreur :

Citation : while compiling
"set bwArray($bwNumber) [concat " "gets $fd" "]
incr bwNumber
"
("while" body line 3)
while compiling
"while { ![eof $fd] } {
#set bwArray($bwNumber) [gets $fd]
set bwArray($bwNumber) [concat " "gets $fd" "]
incr bwNumber
}"
invoked from within
"if { [file exists $bwFilename] } {
set fd [open $bwFilename r]
while { ![eof $fd] } {
#set bwArray($bwNumber) [gets $fd]
set bwArray($bwNumber) ..."
(file "scripts/badwords-.tcl" line 34)
invoked from within
"source scripts/badwords-.tcl"
(file "eggdrop.conf" line 1351)
[22:45] * FICHIER DE CONFIGURATION NON CHARGE (INTROUVABLE OU ERREUR)

tcl

set bwArray($bwNumber) [concat " " [gets $fd] " "]

tcl

set bwArray($bwNumber) " $args "

(plus simple)

Plus d'erreur mais personne pour tester, je vous dirais ça demain ou courant du week-end.

Bonne nuit.

je suis quand même kicker en tapant par contre...

Citation :[08:30:16] <alpha_css_AbS> par contre
[08:30:16] * Vous avez été kické de Support-CSS (Mot interdit (con) !)

Je pense que le soucis vient alors du test (il y a un join sur le badword défini, ça doit virer les espaces).

tcl

if { [regsub -all "$badw" $args "" dummy] } {

vérifie la présence du mot (ou de la chaine de mots) dans les arguments, il faudrait lui ajouter des délimiteurs comme \b (délimiteur de mot) avant et après $badw

Si j'ajoute /b avant et/ou après, il ne fonctionne plus du tout....

Code :
if { [regsub -all  /b "$badw" /b $args "" dummy]

Code :
if { [regsub -all  /b "$badw" $args "" dummy]

ou encore

Code :
if { [regsub -all  "$badw" /b $args "" dummy]

Si je tape con, il me kick plus ^^

Alpha_67 a écrit :Si j'ajoute /b avant et/ou après, il ne fonctionne plus du tout....

Code :
if { [regsub -all  /b "$badw" /b $args "" dummy]
ou
Code :
if { [regsub -all  /b "$badw" $args "" dummy]
ou encore
Code :
if { [regsub -all  "$badw" /b $args "" dummy]

Si je tape con, il me kick plus ^^

edit :

le script bug complètement, je le vire, c'est plus simple.

Merci de votre aide.

Je pense qu'un petit cours sur les expressions régulières t'aurait aidé:

tcl

if { [regsub -all "\b$badw\b" $args "" dummy] } {

Je débute donc oui certainement Wink

mais le script déconne donc autant ne pas le garder....

Wink

Il est clair que le script n'est pas bon, car il cherche une chaine de caractère sans options particulières (mot entier, début de mot, fin de mot).

Fallait le dire avant Very Happy

je l'aurais directement supprimé...

@+

Alpha_67

CrazyCat

Alpha_67

CrazyCat

Alpha_67

Alpha_67

CrazyCat

Alpha_67

Alpha_67

CrazyCat

Alpha_67

CrazyCat

Alpha_67