egghelp/eggheads community

ban enforce doesnt stack kicks

2022-01-11T08:55:02-04:00

excellent thanks Spike^^ that seems to do it

Statistics: Posted by simo — Tue Jan 11, 2022 8:55 am

ban enforce doesnt stack kicks

2022-01-11T14:07:53-04:00

Code:

namespace eval enforceBans {   variable enforce  ;  variable kickList   set enforce(max) "4"   #set enforce(reason_single) "Ban %ban set in %from matches your host. You are banned!"   set enforce(reason_multi) "A new ban in %from matches your host. You are banned!"   bind mode - "% +b" [namespace current]::enforce   proc enforce {nick uhost hand chan mc ban} {      variable kickList      if {[matchaddr $ban $::botname]} { return 0 }      if {[matchstr "*@*mibbit*" $ban]} { return 0 }      foreach n [chanlist $chan] {         if {![matchaddr $ban $n![getchanhost $n $chan]]} { continue }         if {[isop $n $chan] || [ishalfop $n $chan]} { continue }         if {[matchattr [nick2hand $n] "fnmo|fnmo" $chan]} { continue }         lappend klist $n      }      if {![info exists klist]} { return 0 }      if {![info exists kickList($chan)]} {         set kickList($chan) $klist         after 2000 [list "[namespace current]::enforce:kick" $chan]      } else {  lappend kickList($chan) {*}$klist  }      return 0   }   proc enforce:kick {chan} {      variable enforce      variable kickList      if {![botisop $chan] || ![info exists kickList($chan)]} {         array unset kickList $chan         return 0      }      set knicks [lsort -unique -dictionary $kickList($chan)]      unset kickList($chan)      set max $enforce(max)      set reason [string map [list %from $chan] $enforce(reason_multi)]      while {[set len [llength $knicks]] > 0} {        if {$len > $max} {          set nicks [join [lrange $knicks 0 [expr {$max - 1}]] ","]          set knicks [lrange $knicks $max end]        } else {          set nicks [join $knicks ","]          set knicks ""        }        putquick "KICK $chan $nicks :$reason"      }      return 0   }}

Statistics: Posted by SpiKe^^ — Tue Jan 11, 2022 1:52 am

ban enforce doesnt stack kicks

2022-01-10T13:10:39-04:00

i tried with this:

Code:

namespace eval enforceBans {   set enforce(max) "4"   set enforce(reason) "Ban %ban set in %from matches your host. You are banned!"    bind mode - "% +b" [namespace current]::enforce   proc enforce {nick uhost hand chan mc ban} {      variable enforce      variable kickList      set reason [string map [list "%from" $chan "%ban" $ban "%who" $nick] $enforce(reason)]      if {![botisop $chan]} { return 0 }      set ban [string map {"\\" "\\\\" "\[" "\\["} $ban]       if {[matchstr "*@*mibbit*" "$ban"]} { return 0 }       if {[string match -nocase $ban $::botname]} { return }         foreach n [chanlist $chan] {            if {![matchaddr $ban $n![getchanhost $n $chan]]} continue            if {[isop $n $chan] || [ishalfop $n $chan] || [matchattr [nick2hand $n] "fnmo|fnmo" $chan]} continue          if {[onchan $n $chan]} { lappend kickList($chan) $n }         }         if {[info exists kickList($chan)]} {         set kickList($chan) [lsort -dictionary $kickList($chan)]            set len [llength $kickList($chan)]            while {$len > 0} {               if {$len > $enforce(max)} {                  set users [join [lrange $kickList($chan) 0 [expr {$enforce(max) - 1}]] ,]                  set kickList($chan) [lrange $kickList($chan) $enforce(max) end]                  incr len -$enforce(max)               } else {                  set users [join $kickList($chan) ,]                  set len 0               }             after [expr {2*1000*1}] [list putnow "kick $chan $users $reason"]            }         }      }   }

but it doesnt get rid of the nicks that are already kicked it keeps adding the same nicks

Statistics: Posted by simo — Mon Jan 10, 2022 1:10 pm

ban enforce doesnt stack kicks

2022-01-10T11:10:20-04:00

yes dalnet does 4 and inspircd 20

Statistics: Posted by simo — Mon Jan 10, 2022 11:10 am

ban enforce doesnt stack kicks

2022-01-10T10:52:24-04:00

Short question: does your server accept multiple kicks in a single line ?

Statistics: Posted by CrazyCat — Mon Jan 10, 2022 10:52 am

ban enforce doesnt stack kicks

2022-01-10T10:37:02-04:00

i cant figure why it doesnt stack the nicks to kick

Statistics: Posted by simo — Mon Jan 10, 2022 10:37 am

ban enforce doesnt stack kicks

2022-01-10T10:25:03-04:00

i took this code caesar wrote from another post to enforce bans to kick in stack
only to find it doesnt seem to stack it sends all found banned nicks to be kicked seperate

Code:

namespace eval enforceBans {   set enforce(max) "4"   set enforce(reason) "Ban %ban set in %from matches your host. You are banned!"    bind mode - "% +b" [namespace current]::enforce   proc enforce {nick uhost hand chan mc ban} {      variable enforce      set reason [string map [list "%from" $chan "%ban" $ban "%who" $nick] $enforce(reason)]      if {![botisop $chan]} { return 0 }      set ban [string map {"\\" "\\\\" "\[" "\\["} $ban]       if {[matchstr "*@*mibbit*" "$ban"]} { return 0 }       if {[string match -nocase $ban $::botname]} { return }         foreach n [chanlist $chan] {            if {![matchaddr $ban $n![getchanhost $n $chan]]} continue            if {[isop $n $chan] || [ishalfop $n $chan] || [matchattr [nick2hand $n] "fnmo|fnmo" $chan]} continue          if {[onchan $n $chan]} { lappend kickList($chan) $n }         }      if {[llength $kickList($chan)]  > 2} { return }         if {[info exists kickList($chan)]} {         set kickList($chan) [lsort -dictionary $kickList($chan)]            set len [llength $kickList($chan)]            while {$len > 0} {               if {$len > $enforce(max)} {                  set users [join [lrange $kickList($chan) 0 [expr {$enforce(max) - 1}]] ,]                  set kickList($chan) [lrange $kickList($chan) $enforce(max) end]                  incr len -$enforce(max)               } else {                  set users [join $kickList($chan) ,]                  set len 0               }             after [expr {2*1000*1}] [list putnow "kick $chan $users $reason"]            }         }      }   }

Statistics: Posted by simo — Mon Jan 10, 2022 10:25 am