Blacklist with timed expire

tonyokc · Post by **tonyokc** » Thu Aug 26, 2004 7:10 pm

I am looking for an external blacklist tcl that expires

I found at: http://perplexa.net

# $Id: blacklist.tcl,v 1.0 2004/08/05 03:13:37 perpleXa Exp $ #
# #
# Message Commands: #
# - blackadd [time] <mask> <reason> #
# (ie. 2h, 3d, 1y) #
# - blackdel <mask|#id> #
# - blacklist #
# #
###############################################

When using with no date:

blackadd *!joe@abc.com This is a test ban

it works great

when trying to add the expire as instructed:

try 1: blackadd 2d *!joe@abc.com This is a test ban
try 2: blackadd [2d] *!joe@abc.com This is a test ban

it goes nuts

am I reading the instructions wrong? If I am entering it incorrectly, please let me know the proper way to do it

I need this sort of script, I have bots that are part of a large botnet, and do not wish to take up space in the bots ban list

awyeah · Post by **awyeah** » Thu Aug 26, 2004 8:56 pm

I can make a simple blacklist script here which will require 2,3 binds and the same no of procedures, very simple indeed by using newchanban or newban.

First I think you should try contacting the author of this script and get response from him as he might be able to assist you as it is him who coded it in the first place.

tonyokc · Post by **tonyokc** » Thu Aug 26, 2004 10:31 pm

I have left a message on his website, no response yet

Thanks,

Tony

tonyokc · Post by **tonyokc** » Fri Aug 27, 2004 12:12 pm

The author responded, its an error in his instructions, needed to be entered in a diff format: mask expire reason

so the TCL works now.

My only wish now, is that it took channel specific bans, instead of globals

Thanks,

Tony

awyeah · Post by **awyeah** » Sat Aug 28, 2004 3:17 am

See tcl-commands.doc you can change that yourself. Lookup 'newchanban' and 'newban'.

newchanban = channel specific ban
newban = global ban

tonyokc · Post by **tonyokc** » Mon Aug 30, 2004 8:24 pm

Although I am a very proficient (and prolific<grin>) mirc scripter, I know next to nothing about tcl. I wish I knew tcl enough to modify it, but I dont. When it comes to eggie scripts, I am a lowly user, not a creator

I would glady donate $20 to the charity of choice for anyone that can modify blacklist.tcl,v 1.0 by perpleXa to allow it to store channels, instead of global bans.

I tried, and although I could get it to store & kick properly, adding masks that were identical, but for diff channels just replaced the original, instead of adding.

awyeah · Post by **awyeah** » Tue Aug 31, 2004 8:23 am

Well, I don't need any charity money or so, but I will help if it is possible.

I would glady donate $20 to the charity of choice for anyone that can modify blacklist.tcl,v 1.0 by perpleXa to allow it to store channels, instead of global bans.

Store channels?
I think you mean channel specific bans.
Do you mean sticky bans?

See:
newban = global ban
newchanban = channel specific ban

Further more, if you just want to ban and kick a person without adding that person or ip in the bots banlist you can use:
putserv "MODE $chan +b *!*@host"
putserv "KICK $chan $nick :<reason here>"

I tried, and although I could get it to store & kick properly, adding masks that were identical, but for diff channels just replaced the original, instead of adding.

Then again what are we trying to store over here?

Be clear, and a bit more specific.

tonyokc · Post by **tonyokc** » Tue Aug 31, 2004 4:19 pm

It is doing server bans as I want, but placing them in all channels the bot is in. The original TCL has no ability to store channels

The tcl has these functions:

set blacklist_file "scripts/dbase/blacklist"

bind MSG m|- blacklist blacklist:list
bind MSG m|- blackadd blacklist:add
bind MSG m|- blackdel blacklist:del
bind TIME -|- "?0 * * * *" blacklist:sentry
bind JOIN -|- * blacklist:join

The original tcl took a command of:

blackadd mask expire reason

I changed it to:

blackadd mask channel expire reason

I have all the functions working except part of the blackadd

It will add (and store it) correctly if no such mask entry exist

but fails if add a second entry with same mask but diff channel.

my first try failed with it just saying mask already exists

my second way just over wrote the original entry so it was added, but existing was gone.

the line that creates my problem is:

if {![info exists blacklist($banmask)]} {

This takes no consideration for channel, only mask, caused by another line:

set banmask [blacklist:validate:host [lindex $arguments 0]]

I need to change the line so that it adds argument 1 to it, the correct syntax for something like:

set banmask [blacklist:validate:host [lindex $arguments 0]] + <space> + [lindex $arguments 1]

If you would give me the correct syntax for this, or a better way to check if 2 arguments exist on the same line in the data field

Thank You,

Tony

p.s., I hope this is specific enough

awyeah · Post by **awyeah** » Mon Sep 06, 2004 12:22 am

So you just want each channels bans to be active for that channel only right? Meaning that the blacklist should have seperate bans for each channel and the script should *not* enforce the blacklisted bans on all channels? Is this right?!

metroid · Post by **metroid** » Mon Sep 06, 2004 1:36 am

... What he means is this.

/msg <bot> blackadd <mask> <channel> <expire> <reason>

Then if someone is banned on that 1 channel, it bans them when they join, but if that person ISNT banned on a different channel with the bot, it won't do anything.

awyeah · Post by **awyeah** » Mon Sep 06, 2004 1:53 am

Oh, thats a piece of cake dewd.
'caesar' has a tcl I remember I used one named of his named 'blacklist' or something it has a similar feature but for public channels I think or even private messages.

http://www.r0x0ring.com/dl.php?id=17 (download it and use it!)
(It uses newchanban and thats what you need!)

Coding something simple as this is not a big hassle, even MeTroiD is upto the task and I'm sure he will do it if necessary, right?

metroid · Post by **metroid** » Mon Sep 06, 2004 1:30 pm

Blargh, don't look at me, i still havent managed to fix my restrictor.tcl script

Papillon hasnt responded to my email either