egghelp/eggheads community

check if nick is still on channel before kicking

2023-01-10T16:43:00-04:00

ive tested again and original code seems to work fine now SpiKe^^ thanks much apreciated

Statistics: Posted by simo — Tue Jan 10, 2023 4:43 pm

check if nick is still on channel before kicking

2023-01-10T15:47:44-04:00

thanks for your reply caesar ive tried your suggestion as well and for some reason it doesnt seem to trigger and i didnt get any error in PL

Statistics: Posted by simo — Tue Jan 10, 2023 3:47 pm

check if nick is still on channel before kicking

2023-01-10T12:49:05-04:00

If for whatever reason lsort doesn't work for you then try with dict, here's an example:

Code:

foreach ele $myList {dict set tmp $ele myList}set unique [dict keys $tmp]

I would switch back to the original 'enforce:kick' and use a helper function instead:

Code:

proc filter:kick {chan} {if {![botisop $chan] || ![info exists kickList($chan)]} returnforeach ele $kickList($chan) {dict set tmp $ele kickList($chan)}set kickList($chan) [dict keys $tmp]enforce:kick $chan}

and call filter:kick in the after line instead of the enforce:kick.

Statistics: Posted by caesar — Tue Jan 10, 2023 12:49 pm

check if nick is still on channel before kicking

2023-01-10T05:59:14-04:00

Using the original one you posted didn't seem to trigger SpiKe i will try again later when im on pc and report again hopefully thanks SpiKe

Statistics: Posted by simo — Tue Jan 10, 2023 5:59 am

check if nick is still on channel before kicking

2023-01-10T04:32:40-04:00

No, it was "proper" as I posted it originally.

Statistics: Posted by SpiKe^^ — Tue Jan 10, 2023 4:32 am

check if nick is still on channel before kicking

2023-01-10T03:02:24-04:00

i tried editing it to this :

Code:

      foreach k "[lsort -unique -dictionary $kickList($chan)]" {         if {[onchan $k $chan]} {  lappend knicks $k  }      }

it seems to have fixed it but not sure if i edited it proper tho

Statistics: Posted by simo — Tue Jan 10, 2023 3:02 am

check if nick is still on channel before kicking

2023-01-10T02:54:58-04:00

thanks for the reply CrazyCat and SpiKe^^

yes i overlooked the duplicate timers to kick thanks for correcting CrazyCat

i tried your posted code and it didnt seem to Trigger SpiKe^^ and i didnt get any errors

Statistics: Posted by simo — Tue Jan 10, 2023 2:54 am

enforceBans

2023-01-09T19:27:28-04:00

maybe...

Code:

namespace eval enforceBans {  variable enforce  ;  variable kickList   set enforce(max) "4"   set enforce(reason_single) "Please respect the network rules, thank you."   set enforce(reason_multi) "Please respect the network rules, thank you."   bind mode - "% +b" [namespace current]::enforce   proc enforce {nick uhost hand chan mc ban} {      variable kickList      if {[matchaddr $ban $::botname]} { 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 2300 [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)]} {         if {[info exists kickList($chan)]} {  unset kickList($chan)  }         return 0      }      foreach k [lsort -unique -dictionary $kickList($chan)] {         if {[onchan $k $chan]} {  lappend knicks $k  }      }      unset kickList($chan)      if {![info exists knicks]} {  return 0  }      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 ""        }        putnow "KICK $chan $nicks :$reason"      }      return 0   }}

Statistics: Posted by SpiKe^^ — Mon Jan 09, 2023 7:27 pm

check if nick is still on channel before kicking

2023-01-09T19:15:26-04:00

This doesn't really solve your problem as the kick occures each 2s.

Statistics: Posted by CrazyCat — Mon Jan 09, 2023 7:15 pm

check if nick is still on channel before kicking

2023-01-09T16:21:00-04:00

i gave it a try and came of with this it seems to work but im not sure if its done proper

Code:

   proc enforce:kick {chan} {      variable enforce      variable kickList      variable NewKickList      if {![botisop $chan] || ![info exists kickList($chan)]} {         array unset kickList $chan         return 0      }  foreach nickx $kickList($chan) { if {[onchan $nickx $chan]} {  set klist $nickx ;  lappend NewKickList($chan) $klist  } }      set knicks [lsort -unique -dictionary $NewKickList($chan)]      unset kickList($chan)      unset NewKickList($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 ""        }         after 2000 [list putnow "KICK $chan $nicks :$reason"]      }      return 0   }

Statistics: Posted by simo — Mon Jan 09, 2023 4:21 pm

check if nick is still on channel before kicking

2023-01-08T20:41:48-04:00

greetingz gentz,

i'm wondering how to edit this code in the kick proc to check if nick(s) are still in channel before executing the kick command(s) as we use a timer, let me post the code:

Code:

namespace eval enforceBans {   set enforce(max) "4"   set enforce(reason_single) "Please respect the network rules, thank you."   set enforce(reason_multi) "Please respect the network rules, thank you."   bind mode - "% +b" [namespace current]::enforce   proc enforce {nick uhost hand chan mc ban} {      variable kickList      if {[matchaddr $ban $::botname]} { 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 300 [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 ""        }         after 2000 [list putnow "KICK $chan $nicks :$reason"]      }      return 0   }}

thanks in advance gentz,

Statistics: Posted by simo — Sun Jan 08, 2023 8:41 pm