added page caching

This commit is contained in:
JT Smith 2003-06-22 20:18:58 +00:00
parent 5567669b4f
commit 1eb72cc633
6 changed files with 74 additions and 25 deletions

View file

@ -277,11 +277,15 @@ sub page {
$content = WebGUI::Macro::process(WebGUI::Template::process(WebGUI::Style::get($pageEdit.WebGUI::Page::getTemplate($template)), $positions));
my $ttl;
if ($session{user}{userId} == 1) {
$ttl = $session{setting}{cachePagesVisitor};
$ttl = $session{page}{cacheTimeoutVisitor};
WebGUI::ErrorHandler::warn("setting visitor cache");
} else {
$ttl = $session{setting}{cachePages};
$ttl = $session{page}{cacheTimeout};
WebGUI::ErrorHandler::warn("setting user cache");
}
$cache->set($content, $ttl) if ($useCache);
} else {
WebGUI::ErrorHandler::warn("using cache");
}
$debug = _generateDebug();
WebGUI::Session::close();