egghelp/eggheads community

multi lines max text length within time frame

2022-12-19T14:36:53-04:00

with the help of SpiKe^^ so far the fixed and working version incase anyone needs it to enable in channel

Syntax: !byte on/off

Code:

bind PUB -|- !byte bytes:checker setudef flag bytescheckerproc bytes:checker {nick uhost hand chan arg} {   if {![isop $nick $chan] && ![ishalfop $nick $chan] && ![matchattr $hand n|n $chan]} {return}  switch -nocase -- [lindex [split $arg] 0] {    on {      if {[channel get $chan byteschecker]} {        putserv "NOTICE $nick :byteschecker is already enabled on $chan."      } else {         channel set $chan +byteschecker        putserv "NOTICE $nick :byteschecker is now enabled."}    }    off {      if {![channel get $chan byteschecker]} {        putserv "NOTICE $nick :byteschecker is already disabled on $chan."      } else {        channel set $chan -byteschecker        putserv "NOTICE $nick :byteschecker is now disabled."     }    }      }}set bflood(maxlength) 350set bflood(unsettime) 3bind pubm - * pubm:byteflood proc pubm:byteflood {nick host hand chan text} { if {![channel get $chan byteschecker]} { return } if {[validuser $hand] && [matchattr $hand +bfmo|fmo $chan]} {  return 0  } if {(![botisop $chan]) || ([isop $nick $chan]) ||  ([ishalfop $nick $chan]) || ([validuser $hand] && [matchattr $hand +bfmo|fmo $chan])} {return} global bflood set text [regsub -all -- {\s{2,}} [string trim [stripcodes * $text]] { }] set lengthXZ [regexp -all -- {[^\s]} $text ""] if {[info exists bflood($chan:$nick)]} {  incr lengthXZ $bflood($chan:$nick)  } if {($lengthXZ > $bflood(maxlength))} {   if {[isvoice $nick $chan]} {  pushmode $chan -v $nick  }   if {[string match -nocase "*@*irccloud*" $host]} {                           regsub -all -- ~ $host "" host                                    set ident  [lindex [split $host @] 0]                                    set xbmaskx [string map {sid id uid id} $ident]                                    set bmask  *!*[string tolower $xbmaskx ]@*                                  if {![ischanban $bmask $chan]} {  pushmode $chan +b $bmask }    } else {                               set bmask "[maskhost $nick!$host 2]"                               if {![ischanban $bmask $chan]} { pushmode $chan +b $bmask }    }           if {[onchan $nick $chan]} { putkick $chan $nick "Excess Characters Flood" }   after [expr {30*1000*60}] [list Qtimed:banQ $chan $bmask]   if {[info exists bflood($chan:$nick)]} { unset bflood($chan:$nick) }   return 0 }  if {![info exists bflood($chan:$nick)]} { set bflood($chan:$nick) $lengthXZ ; utimer $bflood(unsettime) [list unset:byteflood $chan $nick]}    return 0}proc Qtimed:banQ {chan banmask} {  if {[ischanban $banmask $chan]} {    pushmode2 $chan -b  $banmask   } }proc unset:byteflood {chan nick} { global bfloodif {[info exists bflood($chan:$nick)]} { unset bflood($chan:$nick) }}

Statistics: Posted by simo — Mon Dec 19, 2022 2:36 pm

multi lines max text length within time frame

2022-12-17T14:09:30-04:00

what i also discovered with nicknames like:

[N]espresso

it doesnt seem to store well as it doesnt seem to unset the var properly it only keeps increasing text length and doesnt unset it:

if {[info exists bflood($chan:$nick)]} { incr length $bflood($chan:$nick) }

utimer $bflood(unsettime) [list array unset bflood $chan:$nick]

set bflood($chan:$nick) $length

anyway to fix this ?

Statistics: Posted by simo — Sat Dec 17, 2022 2:09 pm

multi lines max text length within time frame

2022-12-16T13:03:37-04:00

im still having issues with this code it doesnt seem accurate as it triggers when user didnt exceed threshold i suspect it not unset with the added timer : bflood(unsettime)

Statistics: Posted by simo — Fri Dec 16, 2022 1:03 pm

multi lines max text length within time frame

2022-01-06T13:40:49-04:00

i also tried using instead of

