~mdw
/
ircbot
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
mkbotpass.sh: Utility to generate `botpass.tcl'.
[ircbot]
/
userv.tcl
1
2
proc
check_username
{
target
} {
3
if
{
4
[
string
length
$target
] >
8
||
5
[
regexp
{[
^
-0
-
9
a-z
]}
$target
]
||
6
![
regexp
{
^
[
a-z
]}
$target
]
7
} {
error
"invalid username"
}
8
}