capital ident

[asssaf1]

i need command that when some one with capital letters in his ident join to my channel its kick him
please help me.

[ppslim]

Code: Select all

proc join:capindentkick {nick uh hand chan} {
  regsub -all -- [lindex [split $uh @] 0] {[A-Z]} {} uh2
  if {$uh != $uh2} {
    puthelp "KICK $chan $nick :No capc allowed in ident"
  }
}
bind join - "*" join:capindentkick