egghelp/eggheads community

Add ban after 1-2 kicks?

2007-01-19T11:57:54-04:00

Use:

Code:

set badwords(chans) "#chan1 #chan2"set badwords(excempt) "f|f"set badwords(words) {  "!find"  "@find"  "!list"  "@list"}set badwords(banon) "2"; # 1 = on first instance, 2 = on second instance etcset badwords(bantime) "2"; # in minutesset badwords(kickmsg) "Badword found!"bind pubm - {*} pub:badwordsproc pub:badwords {nick host hand chan text} {  global badwords  if {[lsearch -exact "$badwords(chans)" $chan] == -1} { return }  if {[matchattr $hand $badwords(excempt) $chan]} { return }  set bword 0  foreach word $text {    if {$word == ""} { return }    if {[lsearch -exact "$badwords(words)" $word] != -1} {      set bword 1      break    }  }  if {$bword} {    if {![info exists badwords($chan:$host)]} {         set badwords($chan:$host) "1"    } else {      incr badwords($chan:$host) 1    }    if {$badwords($chan:$host) >= $badwords(banon)} {      utimer [expr {$badwords(bantime)*60}] [list unset badwords($chan:$host)]      if {[string match -nocase *phatlogic.com $host]} {        set host *!$host      } else {        set host [lindex [split $host @] 0]@*.[join [lrange [split [lindex [split $host @] 1] .] end-[expr [llength [split [lindex [split $host @] 1] .]] - 2] end] .]      }      putserv "MODE $chan +b $host"      putserv "KICK $chan $nick :$badwords(kickmsg)"      newchanban $chan $host $nick "$badwords(kickmsg)" $badwords(bantime)    } else {      putserv "KICK $chan $nick :$badwords(kickmsg)"    }  }}

Statistics: Posted by r0t3n — Fri Jan 19, 2007 11:57 am

Add ban after 1-2 kicks?

2007-01-19T11:47:12-04:00

Its working correctly with the bans but I see this in the status window when the ban is to expire:

Code:

[10:45am]  [10:45] Tcl error in script for 'timer1286':[10:45am]  [10:45] can't unset "badwords(#phatlogic:DJmart@*.dyn.optonline.net)": no such element in array

Statistics: Posted by DJmart — Fri Jan 19, 2007 11:47 am

Add ban after 1-2 kicks?

2007-01-19T11:35:11-04:00

User:

The irc network changes the host for 'privacy' and so the only option is to ban via ident or *!ident@*.end.of.host.com

Tosser@irc-C01B49CA.asfd.broadband.ntl.com -> Tosser@*.asfd.broadband.ntl.com

Statistics: Posted by r0t3n — Fri Jan 19, 2007 11:35 am

Add ban after 1-2 kicks?

2007-01-19T10:46:04-04:00

Eggdrop doesn't invent host names. If it's banning the wrong host, the irc server must be lying to it.
.jump to a better network.

Statistics: Posted by user — Fri Jan 19, 2007 10:46 am

Add ban after 1-2 kicks?

2007-01-19T10:03:04-04:00

It will ban *!ident@host.com if the host has phatlogic.com in it, else it will ban *!ident@*.rest.of.host.com

EDIT: Fixed banmask to actually ban *!ident@*.rest.of.host.com

Code:

set badwords(chans) "#chan1 #chan2"set badwords(excempt) "f|f"set badwords(words) {  "!find"  "@find"  "!list"  "@list"}set badwords(banon) "2"; # 1 = on first instance, 2 = on second instance etcset badwords(bantime) "2"; # in minutesset badwords(kickmsg) "Badword found!"bind pubm - {*} pub:badwordsproc pub:badwords {nick host hand chan text} {  global badwords  if {[lsearch -exact "$badwords(chans)" $chan] == -1} { return }  if {[matchattr $hand $badwords(excempt) $chan]} { return }  set bword 0  foreach word $text {    if {$word == ""} { return }    if {[lsearch -exact "$badwords(words)" $word] != -1} {      set bword 1      break    }  }  if {$bword} {    if {![info exists badwords($chan:$host)]} {         set badwords($chan:$host) "1"    } else {      incr badwords($chan:$host) 1    }    if {$badwords($chan:$host) >= $badwords(banon)} {      if {[string match -nocase *phatlogic.com $host]} {        set host *!$host      } else {        set host [lindex [split $host @] 0]@*.[join [lrange [split [lindex [split $host @] 1] .] end-[expr [llength [split [lindex [split $host @] 1] .]] - 2] end] .]      }      putserv "MODE $chan +b $host"      putserv "KICK $chan $nick :$badwords(kickmsg)"      newchanban $chan $host $nick "$badwords(kickmsg)" $badwords(bantime)      utimer [expr {$badwords(bantime)*60}] [list unset badwords($chan:$host)]    } else {      putserv "KICK $chan $nick :$badwords(kickmsg)"    }  }}

