aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar steering72532026-01-18 06:31:10 -0700
committerGravatar steering72532026-01-18 06:31:10 -0700
commitcc25693c227b701865245ba32e4bff1f5da3e931 (patch)
tree65b1aa4725744c156d5a8082f7462c3c4ab40166
parentadd jseater to source lines (diff)
remind - error out if any of the fields are empty, not just the first
-rw-r--r--remind.tcl2
1 files changed, 1 insertions, 1 deletions
diff --git a/remind.tcl b/remind.tcl
index e27805e..d6a4699 100644
--- a/remind.tcl
+++ b/remind.tcl
@@ -204,7 +204,7 @@ proc pub:newReminder {nick host handle chan text} {
set time [catch {clock scan $when} timeResult]
set what [lrange $text 2 end]
- if {$who == ""} {
+ if {$who == "" || $when == "" || $what == ""} {
putserv "NOTICE $chan :\[remind\] !remind <nick> \"<time>\" <message> (time is a format parseable by the TCL command 'clock scan' - https://www.tcl.tk/man/tcl8.6/TclCmd/clock.html)"
return 0
}