bugfixes. before ledbot fchan reorg

[ircbot] / irccore.tcl

diff --git a/irccore.tcl b/irccore.tcl
index c3ee5446e5e44696edd361a4dad62d44d54dacad..34836e2a7c7a01468e6e06e8cb0d63bc77bfc2f8 100644 (file)
--- a/irccore.tcl
+++ b/irccore.tcl
@@ -247,6 +247,13 @@ proc check_nick {n} {
     if {[string length $n] > 18} { error "nick too long" }
 }
 
     if {[string length $n] > 18} { error "nick too long" }
 }
 

+proc check_chan {n} {
+    if {![regsub {^\#} $n {} n]} { error "bad chan start" }
+    if {[regexp -nocase {[^][\\`_^{|}a-z0-9-]} $n]} { error "bad char in chan" }
+    if {[regexp {^[-0-9]} $n]} { error "bad chan name start" }
+    if {[string length $n] > 18} { error "chan name too long" }
+}
+

 proc ischan {dest} {
     return [regexp {^[&#+!]} $dest]
 }
 proc ischan {dest} {
     return [regexp {^[&#+!]} $dest]
 }