Statistics: Posted by r0t3n — Fri Jan 19, 2007 10:03 am

Add ban after 1-2 kicks?

2007-01-18T21:03:36-04:00

i realized the "split" is incorrect. it says "elite" insted of "irc"

not sure how to fix that either

Statistics: Posted by DJmart — Thu Jan 18, 2007 9:03 pm

Add ban after 1-2 kicks?

2007-01-18T13:33:42-04:00

Code:

[12:32pm] * Xeon sets mode: +o ExCuRSion[12:32pm] * ExCuRSion sets mode: +b *!*@elite-FF83EB81.dyn.optonline.net[12:32pm] * You were kicked by ExCuRSion (Banned: Badword found!)[12:32pm] * Attempting to rejoin channel #phatlogic[12:32pm] * Now talking in #phatlogic

Oh no!

Its still not working correctly... any idea?

Its not banning the correct host/IP

Statistics: Posted by DJmart — Thu Jan 18, 2007 1:33 pm

Add ban after 1-2 kicks?

2007-01-18T12:38:10-04:00

After the line:

Code:

if {$badwords($chan:$host) >= $badwords(banon)} {

Put:

Code:

set host *!*@[lindex [split $host @] 1]

It will then ban *!*@some.host.com

Statistics: Posted by r0t3n — Thu Jan 18, 2007 12:38 pm

Add ban after 1-2 kicks?

2007-01-18T12:04:48-04:00

It works, but the ban is incorrect. The user can rejoin...

Code:

[11:03am] * ExCuRSion sets mode: +b *!DJmart@elite-FF83EB81.dyn.optonline.net

Statistics: Posted by DJmart — Thu Jan 18, 2007 12:04 pm

Add ban after 1-2 kicks?

2007-01-18T11:50:56-04:00

That script seems rather buggy/crap in many ways, obv. made by some newbie by the looks of it.

Try this:

Code:

set badwords(chans) "#chan1 #chan2"set badwords(excempt) "f|f"set badwords(words) {  "!find"  "@find"  "!list"  "@list"}set badwords(banon) "2"; # 1 = on first instance, 2 = on second instance etcset badwords(bantime) "2"; # in minutesset badwords(kickmsg) "Badword found!"bind pubm - {*} pub:badwordsproc pub:badwords {nick host hand chan text} {  global badwords  if {[lsearch -exact "$badwords(chans)" $chan] == -1} { return }  if {[matchattr $hand $badwords(excempt) $chan]} { return }  set bword 0  foreach word $text {    if {$word == ""} { return }    if {[lsearch -exact "$badwords(words)" $word] != -1} {      set bword 1      break    }  }  if {$bword} {    if {![info exists badwords($chan:$host)]} {         set badwords($chan:$host) "1"    } else {      incr badwords($chan:$host) 1    }    if {$badwords($chan:$host) >= $badwords(banon)} {      putserv "MODE $chan +b $host"      putserv "KICK $chan $nick :$badwords(kickmsg)"      newchanban $chan $host $nick "$badwords(kickmsg)" $badwords(bantime)      utimer [expr {$badwords(bantime)*60}] [list unset badwords($chan:$host)]    } else {      putserv "KICK $chan $nick :$badwords(kickmsg)"    }  }}

NOT TESTED!!

Statistics: Posted by r0t3n — Thu Jan 18, 2007 11:50 am

Add ban after 1-2 kicks?

2007-01-18T09:56:12-04:00

Code:

#####################################################################                                                                  ## Based on BadWord.tcl by TheGhost and/or Rajeh Alharithi          ##                                                                  ## Stripped out most of the original, for basic kick on 'bad' words ##                                                                  ##                                                                  ##                                        Cobratek                  ####################################################################### The bad word listbind pubm - "!list" badwordbind pub - "!list" badwordbind pubm - "@find" badwordbind pub - "@find" badwordbind pub - "!find" badwordbind pubm - "!find" badword## Main scriptproc badword {nick uhost hand chan rest} {  global botnick bword    if {([ matchattr $hand f ])} {      putserv "PRIVMSG $chan : $nick  >:-| "        return 1} else {         putserv "KICK $chan $nick : There are NO files here, and this is not a warez server."        return 0}}putlog "!list kicker v0.1 loaded"

How do I add a "ban" after either 1 or two kicks for the same offence? and Time it?

Thanks fellas.

Statistics: Posted by DJmart — Thu Jan 18, 2007 9:56 am