Mercurial > hg > egg-tcls

comparison quotedb.tcl @ 547:717a1c84df4c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
quotedb: Rename qdb_command() to qdb_cmd()
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 08 Jul 2020 12:12:57 +0300
parents a7e44605c930
children 85fe3bc36307
comparison
equal deleted inserted replaced
546:21aee5c2835c 547:717a1c84df4c
446 return 1 446 return 1
447 } 447 }
448 448
449 449
450 #------------------------------------------------------------------------- 450 #-------------------------------------------------------------------------
451 proc qdb_command {ucmd utable unick uhost uhand uchan utext upublic} { 451 proc qdb_cmd {ucmd utable unick uhost uhand uchan utext upublic} {
452 global qdb_channels 452 global qdb_channels
453 453
454 # Check if command comes from allowed channel or is private 454 # Check if command comes from allowed channel or is private
455 if {$upublic && ![utl_match_delim_list $qdb_channels $uchan]} { 455 if {$upublic && ![utl_match_delim_list $qdb_channels $uchan]} {
456 return 0 456 return 0