changeset 621:a1efc28ef5a4

tj: Require #-prefix for ids in 'delete' command.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 10 Feb 2021 15:26:10 +0200
parents 47b15186373f
children 84a30765baa1
files tj.tcl
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/tj.tcl	Wed Feb 10 15:25:31 2021 +0200
+++ b/tj.tcl	Wed Feb 10 15:26:10 2021 +0200
@@ -402,8 +402,8 @@
     }
 
   } elseif {[tj_cmd_match "delete" $rcmd]} {
-    # !tj delete <id>
-    if {![utl_arg_get $rarglist rindex uid 0]} {
+    # !tj delete #<id>
+    if {![utl_arg_get $rarglist rindex rarg 0] || ![tj_get_id $rarg rindex uid]} {
       tj_msg $upublic $unick $uchan "help_delete"
       return 1
     }