Mercurial > hg > egg-tcls

changeset 666:79b5d8944eea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
feeds: Improve admin checks.
author Matti Hamalainen <ccr@tnsp.org>
date Sat, 20 Feb 2021 17:52:49 +0200
parents 4156adacdc31
children 88d0e2ba73ca
files feeds.tcl
diffstat 1 files changed, 6 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/feeds.tcl	Sat Feb 20 17:45:13 2021 +0200
+++ b/feeds.tcl	Sat Feb 20 17:52:49 2021 +0200
@@ -170,6 +170,8 @@
   set rarglist [::textutil::split::splitx $uargs {\s+}]
   set rcmd [lindex $rarglist 0]
   set rargs [lrange $rarglist 1 end]
+  set qadmin [matchattr $uhand n]
+#  set qadmin 0
 
   if {[feeds_cmd_match "help" $rcmd]} {
     # Show help
@@ -197,8 +199,9 @@
     }
   } elseif {[feeds_cmd_match "force" $rcmd]} {
     # Force check for new entries
-    if {![matchattr $uhand n]} {
+    if {!$qadmin} {
       feeds_msg $upublic $unick $uchan "no_access"
+      return 0
     }
 
     feeds_check_do 1 $upublic $unick $uchan
@@ -210,7 +213,7 @@
       # Long list
       set utext [string tolower [join [lrange $rargs 1 end] " "]]
 
-      if {$upublic && ![matchattr $uhand n]} {
+      if {$upublic && !$qadmin} {
         feeds_msg $upublic $unick $uchan "feed_list_long_denied" [list $rcmd $utext]
         return 0
       }
@@ -271,7 +274,7 @@
     }
 
     set utext [string tolower [join $rargs " "]]
-    if {$upublic && ![matchattr $uhand n]} {
+    if {$upublic && !$qadmin} {
       feeds_msg $upublic $unick $uchan "feed_list_long_denied" [list $rcmd $utext]
       return 0
     }