Mercurial > hg > egg-tcls

comparison tj.tcl @ 635:4fbe70d3b63a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tj: Remove access check from 'list' command.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 16 Feb 2021 12:28:23 +0200
parents fd1c56676648
children c3911a8c28e5
comparison
equal deleted inserted replaced
634:fd1c56676648 635:4fbe70d3b63a
397 } elseif {[tj_cmd_match "list" $rcmd]} { 397 } elseif {[tj_cmd_match "list" $rcmd]} {
398 # !tj list [name] 398 # !tj list [name]
399 # List reminders 399 # List reminders
400 if {[utl_arg_get $rarglist rindex uname 1]} { 400 if {[utl_arg_get $rarglist rindex uname 1]} {
401 set uname [tj_correct_handle $uname] 401 set uname [tj_correct_handle $uname]
402 if {$uname != $uhand && !$qadmin} {
403 tj_msg $upublic $unick $uchan "access_denied"
404 return 1
405 }
406 } else { 402 } else {
407 set uname $uhand 403 set uname $uhand
408 } 404 }
409 405
410 set usql "SELECT COUNT(*) FROM tj WHERE uuser='[utl_escape $uname]'" 406 set usql "SELECT COUNT(*) FROM tj WHERE uuser='[utl_escape $uname]'"