Mercurial > hg > egg-tcls
changeset 647:98e2254056b2
tj: Adjust few comments.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Wed, 17 Feb 2021 10:21:23 +0200 |
parents | cf62cdc44568 |
children | 0f206ab6a0e4 |
files | tj.tcl |
diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/tj.tcl Tue Feb 16 13:16:08 2021 +0200 +++ b/tj.tcl Wed Feb 17 10:21:23 2021 +0200 @@ -509,7 +509,8 @@ return 1 } - if {$nids < 1} { + if {$nids == 0} { + # No, error out tj_msg $upublic $unick $uchan "err_no_such_id" [list $uid] return 1 } @@ -552,7 +553,9 @@ # Check for #id prefix set notdefault [tj_get_id $rarg rindex uid] + # Check if name is specified if {[utl_arg_get $rarglist rindex rarg 0]} { + # Validate it set uname [tj_correct_handle $rarg] if {$uname == ""} { tj_msg $upublic $unick $uchan "err_unknown_user" [list $rcmd]