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


Problème anti insultes
#1
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
#2
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
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#3
Merci donc j'ai fait :


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

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

j'obtiens cette erreur :
Quote: 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)
#4

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

Et

tcl
set bwArray($bwNumber) " $args "

(plus simple)
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#5
Plus d'erreur mais personne pour tester, je vous dirais ça demain ou courant du week-end.


Bonne nuit.
#6
je suis quand même kicker en tapant par contre...

Quote:[08:30:16] <alpha_css_AbS> par contre
[08:30:16] * Vous avez été kické de Support-CSS (Mot interdit (con) !)
#7
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
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#8
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 ^^
#9
Alpha_67 Wrote: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.
#10
Je pense qu'un petit cours sur les expressions régulières t'aurait aidé:

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

irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#11
Je débute donc oui certainement ;)

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

;)
#12
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).
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#13
Fallait le dire avant :D je l'aurais directement supprimé...

@+


Forum Jump:


Users browsing this thread: 1 Guest(s)