egghelp/eggheads community

clearbans it's not working

2020-05-01T07:10:30-04:00

Yes but he also wanted it to clear Channel Bans of the channel
which is what we now have

ps this will do great for my new Security Script

Statistics: Posted by ComputerTech — Fri May 01, 2020 7:10 am

clearbans it's not working

2019-02-06T10:20:22-04:00

indeed thats what it was thx again caesar

I like to wrap code into namespaces cos then I don't have to worry about variables being overwritten from another file or have duplicated function names.

sounds very usefull as i found out myselve it can be a thing if u forget u have some same variable somewhere

Statistics: Posted by simo — Wed Feb 06, 2019 10:20 am

clearbans it's not working

2019-02-06T09:50:54-04:00

Most likely you have a clearbans(max) variable in another script that overwrites the 15 you write, hence why i told you to unload other scripts. To make sure the server really allows you to issue 15 modes per line when you connect to the server should notice a line like this for instance from Undernet:

Code:

WHOX WALLCHOPS WALLVOICES USERIP CPRIVMSG CNOTICE SILENCE=25 MODES=6 MAXCHANNELS=50 MAXBANS=100 NICKLEN=12 are supported by this server

where MODES=6 is the max you are permitted.

I like to wrap code into namespaces cos then I don't have to worry about variables being overwritten from another file or have duplicated function names.

Statistics: Posted by caesar — Wed Feb 06, 2019 9:50 am

clearbans it's not working

2019-02-06T06:58:48-04:00

i had some other similar script wich gave me the error its fixed now
tnx again caesar for the efforts i was curious about 1 thing tho i tried using the

set clearbans(max) 6

i changed it to 15 since inspircd servers allow 15 mode settings per line
yet is seems to remove bans in sets of 5 no matter what i do any way to
fix this ?

Statistics: Posted by simo — Wed Feb 06, 2019 6:58 am

Hello

2019-02-05T12:45:50-04:00

ceasar its ok my friend when u have time thx again in advance with ur excellent work scripts

Statistics: Posted by Stefano1990 — Tue Feb 05, 2019 12:45 pm

clearbans it's not working

2019-02-05T11:16:59-04:00

I've noticed a few more typos and decided to pull down the code so I can properly test it and post when done.

Statistics: Posted by caesar — Tue Feb 05, 2019 11:16 am

Hello

2019-02-05T05:38:12-04:00

now is show this echo on PL during !clearbans

Code:

Tcl error [::clearbans::raws]: can't use non-numeric string as operand of "-"

Statistics: Posted by Stefano1990 — Tue Feb 05, 2019 5:38 am

clearbans it's not working

2019-02-05T05:14:57-04:00

Ah, my bad again.

I was testing stuff in tclsh environment and had a variable called raw and in the code it's actually called text, so locate:

Code:

lassign [split $raw] bot chan ban nick time

and replace it with:

Code:

lassign [split $text] bot chan ban nick time

and should fix things.

Statistics: Posted by caesar — Tue Feb 05, 2019 5:14 am

Hello

2019-02-05T04:15:56-04:00

ceasar when i type !clearbans on PL is show me this echo repeated 28 times same link

Code:

[10:14:16]  [09:14:16] Tcl error [::clearbans::raws]: can't read "raw": no such variable[10:14:16]  [09:14:16] Tcl error [::clearbans::raws]: can't read "raw": no such variable[10:14:16]  [09:14:16] Tcl error [::clearbans::raws]: can't read "raw": no such variable[10:14:16]  [09:14:16] Tcl error [::clearbans::raws]: can't read "raw": no such variable

Statistics: Posted by Stefano1990 — Tue Feb 05, 2019 4:15 am

clearbans it's not working

2019-02-05T10:50:00-04:00

This discussion is/was about removing all channel bans upon user request. You should make your own topic in Script Requests as things tend to go in a different dirrection.

As for automatically remove all bans older than 1 hour or whatever you want I updated the code:

Code:

Code cemoved cos will read after some proper testing. Enough making a fool of myself for today.  xD

Keep in mind that I haven't tested anything so it's up to you to do this task and report back if get any errors.

