egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2002-09-15T17:09:15-04:00 https://forum.eggheads.org/app.php/feed/topic/2515 2002-09-15T17:09:15-04:00 2002-09-15T17:09:15-04:00 https://forum.eggheads.org/viewtopic.php?p=10939#p10939 <![CDATA[unban.tcl - scrip idea]]>
As I replied in the other post, you can finish this script easily. To get the ban list, use chanbans. To count it, use llength. To unban the oldest Z entries, sort the ban list with lsort (according to age) and use a for loop to unban the old entries with putserv or killchanban.

Statistics: Posted by stdragon — Sun Sep 15, 2002 5:09 pm

]]> 2002-09-04T18:01:23-04:00 2002-09-04T18:01:23-04:00 https://forum.eggheads.org/viewtopic.php?p=10473#p10473 <![CDATA[unban.tcl - scrip idea]]> I'm on many nets, and I mainly deal with bots which keep huge channels clean of spam, as you have surely noticed spam bots are fast, and sometimes when they get banned they can get nick list and send spam. That's why I want channel bans to be active as long as possible, .set ban-time isn't a solution because channel usage is different in the morning and at night etc etc.
- How would unban.tcl work?

Unban.tcl would make bot scan channel ban list every "X" mins and if channel bans reached "Y" it would take off the oldest "Z" bans. So, for example a bot on DALnet could have settings like X - 5, Y - 95, Z - 5, so bot would scan channel ban list every 5 mins and if it reached 95 channel bans it would take off 5 the oldest channel bans.

Thanks in advance.
this is beginning I've stuck I don't know how to make bot count bans, and then if bans reach max value checking which ones are the oldest and unbainng Z bans.
#bleh
set bancheckt "5"
set maxbans "95"
set removebans "5"
set banchannel "#channel"
# code
if {![info exists banchecktimer_running]} {
timer $bancheckt banchecktimer
set banchecktimer_running 1
}

proc banchecktimer { } {
foreach bansentry [chanbans $banchannel] {
} 8)

Statistics: Posted by Nexus6 — Wed Sep 04, 2002 6:01 pm

]]>