egghelp/eggheads community

Problem with channelspam

2003-06-22T17:34:28-04:00

I have edit this:

Code:

set bwords(words) "@find* *.php\?x* *ftp://enter:enter@* *ftp://xxx:xxx@* *mahoo* *blowjob* *hot?dot*"

to:

Code:

set bwords(words) "@find* *.php\?x* *ftp://enter:enter@* *ftp://xxx:xxx@* *mahoo* *blowjob* *hot?dot* *#??*"

but the bots dont ban channelspammer with this sign #

i think this is a problem from tcl...
# <-- this is the tcl sign for to ignore this...

can somebody help me ?

Statistics: Posted by Volume — Sun Jun 22, 2003 5:34 pm

bad word other ban

2003-06-22T14:37:47-04:00

For the banmask use this:
Code:
set banmask "*!*@[lindex [split $uhost @] 1]"
and as for an global ban:
Code:
newban $banmask $botnick "Used $word at $chan ([strftime %m-%d-%Y@%H:%M])" $bwords(mins)

thank you very much it works finely

Statistics: Posted by Volume — Sun Jun 22, 2003 2:37 pm

bad word other ban

2003-06-16T15:47:36-04:00

For the banmask use this:

Code:

set banmask "*!*@[lindex [split $uhost @] 1]"

and as for an global ban:

Code:

newban $banmask $botnick "Used $word at $chan ([strftime %m-%d-%Y@%H:%M])" $bwords(mins)

Statistics: Posted by caesar — Mon Jun 16, 2003 3:47 pm

bad word other ban

2003-06-16T15:25:16-04:00

Hello,
User:
ooooo is ~kljklkjlk@p508C31E7.dip.t-dialin.net * *
ooooo using Uni-Erlangen.DE [irc.uni-erlangen.de] IPv(4|6) for non-commercial
ooooo has been idle 11secs, signed on Mon Jun 16 21:23:36
ooooo End of WHOIS list.

this script bans for chan: *!~kljklkjlk@*.t-dialin.net

but i would: *!*@p508C31E7.dip.t-dialin.net
global for 24 hours

can somebody help me ?

thank you very much.

Code:

bind pubm -|- * blocked:wordssetudef flag bwords#Rlsdate : 21-04-2003#? and * works as wildcardsset bwords(words) "@find* *.php\?x* *ftp://enter:enter@* *ftp://xxx:xxx@* *mahoo* *blowjob* *hot?dot*"#Allow pflag to use these words ?set bwords(p) 1set bwords(pflag) o#How long time to last ? must be in minutes.set bwords(mins) 43200proc blocked:words {nick uhost handle chan text} {global botnick bwords set word [join [lindex [split $text] 0]]  if {![string match "*+bwords*" [channel info $chan]]} { return 0 }  if {[matchattr $handle $bwords(pflag)|$bwords(pflag) $chan] && $bwords(p)==1} { return 0 }  foreach w [split $bwords(words) " "] {   if {[string match [join $w] [join $word]]} {    set nck [split [getchanhost $nick] "@"]    set b1 [split [lindex $nck 1] "\."]    set domain [lindex $b1 [expr [llength $b1]-2]].[lindex $b1 [expr [llength $b1]-1]]    set banmask *![lindex $nck 0]@*.$domain    newchanban $chan $banmask $botnick "Used $word at $chan ([strftime %m-%d-%Y@%H:%M])" $bwords(mins)    putlog "Banned $nick@$chan for using $word."    return 0   }  }}putlog "Bwords loaded v2.0 : Bad words list = $bwords(words)"

Statistics: Posted by Volume — Mon Jun 16, 2003 3:25 pm