ban on msg

gasman · Post by **gasman** » Thu Aug 18, 2005 4:11 pm

Can any help with a script that will ban or kick anyone messaging the bot
with certain exceptions....i think this may be a good script for banning/kicking certain types of part/join spam bots that msge everyone either onjoin or when they connect and for unauthorised attempts to access the bot.

TIA..

demond · Post by **demond** » Thu Aug 18, 2005 5:46 pm

you need a quality antispam script, for example spambuster

Post by **caesar** » Fri Aug 19, 2005 5:34 am

Hehe. Spamour!

gasman · Post by **gasman** » Fri Aug 19, 2005 3:27 pm

demond ....too complex just something that will kick or ban anyone who messages the bot with the exeption of owner/s

demond · Post by **demond** » Fri Aug 19, 2005 3:48 pm

I'd code that for you, it's 3 lines only, but I'm currently reconsidering that kind of stuff, I am inclined to think that we should cultivate a reasonable and fair eggdrop usage patterns, so I'd probably no more help implementing tasks that are, IMHO, lame or/and unfair to those less fortunate (for not having ops)

awyeah · Post by **awyeah** » Sat Aug 20, 2005 3:53 am

Spam messages from random bots and drones (whose nicks aren't registered 99.9% of the time) can be avoided by simply using the umode +R on bahamut and mostly other IRCd's. (/mode <yournick> +R) So people with unregistered nicks or unidentified nicks will not be able to message you then and you will get a raw error from the IRCd.

As for mass join clones, fast join/parts aka revolving door try a script I made ago sometime. You can find it on egghelp's TCL archive under the name of "Mass Clone Join/Part and Revolving Door Protection".

gasman · Post by **gasman** » Sat Aug 20, 2005 8:31 am

so its not possible to do just what i asked...i.e. kick/ban anyone msging the bot with the exception of owners...these COULD be spammers but also could be illegal attempts to acces the bot....??

awyeah · Post by **awyeah** » Sat Aug 20, 2005 1:32 pm

Something like this should work:

Code: Select all

bind msgm - "*" msg:bot

proc msg:bot {nick uhost hand text} {
 if {![matchattr $hand n] && ![matchattr $hand n $chan]} {
  foreach chan [channels] {
  if {[botisop $chan] && [onchan $nick $chan]} {
   putserv "MODE $chan +b *!*@[lindex [split $uhost @] 1]"
   putserv "KICK $chan $nick :Do not message me in private!"
   }
  }
 }
}

gasman · Post by **gasman** » Sat Aug 20, 2005 2:33 pm

awyeah...i very much appreciate your help in this

i made a XXX.tcl file from your text

now i get Tcl error [msg:bot]: can't read "chan": no such variable

have i missed something?

awyeah · Post by **awyeah** » Sat Aug 20, 2005 3:52 pm

Just a little tweak, and here we go... use this:

Code: Select all

bind msgm - "*" msg:bot

proc msg:bot {nick uhost hand text} {
 if {![matchattr $hand n]} {
  foreach chan [channels] {
  if {[botisop $chan] && [onchan $nick $chan]} {
   putserv "MODE $chan +b *!*@[lindex [split $uhost @] 1]"
   putserv "KICK $chan $nick :Do not message me in private!"
   }
  }
 }
}

gasman · Post by **gasman** » Sat Aug 20, 2005 4:08 pm

that seems to be doin it...much appreciated awyeah