egghelp/eggheads community

counting digits and if it exceeds threshold set mute

2021-12-15T08:56:10-04:00

Thanks CC that seems to work well

besided the missing } wich i added at :

regsub -all -- {[0-9\ ]} $text {} textbis

Statistics: Posted by simo — Wed Dec 15, 2021 8:56 am

counting digits and if it exceeds threshold set mute

2021-12-15T08:41:49-04:00

If you want to check if a line contains only digits and spaces:

Code:

regsub -all -- {[0-9\ ] $text {} textbisif {$textbis eq ""} {   # do your stuff}

Statistics: Posted by CrazyCat — Wed Dec 15, 2021 8:41 am

counting digits and if it exceeds threshold set mute

2021-12-15T08:26:17-04:00

i was wondering if we could have this code check if digits only in the sentence as we seem to get a lot of false positives especially with certain emoticons with digits in them

so for example trigger on only digits in sentence else ignore

so trigger on 12345
and not on 12345dfdf or kjskjs12345

ive messed with it to try and configure it that way but it seems no matter what i try i cant get it right

Statistics: Posted by simo — Wed Dec 15, 2021 8:26 am

counting digits and if it exceeds threshold set mute

2021-11-08T13:00:13-04:00

yes i tested using ur latest posted code spike^^ it fixed the previous issue but for some reason the latter mentioned issue i noticed as well

ive loaded it in an active channel ill monitor it and get back at ya thanks so far spike^^ and CC

Statistics: Posted by simo — Mon Nov 08, 2021 1:00 pm

counting digits and if it exceeds threshold set mute

2021-11-08T12:00:42-04:00

simo : I don't notice any of that weirdness happening.

Load the full patched version of the script from above.
You already verified [lsearch -nocase -exact... fixed that issue.

Statistics: Posted by SpiKe^^ — Mon Nov 08, 2021 12:00 pm

counting digits and if it exceeds threshold set mute

2021-11-08T11:28:31-04:00

i also noticed if a nick like [Guest]12345 types like:

[Guest]12345 [Guest]12344 [Guest]12345 [Guest]12344 12

gets counted and reaches threshold while both nicks [Guest]12345 [Guest]12344 are on channel

Statistics: Posted by simo — Mon Nov 08, 2021 11:28 am

counting digits and if it exceeds threshold set mute

2021-11-08T11:23:48-04:00

i noticed if a nick has like [Guest]12345 and types his nick it doesnt get removed as well

Statistics: Posted by simo — Mon Nov 08, 2021 11:23 am

counting digits and if it exceeds threshold set mute

2021-11-08T11:11:07-04:00

This is the complete updated code to this point...

Code:

set whatsapp(maxlength) 5set whatsapp(unsettime) 20bind pubm - * 112345check:whatsappproc 112345check:whatsapp {nick host hand chan text} {   global whatsapp   set text [stripcodes c $text]   if {![string match {*[0-9]*} $text]} {  return 0  }   set nkls [chanlist $chan]   set tmptx ""   foreach word [split $text] {      set word [string trimright $word ":"]      if {[lsearch -nocase -exact $nkls $word] == -1} { append tmptx "$word " }   }    set digitcount [regexp -all {\d} $tmptx]   #putserv "PRIVMSG #test :$digitcount"   if {$digitcount == 0} {  return 0  }   if {[info exists whatsapp($chan:$nick)]} {  incr digitcount $whatsapp($chan:$nick)  }   if {($digitcount >= $whatsapp(maxlength))} {      set chost [getchanhost $nick $chan]      set bmask m:[maskhost "$nick!$chost" 2]      pushmode $chan +b $bmask      after [expr {5*1000*1}] [list pushmode $chan -b $bmask]      #putserv "PRIVMSG $nick :you have been temporary mutebanned due to: excessive digits in your sentences"      putserv "NOTICE $nick :you have been temporary mutebanned due to: excessive digits in your sentences"      array unset whatsapp $chan:$nick      return 0   }   if {![info exists whatsapp($chan:$nick)]} {      utimer $whatsapp(unsettime) [list array unset whatsapp $chan:$nick]   }   set whatsapp($chan:$nick) $digitcount   return 0}

Statistics: Posted by SpiKe^^ — Mon Nov 08, 2021 11:11 am

counting digits and if it exceeds threshold set mute

2021-11-08T10:22:11-04:00

that seems to have fixed it thanks spike^^

Statistics: Posted by simo — Mon Nov 08, 2021 10:22 am

counting digits and if it exceeds threshold set mute

2021-11-08T09:53:09-04:00

Try replacing this line in the script...

Code:

if {[lsearch -nocase $nkls $word] == -1} { append tmptx "$word " }

with this updated line...

Code:

if {[lsearch -nocase -exact $nkls $word] == -1} { append tmptx "$word " }

Statistics: Posted by SpiKe^^ — Mon Nov 08, 2021 9:53 am

counting digits and if it exceeds threshold set mute

2021-11-08T09:17:26-04:00

i found another bug for example if a nick [Guest]12345 is on channel
and gets typed its not removed from $text and gets counted with the digits

Statistics: Posted by simo — Mon Nov 08, 2021 9:17 am

counting digits and if it exceeds threshold set mute

2021-11-07T12:42:37-04:00

Ooops.

Thanks for the fix CrazyCat and simo.

Edited the above post to reflect that fix...

Statistics: Posted by SpiKe^^ — Sun Nov 07, 2021 12:42 pm

counting digits and if it exceeds threshold set mute

2021-11-07T12:18:33-04:00

oh yea true didnt see that, that seemed to fix it thanks CC
and thanks spike^^ for the cleanup of the code

Statistics: Posted by simo — Sun Nov 07, 2021 12:18 pm

counting digits and if it exceeds threshold set mute

2021-11-07T12:05:30-04:00

Little typo from SpiKe^^. It's \d and not /d

Statistics: Posted by CrazyCat — Sun Nov 07, 2021 12:05 pm

counting digits and if it exceeds threshold set mute

2021-11-07T11:14:23-04:00

when i replaced
set digitcount [regexp -all {/d} $tmptx]

with :
set digitcount [regsub -all {[[:digit:]]} $tmptx "" tmptx]

it seems working again

Statistics: Posted by simo — Sun Nov 07, 2021 11:14 am