bugfixes. before ledbot fchan reorg

[ircbot.git] / userv.tcl

diff --git a/userv.tcl b/userv.tcl
new file mode 100644 (file)
index 0000000..bbb0204
--- /dev/null
+++ b/userv.tcl
@@ -0,0 +1,8 @@
+
+proc check_username {target} {
+    if {
+       [string length $target] > 8 ||
+        [regexp {[^-0-9a-z]} $target] ||
+        ![regexp {^[a-z]} $target]
+    } { error "invalid username" }
+}