userv.tcl

   1
   2 proc check_username {target} {
   3     if {
   4         [string length $target] > 8 ||
   5         [regexp {[^-0-9a-z]} $target] ||
   6         ![regexp {^[a-z]} $target]
   7     } { error "invalid username" }
   8 }