Figured out what to do about tellme secure but register insecure. Implementing untel...

[ircbot] / parsecmd.tcl

diff --git a/parsecmd.tcl b/parsecmd.tcl
index de8d322c7eed996e50172577dd65200e806944cb..d7fba69bf8cc95a99d0eba836e8ada29c39d07b0 100644 (file)
--- a/parsecmd.tcl
+++ b/parsecmd.tcl
@@ -23,6 +23,15 @@ proc ta_nick {} {
     return $v
 }
 
+proc ta_interval_optional {min def} {
+    upvar 1 text text
+    if {[ta_anymore]} {
+       return [parse_interval [ta_word] $min]
+    } else {
+       return $def
+    }
+}
+
 proc usererror {emsg} { error $emsg {} {BLIGHT USER} }
 
 proc go_usercommand {p c n dest text} {