egghelp/eggheads community

clear bans set by certain chanop

2022-08-12T15:40:51-04:00

Thanks SpiKe^^

Statistics: Posted by simo — Fri Aug 12, 2022 3:40 pm

clear bans set by certain chanop

2022-08-12T10:36:19-04:00

Yup, the script ends up being quite network/server specific.

According to the list I use, the replies can be very different... , and are additions used by various servers.

Statistics: Posted by SpiKe^^ — Fri Aug 12, 2022 10:36 am

clear bans set by certain chanop

2022-08-12T03:30:05-04:00

tried this and it seems to work not sure if i done it proper tho:

lassign [split $text] bot chan mask setter
set setter [string tolower [lindex [split $setter !] 0]]

Statistics: Posted by simo — Fri Aug 12, 2022 3:30 am

clear bans set by certain chanop

2022-08-12T03:14:33-04:00

did another 2 tests on my own testnet and on dalnet and on dalnet it doesnt seem to work after i consulted raw 367 on dalnet i found the issue:

this is the output for dalnet raw 367:

lair.nl.eu.dal.net 367 Cappuccino #channel *!*@DALnet-kx6.971.66.73.IP Cappuccino!~IRC@saffouane.powered.by.lunarbnc.net 1660288035

Statistics: Posted by simo — Fri Aug 12, 2022 3:14 am

clear bans set by certain chanop

2022-08-11T21:59:07-04:00

tested again and for some reason if i use a non existing nick it still removes all bans like

!cb kjshjfuye

while removing all bans should only be done with !cb

Statistics: Posted by simo — Thu Aug 11, 2022 9:59 pm

clear bans set by certain chanop

2022-08-11T21:49:20-04:00

tested again with all other scripts unloaded seems to work fine thanks SpiKe^^

Statistics: Posted by simo — Thu Aug 11, 2022 9:49 pm

clear bans set by certain chanop

2022-08-11T20:16:51-04:00

that code seems fine to me

Statistics: Posted by SpiKe^^ — Thu Aug 11, 2022 8:16 pm

clear bans set by certain chanop

2022-08-11T19:12:49-04:00

Thanks SpiKe^^ i loaded the code and tested it and it doesnt seem to react and am not gettin any error

Statistics: Posted by simo — Thu Aug 11, 2022 7:12 pm

clear bans set by certain chanop

2022-08-11T18:18:06-04:00

Try this...

Code:

set clearbans(max) 6bind pub n !cb clear:bans2021 proc clear:bans2021 {nick uhost hand chan text} {    global clearbans nickoutput clearnicks   set clearnicks [split [string trim [string tolower $text]]]   set chan [string tolower $chan]    set nickoutput [string tolower $nick]    if {![botisop $chan]} return    set clearbans($chan) {}    bind raw - 367 cb:bind:raw2021    bind raw - 368 cb:bind:raw2021    putnow "MODE $chan b" } proc cb:bind:raw2021 {from key text} {    global clearbans nickoutput clearnicks   switch -- $key {       367 {          lassign [split $text] bot chan mask setter         set setter [string tolower $setter]         set chan [string tolower $chan]          if {![info exists clearbans($chan)]} return          if {[lsearch $clearbans($chan) $mask] > -1} return          if {![llength $clearnicks] || $setter in $clearnicks} {           lappend clearbans($chan) $mask          }       }       368 {          lassign [split $text] bot chan          set chan [string tolower $chan]          if {![info exists clearbans($chan)]} return          unbind raw - 367 cb:bind:raw2021          unbind raw - 368 cb:bind:raw2021          set len [llength $clearbans($chan)]          set total 0          if {$len > 0} {             while {$len > 0} {                if {$len > $clearbans(max)} {                   set mode [string repeat "b" $clearbans(max)]                   set masks [join [lrange $clearbans($chan) 0 [expr {$clearbans(max) - 1}]]]                   set clearbans($chan) [lrange $clearbans($chan) $clearbans(max) end]                   incr len -$clearbans(max)                   incr total $clearbans(max)                } else {                   set mode [string repeat "b" $len]                   set masks [join $clearbans($chan)]                   incr total $len                    set len 0                }                puthelp "MODE $chan -$mode $masks"             }             if {![llength $clearnicks]} {               puthelp "notice $nickoutput :Removed $total bans. $chan Ban list is cleared."             } else {                puthelp "notice $nickoutput :Removed $total bans in $chan. Cleared all bans set by: [join $clearnicks]."             }          } else {            putserv "NOTICE $nickoutput :\00300,04 No bans to clear from [bold][yellow] $chan. [end]"         }          unset clearbans($chan)  ;  unset nickoutput clearnicks      }    } }

