Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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 {$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
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement