egghelp/eggheads community

Bot banlist cleaner/administrator

2007-08-05T10:20:37-04:00

works great! thank you.

Statistics: Posted by BrewMaster — Sun Aug 05, 2007 10:20 am

Bot banlist cleaner/administrator

2007-07-31T13:01:14-04:00

Would easiest be a matter of changing the binding into this:

Code:

bind dcc nm purgebans dcc:purgebans

Statistics: Posted by nml375 — Tue Jul 31, 2007 1:01 pm

Bot banlist cleaner/administrator

2007-07-31T11:29:54-04:00

One last request....and I think this is easy, but I have no idea how to do it.

Can we make the binded command only usable by a +m or higher user?

I don't really want to have anyone but the bot masters and owners triggering the purgebans command.

Excellent work on that script..It works great!

brew

Statistics: Posted by BrewMaster — Tue Jul 31, 2007 11:29 am

Bot banlist cleaner/administrator

2007-07-31T10:16:47-04:00

nml375

Worked Great!! Just what I was looking for. Thank you.

Brew

Statistics: Posted by BrewMaster — Tue Jul 31, 2007 10:16 am

Bot banlist cleaner/administrator

2007-07-31T09:25:20-04:00

Fixed.
Must've been abit too tired when writing that code. I hav'nt seen any further obvious flaws as of now. As soon as I get access to my devel-eggies, I'll have a more throughout bughunt, but it should work fine now.
Post above updated again.
Edit: Finally got in touch with those eggies, revealed one additional typo, apart from that, runs like a charm for me.

@Awyeah: Your script still does not alter the internal banlist, which is the topic of this thread.

Statistics: Posted by nml375 — Tue Jul 31, 2007 9:25 am

Bot banlist cleaner/administrator

2007-07-31T06:33:01-04:00

nml375

the new error:

Tcl error [dcc:purgebans]: missing close-bracket

Statistics: Posted by BrewMaster — Tue Jul 31, 2007 6:33 am

Bot banlist cleaner/administrator

2007-07-31T04:16:52-04:00

Perhaps this might lure your interest:
http://forum.egghelp.org/viewtopic.php?t=13839

Statistics: Posted by awyeah — Tue Jul 31, 2007 4:16 am

Bot banlist cleaner/administrator

2007-07-31T00:07:48-04:00

that was all Greek to me awyeah.
I was thinking that this script would run when triggered by a dcc command, then post what it removed. I guess I am off on my assumptions.

brew

Statistics: Posted by BrewMaster — Tue Jul 31, 2007 12:07 am

Bot banlist cleaner/administrator

2007-07-30T20:58:48-04:00

Well I think he wanted the script to be automated, so instead of bind dcc here, you have to use bind time BrewMaster or just use a proc with a continuous timer calling the ban remove proc.

Statistics: Posted by awyeah — Mon Jul 30, 2007 8:58 pm

Bot banlist cleaner/administrator

2007-07-30T14:49:53-04:00

Minor bummer by me
Updated the post above to properly read the variable containing -

Statistics: Posted by nml375 — Mon Jul 30, 2007 2:49 pm

Bot banlist cleaner/administrator

2007-07-30T14:43:12-04:00

Tcl error [dcc:purgebans]: can't read "::default": no such variable

(using dcc chat interface code)

I used .purgebans in dcc chat

Statistics: Posted by BrewMaster — Mon Jul 30, 2007 2:43 pm

Bot banlist cleaner/administrator

2007-07-30T13:10:03-04:00

Thank you very much for the help.

I am off to go test this script!

Statistics: Posted by BrewMaster — Mon Jul 30, 2007 1:10 pm

Bot banlist cleaner/administrator

2007-07-30T07:55:19-04:00

1: Where you place the bindings really does'nt matter, as long as the proc exists once the binding is triggered. Last piece of code was just a quick user interface for the first script (which could be used by other scripts aswell).

2: Short answer: yes.
Long answer: Kinda, it is the default age to be used, should the scripter not provide one when calling the purgebanlist function. As I was a lazy coder when writing the user interface, I just went for the default.

