This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

bad word other ban

Old posts that have not been replied to for several years.
Locked
V
Volume
Halfop
Posts: 84
Joined: Fri May 23, 2003 5:08 am

bad word other ban

Post by Volume »

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: Select all

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)"
User avatar
caesar
Mint Rubber
Posts: 3776
Joined: Sun Oct 14, 2001 8:00 pm
Location: Mint Factory

Post by caesar »

For the banmask use this:

Code: Select all

set banmask "*!*@[lindex [split $uhost @] 1]"
and as for an global ban:

Code: Select all

newban $banmask $botnick "Used $word at $chan ([strftime %m-%d-%Y@%H:%M])" $bwords(mins)
Once the game is over, the king and the pawn go back in the same box.
V
Volume
Halfop
Posts: 84
Joined: Fri May 23, 2003 5:08 am

Post by Volume »

caesar wrote:For the banmask use this:

Code: Select all

set banmask "*!*@[lindex [split $uhost @] 1]"
and as for an global ban:

Code: Select all

newban $banmask $botnick "Used $word at $chan ([strftime %m-%d-%Y@%H:%M])" $bwords(mins)
thank you very much it works finely :)
V
Volume
Halfop
Posts: 84
Joined: Fri May 23, 2003 5:08 am

Problem with channelspam

Post by Volume »

I have edit this:

Code: Select all

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

Code: Select all

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 ?
Locked