[ircbot] / userv.tcl


proc check_username {target} {
    if {
	[string length $target] > 8 ||
        [regexp {[^-0-9a-z]} $target] ||
        ![regexp {^[a-z]} $target]
    } { error "invalid username" }
}
Commit	Line	Data
b52676c0 IJ	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	}