Also, notice that there's a new channel flag called clearbans that you need to activate with .chanset #channel +clearbans on the channels where you want the 1 hour (or whatever) bans to be removed automatically.

Oh, and if the nick isn't specified in the channel bans list and not bot's internal bans list, then the "simple user . ! ub nick not other bans" is kind of impossible to achieve. What I mean by this? If you have mIRC do /debug @x then a /mode #channel b where #channel is an actual channel you are on and see the output in the @x window that just showed up.

Let's take as example my output:

Code:

<- :amsterdam.nl.eu.undernet.org 367 me #EggDrop *!~eggy@modemcable*.mc.videotron.ca * 1548937832

where me is my name obviously, #EggDrop is the channel, *!~eggy@modemcable*.mc.videotron.ca is the ban mask, * is the nick and 1548937832 is the timestamp in unix time format (how many seconds have passed since 00:00:00 on 1 January 1970). So, since the nick is * you can't actually match a nick against that as will match all bans.

If you wanted !clearbans, .cb, !cb to do the same thing then duplicate the line with !clearbans and change the command to .cb or whatever you want.

Edit: Fixed typo.

Statistics: Posted by caesar — Tue Feb 05, 2019 3:41 am

Hello

2019-02-05T02:27:39-04:00

hello ceasar now its works look great job thx ,

Code:

[08:23:27] Jupiter !clearbans[08:23:27] * TEST sets mode: -bbbbbbbbbbbb ~q:*!*@Test.com-4cu.725.79.52.IP *!*@Test.com-06c.073.85.59.IP *!*@Test.com-r08.604.99.34.IP *!*@Test.com-gb1.376.93.25.IP *!*@Test.com-nqm.630.94.98.IP *!*@Test.com-k0a.858.08.93.IP *!*@Test.com-864.736.99.51.IP *!*@Test.com-iad.991.65.43.IP *!*@Test.com-3qe.231.01.58.IP *!*@Test.com-e16.301.24.70.IP *!*@Test.com-119.446.34.43.IP *!*@Test.com-auy.493.44.63.IP[08:23:27] * TEST sets mode: -bbbbbbbbbbbb ~q:*!*@Test.com-hfz.047.53.28.IP ~q:*!*@Test.com-pp2.301.69.59.IP *!*@Test.com-5yb.488.57.95.IP *!*@Test.com-082.554.45.60.IP *!*@Test.com-429.729.78.47.IP ~q:*!*@Test.com-8p0.118.97.15.IP ~q:*!*@Test.com-827.144.52.27.IP ~q:*!*@Test.com-p8v.513.59.32.IP ~q:*!*@Test.com-7k1.596.54.91.IP ~q:*!*@Test.com-22n.154.50.91.IP ~q:*!*@Test.com-c02.400.26.20.IP ~q:*!*@Test.com-ufb.604.06.85.IP[08:23:27] * TEST sets mode: -b *!*@Test.com-i49.482.76.85.IP[08:23:27] * &TEST Removed 25 bans and list is now empty.

but can u add and 2 options and to unban a simple user . ! ub nick not other bans and when the bans have 1 hour and more to remove automatically all bans
thx in advance

Statistics: Posted by Stefano1990 — Tue Feb 05, 2019 2:27 am

clearbans it's not working

2019-02-05T02:43:06-04:00

@simo Sounds like you have two procs with the same name. By any chance you have this one? Try unloading all scripts and leave only this one and see if you still get the error. A fix for this issue would be to get everything into a namespace.

@Stefano1990 Yeah, my bad. Locate:

Code:

incr total $clearbans(max) $len

and replace it with:

Code:

incr total $len

Did a copy/paste and forgot to remove $clearbans(max). Now it should remove everything nicely.

Statistics: Posted by caesar — Tue Feb 05, 2019 2:07 am

Hello

2019-02-05T01:36:40-04:00

the clearbans of ceasar show me this when i used again the public command !clearbans !cb .cb
and is not remove all bans need to retype same command
need to remove unban all bans #channel 10 20 30 max
and to have and 2 others option extra for specific user to unban !unban !ub .ub nick
and if on channel status ban have up on 1 hour bans to remove it automatically
if is possbible to fix it thx in advance