Statistics: Posted by SpiKe^^ — Thu Aug 11, 2022 6:18 pm

clear bans set by certain chanop

2022-08-11T01:29:38-04:00

thanks for the response SpiKe^^

output of raw 367 is :

irc.blah.com 367 Simo #channel *!*@cloaked-25lhta.contaboserver.net Hawk :1659848122

in the raw i also tried

Code:

lassign [split $text] bot chan chanops

to get the chanops out of the raw (the one who set the ban) seems to work for the raw part now i need to find for the bind pub part and use in the raw event to compare

Statistics: Posted by simo — Thu Aug 11, 2022 1:29 am

Show your raw 367 reply...

2022-08-10T21:06:08-04:00

Show your raw 367 reply...

According to the list I use, the replies can be very different... , and are additions used by various servers.

Statistics: Posted by SpiKe^^ — Wed Aug 10, 2022 9:06 pm

clear bans set by certain chanop

2022-08-10T12:10:16-04:00

greetz gentz,

we used this code to clear all bans from channel banlist
and i was wondering about how to edit it to have it clear all bans if no chanop is provided or only clear bans set by certain chanops like for example :

!cb

to remove all channel bans

or

!cb someopnick someopnick1 someopnick3

to only remove channel bans set by someopnick someopnick1 someopnick3

Code:

set clearbans(max) 6bind pub n !cb clear:bans2021 proc clear:bans2021 {nick uhost hand chan text} {    global clearbans nickoutput   set chan [string tolower $chan]    set nickoutput [string tolower $nick]    if {![botisop $chan]} return    set clearbans($chan) {}    bind raw - 367 cb:bind:raw2021    bind raw - 368 cb:bind:raw2021    putnow "MODE $chan b" } proc cb:bind:raw2021 {from key text} {    global clearbans nickoutput   switch -- $key {       367 {          lassign [split $text] bot chan mask          set chan [string tolower $chan]          if {![info exists clearbans($chan)]} return          if {[lsearch $clearbans($chan) $mask] > -1} return          lappend clearbans($chan) $mask       }       368 {          lassign [split $text] bot chan          set chan [string tolower $chan]          if {![info exists clearbans($chan)]} return          unbind raw - 367 cb:bind:raw2021          unbind raw - 368 cb:bind:raw2021          set len [llength $clearbans($chan)]          set total 0          if {$len > 0} {             while {$len > 0} {                if {$len > $clearbans(max)} {                   set mode [string repeat "b" $clearbans(max)]                   set masks [join [lrange $clearbans($chan) 0 [expr {$clearbans(max) - 1}]]]                   set clearbans($chan) [lrange $clearbans($chan) $clearbans(max) end]                   incr len -$clearbans(max)                   incr total $clearbans(max)                } else {                   set mode [string repeat "b" $len]                   set masks [join $clearbans($chan)]                   incr total $len                    set len 0                }                puthelp "MODE $chan -$mode $masks"             }          } else { putserv "NOTICE $nickoutput :\00300,04 No bans to clear from [bold][yellow] $chan. [end]" ; return         }          puthelp "notice $nickoutput :Removed $total bans. $chan Ban list is cleared."       }    } }

Statistics: Posted by simo — Wed Aug 10, 2022 12:10 pm