3: B. The script will check both "added at" and "last used", and make sure both are older than the specified age before removing the ban. It will, however, currently not check wether the ban has an expire-time set, so it will remove bans that might've been scheduled for later removal.

Statistics: Posted by nml375 — Mon Jul 30, 2007 7:55 am

Bot banlist cleaner/administrator

2007-07-30T07:08:44-04:00

two quick questions...
1. I place the binds at the beginning of the script? or is it irrelevant where they are placed.

2. The first line .... set default-purgeage ### is where I set the age of the unused bans I want to remove? I assume a value of 90 would remove all bans set over 90 days ago from the bots ban listing.

Finally, because I don't understand/read code well, If I have a ban in the bots ban list for example:

[05:55] [2331] *!*@192.168.1.1 (perm)
[05:55] Larry: Flooders
[05:55] Created 37 days ago, last used 2 days ago

And I have the line set default-purgeage 35 set in the script. what will be the outcome?

A. The ban will be flushed because it was created 37 days ago (purge age set to 35)
OR
B. The ban will not be flushed because even though it was created 37 days ago it has been used within the last 35 days. (last used 2 days ago)

I hope I am not confusing you. Thank you in advance for all the help!!

brew

Statistics: Posted by BrewMaster — Mon Jul 30, 2007 7:08 am

Bot banlist cleaner/administrator

2007-07-31T09:34:53-04:00

Although not a complete script, I do have bits'n'pieces that will clean your banlist of old, unused bans..

Code:

set default-purgeage 180#purgebanlist ?-age days? ?&/#channel?#Checks through the specified banlist and removes any and all older#bans that have not been in use in the specified number of days.#Returns: A list of ban-structures, format similar to "banlist".proc purgebanlist args { #Initialize local variables if {[info exists ::default-purgeage]} {  set purgeage ${::default-purgeage} } set removed [list] #Read and interpret parameters #Only takes -age and optional channelname sofar... guess more might be added further on for {set i 0} {$i < [llength $args]} {incr i} {  switch -glob -- [lindex $args $i] {   "-age" {    if {[string is integer [lindex $args [incr i]]]} {     set purgeage [lindex $args $i]    } {     error "Age is not an integer: [lindex $args $i]"    }   }   "#*" -   "&*" {    set channel [lindex $args $i]    if {![validchan $channel]} {     error "Invalid channel: $channel"    }   }   default {error "Unknown option: [lindex $args $i]"}  } } #Lets make sure we have a sane value to check age against #If not, just error out since we really don't know how to fix #it anyway if {[info exists purgeage] && [string is integer $purgeage]} {  set threshold [expr [clock seconds] - $purgeage * 86400] } {  error "No valid age-setting was found." } #Get the list of bans... if {[info exists channel]} {  set bans [banlist $channel] } {  set bans [banlist] } #...and start processing them. Save the removed bans for now. foreach ban $bans {  if {[lindex $ban 3] < $threshold && [lindex $ban 4] < $threshold} {   if {[info exists channel]} {    killchanban $channel [lindex $ban 0]   } {    killban [lindex $ban 0]   }   lappend removed $ban  } } #Return the list of removed bans, so the scripter can present this #in some fancy way with pretty colors *yuck* return $removed}

Edit: fix for troublesome variablenames containing -
Edit: fixed missing close-bracket
Edit: missing space in "is integer"

This could be used with something like this, in order to provide some dcc-chat interface:

Code:

bind dcc - purgebans dcc:purgebansproc dcc:purgebans {hand idx text} { foreach chan [channels] {  foreach ban [purgebanlist $chan] {   putidx $idx "Removed \"[lindex $ban 0]\" from $chan"  } } foreach ban [purgebanlist] {  putidx $idx "Removed \"[lindex $ban 0]\" from global banlist" }}

Of course, this could be extended to allow you to specify how old a ban must be in order to be removed, which banlist to cleanse, some fancy bells'n'whistles, etc.

Statistics: Posted by nml375 — Sun Jul 29, 2007 4:51 pm