# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1613836369 -7200
# Node ID 79b5d8944eeab3f9dd148770334ebfeb44a8e4b6
# Parent  4156adacdc31172e641d7ee73e051ff891157ead
feeds: Improve admin checks.

diff -r 4156adacdc31 -r 79b5d8944eea feeds.tcl
--- 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
     }