Cache auth conditional results for (:if auth level:).

git-svn-id: svn://pmwiki.org/pmwiki/trunk@4687 524c5546-5005-0410-9a3e-e25e191bd360

1 files changed, 15 insertions, 3 deletions

diff --git a/pmwiki.php b/pmwiki.php
index a72db3fa..08a9c3cf 100644
--- a/pmwiki.php
+++ b/pmwiki.php
@@ -252,9 +252,10 @@ $Conditions['equal'] = 'CompareArgs($condparm) == 0';
 function CompareArgs($arg) 
   { $arg = ParseArgs($arg); return strcmp(@$arg[''][0], @$arg[''][1]); }
 
-$Conditions['auth'] = 'NoCache(CondAuth($pagename, $condparm))';
-function CondAuth($pagename, $condparm) {
+$Conditions['auth'] = 'NoCache(CondAuth($pagename, $condparm, 1))';
+function CondAuth($pagename, $condparm, $use_cache = 0) {
   global $AuthList, $HandleAuth;
+  static $ccache = [];
   @list($level, $pn) = explode(' ', $condparm, 2);
   if (@$level && $level[0] == '@') { # user belongs to @group1,@group2
     $keys = MatchNames(array_keys((array)@$AuthList), $level, true);
@@ -265,7 +266,14 @@ function CondAuth($pagename, $condparm) {
   }
   $pn = ($pn > '') ? MakePageName($pagename, $pn) : $pagename;
   if (@$HandleAuth[$level]>'') $level = $HandleAuth[$level];
-  return (boolean)RetrieveAuthPage($pn, $level, false, READPAGE_CURRENT);
+  
+  if ($use_cache) {
+    if (!isset($ccache[$pn][$level])) {
+      $ccache[$pn][$level] = (boolean)RAPC($pn, $level);
+    }
+    return $ccache[$pn][$level];
+  }
+  return (boolean)RAPC($pn, $level);
 }
 $Conditions['exists'] = 'CondExists($condparm)';
 ## This is an optimized version of the earlier conditional
@@ -1744,6 +1752,10 @@ function ListPages($pat=NULL) {
   return $out;
 }
 
+function RAPC($pagename, $level, $authprompt=false, $since=READPAGE_CURRENT) { 
+  # helper function, widely used
+  return RetrieveAuthPage($pagename, $level, $authprompt, $since);
+}
 function RetrieveAuthPage($pagename, $level, $authprompt=true, $since=0) {
   global $AuthFunction;
   SDV($AuthFunction,'PmWikiAuth');