| View previous topic :: View next topic |
| Author |
Message |
simo
Master
Joined: 22 Mar 2015
Posts: 204
|
 Posted: Wed Dec 07, 2016 1:23 pm Post subject: detect nicks with excessive digits in it |
 |
|
is it possible to have this tcl check for digits like more than 6 digits anywhere in the nick
| Code: | set badncks {
"http:"
"https:"
"www."
"fag"
"aars"
"whore"
"ass"
"anal"
"puta"
"[censored]"
"gay"
"rape"
"fuk"
"pussy"
"porn"
"p0rn"
"sex"
"s3x"
"homo"
"h0mo"
"hom0"
"h0m0"
}
set reasonnick "your nick is not allowed .... change your nick and reconnect ....thank you"
bind raw - NOTICE serv:connectnick
proc serv:connectnick {from key text} {
if {[string match *!*@* $from]} {
return 0; # not a server notice
}
if {![regexp -nocase { CONNECT: Client connecting on port (\d+) \(class (\S+)\): ([^!]+)!([^@]+)@(\S+) \(([0-9a-f.:]+)\) \[(.*)\]} $text -> port class nick ident host ip realname]} {
return 0; # not a connect notice
}
foreach badn $::badncks {
if {[string match -nocase *$badn* $nick]} {
putquick "kill $nick :$::reasonnick"
break
}
}
return 0
}
|
|
|
| Back to top |
|
 |
caesar
Ass Kicker
Joined: 14 Oct 2001
Posts: 3403
Location: Area 51
|
| Posted: Thu Dec 08, 2016 2:09 am Post subject: |
|
|
| Code: |
if {[string length [regsub -all {[^0-9]} $nick ""]] > 6} {
# do whatever
}
|
_________________
You may say anything about me, but don't misspell my name. |
|
| Back to top |
|
|
simo
Master
Joined: 22 Mar 2015
Posts: 204
|
| Posted: Thu Dec 08, 2016 4:43 pm Post subject: |
|
|
| tested it and works fine thnx caesar |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
