Mercurial > hg > egg-tcls

diff quotedb.tcl @ 346:329ceff76d0c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
qdb: Add support for enabled channels.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 20 Oct 2015 10:44:15 +0300
parents db46078c7028
children 2968f335121a
line wrap: on
line diff
--- a/quotedb.tcl	Tue Oct 20 10:43:43 2015 +0300
+++ b/quotedb.tcl	Tue Oct 20 10:44:15 2015 +0300
@@ -374,7 +374,11 @@
 
 #-------------------------------------------------------------------------
 proc qdb_command {ucmd utable unick uhost uhand uchan utext upublic} {
-  global qdb_msg_help
+  global qdb_msg_help qdb_channels
+
+  if {$upublic && ![utl_match_delim_list $qdb_channels $uchan]} {
+    return 0
+  }
 
   set utext [string trim $utext]