add on-vc

[ircbot] / bot.tcl

diff --git a/bot.tcl b/bot.tcl
index 9b73cc94f3f452a6278b622c9710267705eaa34e..b7063129502c7ca662dc84bc85978a9af267b708 100755 (executable)
--- a/bot.tcl
+++ b/bot.tcl
@@ -5,6 +5,7 @@ set helpfile helpinfos
 source irccore.tcl
 source parsecmd.tcl
 source stdhelp.tcl
 source irccore.tcl
 source parsecmd.tcl
 source stdhelp.tcl

+source userv.tcl

 
 defset marktime_min 300
 defset marktime_join_startdelay 5000
 
 defset marktime_min 300
 defset marktime_join_startdelay 5000


@@ -794,14 +795,6 @@ proc msg_366 {p c args} {
     unset names_chans
 }
 
     unset names_chans
 }
 

-proc check_username {target} {
-    if {
-       [string length $target] > 8 ||
-        [regexp {[^-0-9a-z]} $target] ||
-        ![regexp {^[a-z]} $target]
-    } { error "invalid username" }
-}
-

 proc somedb__head {} {
     uplevel 1 {
        set idl [irctolower $id]
 proc somedb__head {} {
     uplevel 1 {
        set idl [irctolower $id]