Mercurial > hg > egg-tcls

comparison utillib.tcl @ 610:a5c929a473ac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
utillib: Check against validuser() in utl_valid_user() proc.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 09 Feb 2021 12:53:04 +0200
parents a5e83abb51a8
children 6f1d26814cc9
comparison
equal deleted inserted replaced
609:a5e83abb51a8 610:a5c929a473ac
70 } 70 }
71 71
72 72
73 proc utl_valid_user {uhand} { 73 proc utl_valid_user {uhand} {
74 if {$uhand != "" && $uhand != "{}" && $uhand != "*"} { 74 if {$uhand != "" && $uhand != "{}" && $uhand != "*"} {
75 return 1 75 return [validuser $uhand]
76 } 76 }
77 return 0 77 return 0
78 } 78 }
79 79
80 80