Nickname format detection

[Gothic-Angel]

Im wondering if anyone has wrote a script for nick name detection, not swear words or anything like that a format of a nick, like for instace we get these drones that the format of the nick is as of follows


silvia22f
nancy19f
cindy20f
marylin21f

all female names followed by age,sex.

Id prefer to just ban this format.

[Papillon]

Code: Select all

regexp {.*[0-9]{2}f} $nick

[Gothic-Angel]

How do I use that?? just throw it into an onjoin proc and have a if regexp {.*[0-9]{2}f} $nick == 1 blah blah blah??

[Papillon]

yup

[Gothic-Angel]

Code: Select all

bind join - * spam:drone
set kickmsg "Infected inactive spamdrone"

proc spam:drone {nick uhost hand chan} {
global kickmsg
regexp {.*[0-9]{2}f} $nick == 0 { return }
set hostmask "*!*[string range $uhost [string first "@" $uhost] end]"
newchanban $chan $hostmask 30 $kickmsg
}

Seems to be banning everyone, im not sure about the hostmask line I got that out of a tcl my friend made for me a while back.

Anyone who joins gets banned with the kickmsg

[stdragon]

Looks like you forgot the "if" part:

if {[regexp {.*[0-9]{2}f} $nick] == 0} { return }

[Gothic-Angel]

[10:29] Tcl error [spam:drone]: syntax error in expression "regexp": variable references require preceding $

Code: Select all

bind join - * spam:drone
set kickmsg "Infected inactive spamdrone"

proc spam:drone {nick uhost hand chan} {
global kickmsg
if regexp {.*[0-9]{2}f} $nick == 1
newchanban $chan $uhost 30 $kickmsg
}

[user]

I suggest READING stdragon's post (it might provide a clue or two as to how it should be done.)

[Gothic-Angel]

aye that I did, I didnt notice he changed the structer of the line. Just woke up


works alright now thanks