if {($length > $bflood(maxlength))} {

this instead

if {($bflood($chan:$nick) > $bflood(maxlength))} {

but it didnt seem to do either

Statistics: Posted by simo — Thu Jan 06, 2022 1:40 pm

multi lines max text length within time frame

2022-12-17T18:36:12-04:00

i used this code on dalnet for few days now and it doesnt seem to count all chars from multiple lines it seems to count 1 line only to match against the threshold of 250

this is what i work with at the moment

Code:

set bflood(maxlength) 250set bflood(unsettime) 2bind pubm - * pubm:bytefloodproc pubm:byteflood {nick host hand chan text} { global bflood  if {(![botisop $chan]) || ([isop $nick $chan]) ||  ([ishalfop $nick $chan]) || ([validuser $hand] && [matchattr $hand +bfmo|fmo $chan])} {return} set nick [string tolower $nick] set chan [string tolower $chan] set text [stripcodes * $text] set length [string length $text] set length [regexp -all -- {[^\s]} $text ""] if {[info exists bflood($chan:$nick)]} {  incr length $bflood($chan:$nick)  } if {($length > $bflood(maxlength))} {   if {[isvoice $nick $chan]} {  pushmode $chan -v $nick  }if {[set chost [getchanhost $nick $chan]] ne ""} {switch -glob -- $chost {{*.irccloud.com} - {*.mibbit.com} - {*.kiwiirc.com} - {*2001*67c*2f08*} - {*192.184.8.*} - {*192.184.9.*} - {*192.184.9.*} - {*192.184.10.*} { }{default} {                                  set banmask [maskhost $nick!$chost 4]                 pushmode $chan +b $banmask}}   }   flushmode $chan   array unset bflood $chan:$nick   return 0 } if {![info exists bflood($chan:$nick)]} {   utimer $bflood(unsettime) [list array unset bflood $chan:$nick] } set bflood($chan:$nick) $length return 0}bind ctcp - action pubmaction:byteflood proc pubmaction:byteflood { nick uhost hand chan key arg } { if {[isbotnick $chan]} return  pubm:byteflood $nick $uhost $hand $chan $arg }

Statistics: Posted by simo — Thu Jan 06, 2022 1:32 pm

multi lines max text length within time frame

2020-06-22T08:49:12-04:00

Tnx caesar

Statistics: Posted by simo — Mon Jun 22, 2020 8:49 am

multi lines max text length within time frame

2020-06-22T06:49:50-04:00

Yes, as I was testing stuff and kept editing the text i posted forgot to leave that as well.

Statistics: Posted by caesar — Mon Jun 22, 2020 6:49 am

multi lines max text length within time frame

2020-06-22T04:25:40-04:00

tnx ceasar

would that be like this?

Code:

set length [regexp -all -- {[^\s]} $text ""]

Statistics: Posted by simo — Mon Jun 22, 2020 4:25 am

multi lines max text length within time frame

2020-06-22T00:45:13-04:00

Your regsub should be:

Code:

regsub -all {[\s]} $text ""

because that will substitute all white spaces not just space with nothing:

Code:

% set text "some        tab space"some    tab space% regsub -all {\ } $text ""some    tabspace% regsub -all {[\s]} $text ""sometabspace% string lengt [regsub -all {[\s]} $text ""]12

You could go with a string map instead:

Code:

% set length [string length [string map {" " "" "     " ""} $text]]12

or another cleaner approach with regexp:

Code:

% regexp -all -- {[^\s]} $text ""12

that returns the length without the white space characters.

Edit: Speaking of the topic CrazyCat mentioned, here's another regexp I didn't think of last time:

Code:

% set text "fa24a22"fa24a22% regexp -all -- {[0-9]} $text4% time { regexp -all -- {[0-9]} $text } 1003.82 microseconds per iteration

so that line turns from:

Code:

if {[string length [regsub -all {[^0-9]} $nick ""]] > 6} {   # do whatever}

into:

Code:

if {[regexp -all -- {[0-9]} $nick] > 6} {   # do whatever}

as you tried and for some reason i failed to see the proper results.

Statistics: Posted by caesar — Mon Jun 22, 2020 12:45 am

multi lines max text length within time frame

2020-06-21T09:58:11-04:00

excellent thanks CrazyCat

Statistics: Posted by simo — Sun Jun 21, 2020 9:58 am

multi lines max text length within time frame

2020-06-21T04:08:01-04:00

caesar gives you the solution in another thread (detect nicks with excessive digits in it)

Code:

set length [string length [regsub -all {\ } $text ""]]

Statistics: Posted by CrazyCat — Sun Jun 21, 2020 4:08 am

multi lines max text length within time frame

2020-06-20T14:11:44-04:00

does spaces get counted as well ? and if so could we take out all spaces ?

Statistics: Posted by simo — Sat Jun 20, 2020 2:11 pm

multi lines max text length within time frame

2020-06-20T13:35:28-04:00

excellent thanks again SpiKe^^

Statistics: Posted by simo — Sat Jun 20, 2020 1:35 pm

multi lines max text length within time frame

2020-06-20T13:26:57-04:00

It does. Looks fine. But feel free to chop away at the code as you see fit:)

Statistics: Posted by SpiKe^^ — Sat Jun 20, 2020 1:26 pm

multi lines max text length within time frame

2020-06-20T13:22:58-04:00

my idea would be to check if the one setting the length in

set length [string length $text]

to check if nick is the same nick as the one in $bflood($chan:$nick) and only then to increase

Statistics: Posted by simo — Sat Jun 20, 2020 1:22 pm