Add exceptions for Anti-Spam script

[Fill]

Hi folks,

I have a simple anti-spam script like this:

Code: Select all

bind pubm "#cyber-world *.net*" spamfilter

proc spamfilter { nick uhost hand chan text } {
putserv "KICK $chan $nick :Go spam your own chan!"
}

But I'd like to add some exceptions to this, e.g., if the user says www.therostrum.net, the bot doesn't kick him, but kicks with any other website.

I tried using string first and string match but didn't get any successful result. Could you help me out with this?

Thanks in advance,
Fill

[arfer]

You missed out the flags argument in the pubm bind btw

bind pubm <flags> <mask> <procname>

Code: Select all

set varExceptions {
  "www.therostrum.net"
  "www.anothersite.net"
}

bind pubm - "#cyber-world *.net*" spamfilter 

proc spamfilter { nick uhost hand chan text } { 
  global varExceptions
  foreach site $varExceptions {
    if {[string match -nocase "*$site*" $text]} {return 0}
  }
  putserv "KICK $chan $nick :Go spam your own chan!" 
}

[Fill]

ahm yeah, you're right, forgot the flags

I'll be testing it in some hours, now I can't access the bot. Thanks for the help.

See ya