egghelp/eggheads community

remove last ban or a range of last set bans

2023-05-07T13:35:22-04:00

on suggestion of Spike^^ i came up with this :

Code:

bind pub -|- "!rlb" unban:lastbansproc unban:lastbans {nick uhost hand chan text} {    if {![isop $nick $chan] && ![ishalfop $nick $chan] && ![matchattr $hand o|o $chan]} { return 0 }     set n [join [lindex $text 0]]    if {![string is digit $n]} { putserv "notice $nick :value must be digits only like\: !rlb 3"  ; return 0 }    if {![string is digit -strict $n] || $n == 0} { set n 1 }     set chanbanlist [lsort -index 2 -integer -decreasing [chanbans $chan]]     set lasts [lrange $chanbanlist end-[expr {$n - 1}] end]     foreach last $lasts {       pushmode $chan -b "[lindex $last 0]"     }}

not sure if its all written proper but it seems to work as expected thanks so far gentz

Statistics: Posted by simo — Sun May 07, 2023 1:35 pm

remove last ban or a range of last set bans

2023-05-07T13:19:51-04:00

the single

!rlb

still doesnt seem to trigger at all tho

from what i understood of the code is it expect a range everytime iic

Statistics: Posted by simo — Sun May 07, 2023 1:19 pm

remove last ban or a range of last set bans

2023-05-08T10:14:29-04:00

on suggestion of Spike^^ i came up with this wich seems to work but not sure if its proper wiritten :

Code:

bind pub -|- "!rlb" unban:lastbansproc unban:lastbans {nick uhost hand chan text} {    if {![isop $nick $chan] && ![ishalfop $nick $chan] && ![matchattr $hand o|o $chan]} { return 0 }     set n [join [lindex $text 0]]    if {![string is digit $n]} { putserv "notice $nick :value must be digits only like\: !rlb 3 "  ; return 0 }     if {![string is integer -strict $n]} { set n 0 }     set chanbanlist [lsort -index 2 -integer -decreasing [chanbans $chan]]     set lasts [lrange $chanbanlist end-[expr {$n - 1}] end]     foreach last $lasts {       pushmode $chan -b "[lindex $last 0]"       }}

Statistics: Posted by simo — Sun May 07, 2023 1:07 pm

remove last ban or a range of last set bans

2023-05-07T12:24:57-04:00

tried your suggestion as well Spike^^ like this :

Code:

bind pub -|- "!rlb" unban:lastbansproc unban:lastbans {nick uhost hand chan text} {   global botnick    if {![isop $nick $chan] && ![ishalfop $nick $chan] && ![matchattr $hand o|o $chan]} { return 0 }     set n [join [lindex $text 0]]     if {![string is integer -strict $n]} { set n 0 }     set chanbanlist [lsort -index 2 -integer -decreasing [chanbans $chan]]     set lasts [lrange $chanbanlist end-[expr {$n - 1}] end]     foreach last $lasts {       pushmode $chan -b $last     }}

when i use like:

!rlb 5

for some reason it removes only 2 while there are 10 bans in the banlist

Statistics: Posted by simo — Sun May 07, 2023 12:24 pm

remove last ban or a range of last set bans

2023-05-07T12:21:06-04:00

Code:

set lasts [lrange $chanbanlist end-[expr {$n - 1}] end]

Statistics: Posted by SpiKe^^ — Sun May 07, 2023 12:21 pm

remove last ban or a range of last set bans

2023-05-07T12:14:59-04:00

thanks for the reply CrazyCat i tested it and found it sometimes when for example using like:

!rlb 2

it removes 3 instead of 2

Statistics: Posted by simo — Sun May 07, 2023 12:14 pm

remove last ban or a range of last set bans

2023-05-07T11:52:36-04:00

Quite easy, you didn't search a lot I guess:

Code:

bind pub -|- "!rlb" unban:lastbansproc unban:lastbans {nick uhost hand chan text} {   global botnick    if {![isop $nick $chan] && ![ishalfop $nick $chan] && ![matchattr $hand o|o $chan]} { return 0 }     set n [join [lindex $text 0]]     if {![string is integer -strict $n]} { set n 0 }     set chanbanlist [lsort -index 2 -integer -decreasing [chanbans $chan]]     set lasts [lrange $chanbanlist end-$n end]     foreach last $lasts {         putquick "MODE $chan -b $last"     }  }}

Statistics: Posted by CrazyCat — Sun May 07, 2023 11:52 am

remove last ban or a range of last set bans

2023-05-07T11:17:37-04:00

greetingz folks,

we have been using this code for a while now and it works fine removing the last set single ban im wondering how this could be edited to remove either last few set bans or just the single last one that was set :

Code:

bind pub -|- "!rlb" unban:lastbansproc unban:lastbans {nick uhost hand chan text} {   global botnick    if {![isop $nick $chan] && ![ishalfop $nick $chan] && ![matchattr $hand o|o $chan]} { return 0 }     set chanbanlist [lsort -index 2 -integer -decreasing [chanbans $chan]]     set last [lindex [lindex $chanbanlist end] 0]     if {[llength $chanbanlist] > 0} {     putquick "MODE $chan -b $last"     return 0  }}

for example :

!rlb 4

to remove the last 4 set bans

or :

!rlb

to remove only the single last set ban

Statistics: Posted by simo — Sun May 07, 2023 11:17 am