Wracking my little brain...

Alchera · Post by **Alchera** » Thu May 27, 2004 1:21 am

Hi,

My problem (with TCL of course) is probaby so simple to solve but, in my current brain dead state it's beyond me; and after hours of searching and experimenting.

I have written a nifty little script that bans all users entering a channel with numerical idents (~stw52890@ for example), instead of doing the conventional ban I just want to ban the last digit ie. *!*0@* no matter what that digit is. Can any one help one brain dead user?

strikelight · Post by **strikelight** » Thu May 27, 2004 2:16 am

Well one method is you can just use .+ban *!*#@* 10 times, where # is 0 to 9 of course....

Via Tcl however...

Assuming you have a userhost in say variable $uhost of the form <ident>@<host> ...

Code: Select all

set ident [lindex [split $uhost @] 0]
# replace with newchanban or whatnot...
putserv "MODE #chan +b *!*[string range $ident end end]@*"
# 'end end' may be invalid arguments depending on your Tcl Version,
# so you may need to use:
# *!*[string index $ident [expr {[string length $ident] - 1}]]@*

egghead · Post by **egghead** » Thu May 27, 2004 2:26 am

or use [string index $ident end]

strikelight · Post by **strikelight** » Thu May 27, 2004 2:45 am

Again, depending on your Tcl version, 'end' may be an invalid argument for string index, yielding the error:

expected integer but got "end"

To ensure compatibility, see the commented code in my previous post.

Alchera · Post by **Alchera** » Thu May 27, 2004 3:44 pm

Hi,

Many thanks for the help. There is much good karma coming in your direction.

No problems with 'end', I'm using the right version TCL.

Well one method is you can just use .+ban *!*#@* 10 times, where # is 0 to 9 of course....

Ummm... I did have that which is why I wrote the script. LOL