egghelp/eggheads community

quit message ban tcl

2002-03-30T14:12:00-04:00

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:

# Set the words to ban for here.set ban_words {"inviter"}bind sign - * sign:banproc sign:ban {nick uhost hand chan text} {global ban_wordsforeach 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...

Statistics: Posted by Guest — Sat Mar 30, 2002 2:12 pm

quit message ban tcl

2002-03-29T11:17:00-04:00

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

[ This Message was edited by: CafeiN on 2002-03-29 15:17 ]

Statistics: Posted by Guest — Fri Mar 29, 2002 11:17 am

quit message ban tcl

2002-02-17T04:01:00-04:00

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.

Statistics: Posted by Guest — Sun Feb 17, 2002 4:01 am

quit message ban tcl

2002-02-16T12:08:00-04:00

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

Statistics: Posted by Yourname — Sat Feb 16, 2002 12:08 pm

quit message ban tcl

2002-02-16T03:21:00-04:00

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.

Statistics: Posted by Guest — Sat Feb 16, 2002 3:21 am

quit message ban tcl

2002-02-16T02:40:00-04:00

Code:

# Set the words to ban for here.set ban_words {"*blah*""*word word*"}bind sign - * sign:banproc sign:ban {nick uhost hand chan text} {global ban_wordsforeach i $ban_words {if {[string match [string tolower $i] [string tolower $text]]} { pushmode $chan +b *!*@[lindex [split $uhost @] 1] }}flushmode $chan}

[ This Message was edited by: Wcc on 2002-02-15 23:40 ]

Statistics: Posted by Wcc — Sat Feb 16, 2002 2:40 am

quit message ban tcl

2002-02-16T02:09:00-04:00

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?

Statistics: Posted by Guest — Sat Feb 16, 2002 2:09 am

quit message ban tcl

2002-02-14T00:11:00-04:00

Try:

Code:

# Set the words to ban for here.set ban_words {"*blah*""*word word*"}bind sign - * sign:banproc sign:ban {nick uhost hand chan text} {global ban_wordsforeach i $ban_words {if {[string match [string tolower $i] [string tolower $text]]} { pushmode $chan +b [maskhost $uhost] }}flushmode $chan}

Statistics: Posted by Wcc — Thu Feb 14, 2002 12:11 am

quit message ban tcl

2002-02-13T21:13:00-04:00

(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?

Statistics: Posted by Guest — Wed Feb 13, 2002 9:13 pm

quit message ban tcl

2002-02-13T19:44:00-04:00

thanks i will test this code.

Statistics: Posted by Guest — Wed Feb 13, 2002 7:44 pm

quit message ban tcl

2002-02-13T03:55:00-04:00

Code:

# Set the words to ban for here.set ban_words {"blah""word word"}bind sign - * sign:banproc sign:ban {nick uhost hand chan text} {global ban_wordsforeach i $ban_words {if {[regexp $i $text]} { pushmode $chan +b [maskhost $uhost] }}flushmode $chan}

Statistics: Posted by Wcc — Wed Feb 13, 2002 3:55 am

quit message ban tcl

2002-02-13T02:21:00-04:00

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

Statistics: Posted by Guest — Wed Feb 13, 2002 2:21 am