egghelp/eggheads community

[Solved]Old ban remover

2018-05-24T00:43:28-04:00

Your welcome. Sure, no problem.

Statistics: Posted by caesar — Thu May 24, 2018 12:43 am

Super

2018-05-23T13:47:59-04:00

The script works, thank you caesar!
And thanks for willyw as well!

May I upload it to the tclarchive.org?

Statistics: Posted by m4s — Wed May 23, 2018 1:47 pm

[Solved]Old ban remover

2018-05-23T02:24:15-04:00

excellent it works well

thnx caesar.

Statistics: Posted by simo — Wed May 23, 2018 2:24 am

[Solved]Old ban remover

2018-05-23T01:10:12-04:00

/facepalm

Code:

if {![info exists $data]} return

should be:

Code:

if {![info exists data]} return

notice the missing $

First is with clearbans(max) set to 5, then set it to 2 to see what happens.

[08:02] * cez sets mode: +bbbbb *!*@host.com *!*@something.net *!bla@* john!*@* *!*@host.net
[08:02] * bot sets mode: -bbb *!*@host.net *!*@something.net *!*@host.com

[08:02] * cez sets mode: +bbb *!*@host.com *!*@something.net *!*@host.net
[08:02] * bot sets mode: -bb *!*@host.net *!*@host.com

Set it to 3 and removes 3 oldest bans as should:

[08:03] * cez sets mode: +bbb *!*@host.com *!*@something.net *!*@host.net
[08:05] * cez sets mode: +b *!*@host.org
[08:05] * bot sets mode: -bbb *!*@host.net *!*@something.net *!*@host.com

And it works as expected.

Statistics: Posted by caesar — Wed May 23, 2018 1:10 am

[Solved]Old ban remover

2018-05-22T18:16:31-04:00

i tried it as well and nottin happens i made sure banlist is full and executed the script but it didnt do anything and no errors in PL

Statistics: Posted by simo — Tue May 22, 2018 6:16 pm

[Solved]Old ban remover

2018-05-23T13:44:34-04:00

Hello,

Sorry for the late answer, I was far from the "modern" world.

I tried the updated script but still no result. After "clearbans #channel" nothing happens.

Statistics: Posted by m4s — Tue May 22, 2018 11:44 am

[Solved]Old ban remover

2018-05-18T13:49:19-04:00

Initially had that piece of code inside another function, but then decided to drop it and forgot to ....."

Do I ever know THAT feeling .... heheehehe

Thanks willyw.

You're welcome.

Statistics: Posted by willyw — Fri May 18, 2018 1:49 pm

[Solved]Old ban remover

2018-05-18T00:43:04-04:00

willyw is right.

Initially had that piece of code inside another function, but then decided to drop it and forgot to replace the $max variable with $clearbans(max) to suit the names in this code.

Anyway, updated the code above and should be good now. Thanks willyw.

Statistics: Posted by caesar — Fri May 18, 2018 12:43 am

[Solved]Old ban remover

2018-05-17T18:24:44-04:00

...
Haven't tested this so let me know if you get any errors.

Me either ... I haven't loaded it.
But I found it interesting.

Have a look at this line:

Code:

  if {$len > $max)} {

I don't see what sets $max prior to that line.
Maybe you meant to use the array var there?
That possibility might account for the unmatched ) too.

I hope this saves you some time.

Statistics: Posted by willyw — Thu May 17, 2018 6:24 pm

[Solved]Old ban remover

2018-05-17T13:01:37-04:00

The #channel is a valid channel, bot is on it and has channel operator? Are there any channel bans set in the format you said you want?

Yes of course!

I forgot to mention a haven't got any error msgs aftet clearbans #channel.
Just nothing happened.

Statistics: Posted by m4s — Thu May 17, 2018 1:01 pm

[Solved]Old ban remover

2018-05-17T12:58:33-04:00

The #channel is a valid channel, bot is on it and has channel operator? Are there any channel bans set in the format you said you want?

Statistics: Posted by caesar — Thu May 17, 2018 12:58 pm

[Solved]Old ban remover

2018-05-17T12:30:10-04:00

Hi caesar!

Thank you for your help again.
I tested it but no action after clearbans #channel private command.

If I use clearbans I got: Usage: clearbans #channel
and clearbans channel (without #) I got: Error: help is not a valid input.

Statistics: Posted by m4s — Thu May 17, 2018 12:30 pm

[Solved]Old ban remover

2018-05-23T01:11:55-04:00

Code:

set clearbans(max) 5bind msg o|o clearbans clear:bansproc clear:bans {nick uhost hand text} {if {[scan $text {%s} chan] != 1} {puthelp "PRIVMSG $nick :Usage: clearbans #channel"return}if {[string first # $chan] == -1 || ![validchan $chan]} {puthelp "PRIVMSG $nick :Error: $chan is not a valid input."return}if {![botonchan $chan]} {puthelp "PRIVMSG $nick :Error: I'm not on $chan channel."return}if {![botisop $chan]} {puthelp "PRIVMSG $nick :Error: I'm not a channel operator on $chan channel."return}global clearbansforeach {ban bywho age} [join [chanbans $chan]] {scan $ban {%[^!]!%[^@]@%s} n u h# format is *!*@hostif {$n != "*" || $u != "*"} continuelappend data [list $age $ban]}if {![info exists data]} returnset data [lsort -decreasing -integer -index 0 $data]set no 0foreach {age ban} [join $data] {incr noif {$no > $clearbans(max)} breaklappend banlist $ban}set len [llength $banlist]while {$len > 0} {if {$len > $clearbans(max)} {set mode [string repeat "b" $clearbans(max)]set masks [join [lrange $banlist 0 [expr {$clearbans(max) - 1}]]]set banlist [lrange $banlist $clearbans(max) end]incr len -$clearbans(max)} else {set mode [string repeat "b" $len]set masks [join $banlist]set len 0}puthelp "MODE $chan -$mode $masks"}}

Haven't tested this so let me know if you get any errors.

Edit: Fixed variables.

Statistics: Posted by caesar — Thu May 17, 2018 3:30 am

[Solved]Old ban remover

2018-05-23T13:48:31-04:00

Hello to everyone!

May I ask Your help to create a script for me?

My channel banlist often fills up and I thought my bot should remove the 5 oldest ban if a halfop gives a private command to the bot.

The bans are only channel bans and the format is *!*@host.
Nickbans should not be removed.

The private command and the nr. of bans should be configured in the script.

Thanks for your replies!

Statistics: Posted by m4s — Wed May 16, 2018 2:21 pm