bind pub - !addspam proc:addspam
proc proc:addspam {nick host hand chan text} {
    if {$text == ""} {
        putserv "NOTICE $nick :\002Erreur:\002 Il manque le lien du spam."
        putserv "NOTICE $nick :\002Syntaxe:\002 !addspam test.fr"
        return 0
    }
    set lienspam [mysqlescape [join [lindex $text 0]]]
    set qverif "SELECT * FROM spam WHERE lienspam='$lienspam'"
    set query "INSERT INTO spam (user, lienspam) VALUES ('$nick', '$lienspam')"
    service:connect
    set verif [::mysql::sel $::mysqlink $qverif]
    if {[llength $verif] <= 0} {
        putserv "NOTICE $nick :Le lien $lienspam est déjà enregistré"
        service:deconnect
        return 0
    }
    set res [::mysql::sel $::mysqlink $query]
    putserv "NOTICE $nick :Votre lien a été spamfilter avec succès."
    service:deconnect
    return 1
}