quit message ban tcl

CafeiN · Post by **CafeiN** » Wed Feb 13, 2002 2:21 am

I need a tcl which bans the ip of a user whose quit message contains a specific word.

Wcc · Post by **Wcc** » Wed Feb 13, 2002 3:55 am

# Set the words to ban for here.
set ban_words {
	"blah"
	"word word"
}

bind sign - * sign:ban
proc sign:ban {nick uhost hand chan text} {
	global ban_words
	foreach i $ban_words {
		if {[regexp $i $text]} { pushmode $chan +b [maskhost $uhost] }
	}
	flushmode $chan
}

CafeiN · Post by **CafeiN** » Wed Feb 13, 2002 7:44 pm

thanks i will test this code.

CafeiN · Post by **CafeiN** » Wed Feb 13, 2002 9:13 pm

(DeLiDaNa): [15:10] TCL error [sign:ban]: couldn't compile regular expression pattern: ?+* follows nothing

it gives this error message.

And can I use wildcards with the quit message words?

Wcc · Post by **Wcc** » Thu Feb 14, 2002 12:11 am

Try:

Code: Select all

# Set the words to ban for here.
set ban_words {
	"*blah*"
	"*word word*"
}

bind sign - * sign:ban
proc sign:ban {nick uhost hand chan text} {
	global ban_words
	foreach i $ban_words {
		if {[string match [string tolower $i] [string tolower $text]]} { pushmode $chan +b [maskhost $uhost] }
	}
	flushmode $chan
}

CafeiN · Post by **CafeiN** » Sat Feb 16, 2002 2:09 am

yeahh. this works. but I want it to ban user with this mask. *!*@host.domain

but it bans the user with *!ident@host.*

what to do with it?

Wcc · Post by **Wcc** » Sat Feb 16, 2002 2:40 am

Code: Select all

# Set the words to ban for here.
set ban_words {
	"*blah*"
	"*word word*"
}

bind sign - * sign:ban
proc sign:ban {nick uhost hand chan text} {
	global ban_words
	foreach i $ban_words {
		if {[string match [string tolower $i] [string tolower $text]]} { pushmode $chan +b *!*@[lindex [split $uhost @] 1] }
	}
	flushmode $chan
}

<font size=-1>[ This Message was edited by: Wcc on 2002-02-15 23:40 ]</font>

CafeiN · Post by **CafeiN** » Sat Feb 16, 2002 3:21 am

well done Wcc. thanks for the code. Now it works the way I want. I think you should post the tcl to this site's tcl scripts page. I have searched for a tcl like this but I haven't found any.

Yourname · Post by **Yourname** » Sat Feb 16, 2002 12:08 pm

LOL, Wcc is such a nice person to everyone.. but he isnt to me

LifeAdeth · Post by **LifeAdeth** » Sun Feb 17, 2002 4:01 am

I and I would guess many others would enjoy a tcl that has the options to kick or ban with timers and the usual options. ect. ect. make it a full up on part notice tcl. would make many chan owners happy I think.

CafeiN · Post by **CafeiN** » Fri Mar 29, 2002 11:17 am

Is it possible to modify this tcl to set the bans sticky within the given time. And also set the ban in *!*@212.23.34.* format

<font size=-1>[ This Message was edited by: CafeiN on 2002-03-29 15:17 ]</font>

CafeiN · Post by **CafeiN** » Sat Mar 30, 2002 2:12 pm

Ok. I have modified this code. Now it bans the user for given minutes and makes the ban sticky if you use dynamic bans.

Code: Select all

# Set the words to ban for here.
set ban_words {
	"inviter"
}

bind sign - * sign:ban
proc sign:ban {nick uhost hand chan text} {
	global ban_words
	foreach i $ban_words {
		if {[string match [string tolower $i] [string tolower $text]]} {newchanban $chan *!*@[lindex [split $uhost @] 1] QuitTCL inviter 1100 sticky}
	}
	flushmode $chan
}

but it still needs some work for me. I want it to ban the user with the *!*@212.23.34.* format. the last class must replaced with a * . I think *!*@[lindex [split $uhost @] 1] must be modified. If anyone knows how please write it here.
Thanks...