with set clearbans(max) 12

removing 24 ban and remains some others on ban when i retype second time same !clearbans is show me this on PL

Tcl error [cb:bind:raw]: wrong # args: should be "incr varName ?increment?"

[07:50:18] !clearbans
[07:50:18] * TEST sets mode: -bbbbbbbbbbbb *!*@Test.com-auy.493.44.63.IP *!*@Test.com-119.446.34.43.IP *!*@Test.com-e16.301.24.70.IP *!*@Test.com-3qe.231.01.58.IP *!*@Test.com-iad.991.65.43.IP *!*@Test.com-864.736.99.51.IP *!*@Test.com-k0a.858.08.93.IP *!*@Test.com-nqm.630.94.98.IP *!*@Test.com-gb1.376.93.25.IP *!*@Test.com-r08.604.99.34.IP *!*@Test.com-06c.073.85.59.IP ~q:*!*@Test.com-4cu.725.79.52.IP
[07:50:18] * TEST sets mode: -bbbbbbbbbbbb *!*@Test.com-082.554.45.60.IP *!*@Test.com-5yb.488.57.95.IP ~q:*!*@Test.com-pp2.301.69.59.IP ~q:*!*@Test.com-hfz.047.53.28.IP ~q:*!*@Test.com-ufb.604.06.85.IP ~q:*!*@Test.com-c02.400.26.20.IP ~q:*!*@Test.com-22n.154.50.91.IP ~q:*!*@Test.com-7k1.596.54.91.IP ~q:*!*@Test.com-p8v.513.59.32.IP ~q:*!*@Test.com-827.144.52.27.IP ~q:*!*@Test.com-8p0.118.97.15.IP *!*@Test.com-429.729.78.47.IP
[07:51:05] !clearbans

Statistics: Posted by Stefano1990 — Tue Feb 05, 2019 1:36 am

clearbans it's not working

2019-02-04T14:05:14-04:00

hey there caesar gettin this in return:

19:04:18 Tcl error: invalid command name "wrong # args: should be "clear:bans nick uhost hand text"
19:04:18 Tcl error: while executing
19:04:18 Tcl error: "clear:bans $_pub1 $_pub2 $_pub3 $_pub4 $_pub5""

using your version returns me the same error

Statistics: Posted by simo — Mon Feb 04, 2019 2:05 pm

clearbans it's not working

2019-02-05T02:04:23-04:00

Do a .tcl $errorInfo from DCC Chat/Telnet with the bot when you see that error to track down the source of the issue.

Would also help if post what code you used, as me and Spike offered a few solution, granted his final one uses a different approach than what I suggested initially.

Here's my "version" that also relies on the raw 367 outputs from the server instead of bot's banlist.

Code:

set clearbans(max) 6bind pub o|o !clearbans clear:bansproc clear:bans {nick uhost hand chan text} {global clearbansset chan [string tolower $chan]if {![botisop $chan]} returnset clearbans($chan) {}bind raw - 367 cb:bind:rawbind raw - 368 cb:bind:rawputserv "MODE $chan b"} proc cb:bind:raw {from key text} {global clearbansswitch -- $key {367 {lassign [split $text] bot chan maskset chan [string tolower $chan]if {![info exists clearbans($chan)]} returnif {[lsearch $clearbans($chan) $mask] > -1} returnlappend clearbans($chan) $mask}368 {lassign [split $text] bot chanset chan [string tolower $chan]if {![info exists clearbans($chan)]} returnunbind raw - 367 cb:bind:rawunbind raw - 368 cb:bind:rawset len [llength $clearbans($chan)] set total 0if {$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 $lenset len 0}puthelp "MODE $chan -$mode $masks"}} else {puthelp "PRIVMSG $chan :Bans list is empty."}puthelp "PRIVMSG $chan :Removed $total bans and list is now empty." }}}

Did minimal testing so reply back if you get any error.

Edit: Fixed.

Statistics: Posted by caesar — Mon Feb 04, 2019 10:48 am