[Résolu] moderation SQL

[CrazyCat]

Oui, tu as ajouté un truc et pas revu ton TCL.

Je te dis d'ajouter un count(), qui te permet d'avoir toujours un résultat et donc de ne pas avoir à faire ta boucle: soit nb = 0 et le mot n'est pas présent soit nb > 0 et le mot est présent.

Voici à quoi devrait ressembler ton script si tu avais tout lu / suivi:

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
	set res [mysqlsel $::mysqlink "SELECT count(*) FROM `badword` WHERE mots='$colonne(mots)' and salon='$colonne(salon)'" -list]
	set nb [lindex $res 0]
	service:deconnect
	if {$nb >= 1} {
		putserv "notice $nick :\00314Mot invalide ! le mot\003 (\0034$colonne(mots)\0031) et déjà enregistré sur le salon !"
		return 0
	}
	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)"
}