check for a fixed repeated text

[simo]

Greetings ,

i was testing this tcl to check for a fixed text that has been repeated and start counting only if the repeats (incr) comes from different IPs and ignore if the repeat comes from only 1 IP

Code: Select all

bind pubm - * Check:Chan

proc Check:Chan {nick uhost hand chan text} {
     set chan [string tolower $chan]

     set text [string map [list \017 ""] [stripcodes abcgru $text]]
    
     if {![string match -nocase "*some fixed text*" $text]} { return 0 }



      set RLyCheck 4:2

    global relaychk 

    if {![info exists relaychk([set QfQ $chan:$text])]} { set relaychk($QfQ) 0 }

     after [expr {[lindex [split $RLyCheck :] 1]*1000*1}] [list incr relaychk($QfQ) -1]

       incr relaychk($QfQ)

       if {$relaychk($QfQ) >= [lindex [split $RLyCheck :] 0] && $relaychk($QfQ) < 10} {  pushmode $chan +m  }
}

im kinda stuck how to achieve that, perhaps someone has a solution for this, thanks in advance.

[simo]

Any help would be appreciated.

[simo]

it must be an extremely complex task to do as everyone i have asked so far has no clue how to achieve this.

i guess i have to use what we have in place currently wich doesnt check for repeated text but checks the text lines regardless of repeats wich is not ideal for us.