[Résolu] moderation SQL

[aliasangelius]

Donc si je comprend bien..

Sa devrais donner ainsi :

tclcopier

# Proc - Badword #
bind pub o|o .+badword +badword
proc +badword { nick host hand chan arg } {
	set colonne(mots) [string tolower [lindex $arg 0]]
	set colonne(salon) [lindex $arg 1]
	if ![onchan $nick $::back(chan)] {
		putserv "notice $nick :\00314Erreur vous devez être sur\003 \0034$::back(chan)\0034"
		return
	}
	if {$colonne(mots)==""} {
		putserv "notice $nick :\00314Incorrect veuillez mettre un mot\003. Exemple : .+badword \0034connard #salon\0034"
		return 0
	}
	if {![string match #* $colonne(salon)]} {
		putserv "notice $nick :\00314Incorrect veuillez mettre un salon\003. Exemple : \0034#SQL\0034"
		return 0
	}
	service:connect
	mysqlsel $::mysqlink "SELECT * FROM `badword` WHERE mots='$colonne(mots)' and salon='$colonne(salon)'"
	if {[mysqlresult $::mysqlink rows] ne 0} {
		while {[set row [mysqlnext $::mysqlink]] != ""} {
			set checkmots [lindex $row 0]
			set checksalon [lindex $row 1]
			if {[string match [string tolower $colonne(mots)] [string tolower $checkmots]] && [string match $colonne(salon) $checksalon]} {
				putserv "notice $nick :\00314Mot invalide ! le mot\003 (\0034$colonne(mots)\0031) et déjà enregistré sur le salon !"
				return 0
			}
		}
		service:deconnect
	}
	service:connect
	mysqlsel $::mysqlink "INSERT INTO badword (mots, salon) VALUES ('$colonne(mots)', '$colonne(salon)')"
	service:deconnect
	puthelp "privmsg $::back(chan) :$::chanlog(+badword) \00314Sur\003 \0034$chan\0034 \0031\002$hand@$nick\002\0031 (\0037$colonne(mots)\0031)"
}