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
bind pubm -|- * blocked:words
setudef flag bwords
#Rlsdate : 21-04-2003
#? and * works as wildcards
set bwords(words) "@find* *.php\?x* *ftp://enter:enter@* *ftp://xxx:xxx@* *mahoo* *blowjob* *hot?dot*"
#Allow pflag to use these words ?
set bwords(p) 1
set bwords(pflag) o
#How long time to last ? must be in minutes.
set bwords(mins) 43200
proc 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)"