Fixed Too many directories in RSS cache

This commit is contained in:
Martin Kamerbeek 2007-05-02 15:08:52 +00:00
parent c13ee87504
commit 2aa202d8d2
2 changed files with 22 additions and 7 deletions

View file

@ -21,6 +21,8 @@
http://www.plainblack.com/bugs/tracker/asset-tree-cut-and-paste-not-handled-by-search
- fix: Fixed a bug where calendars would generate corrupt iCal feed urls
(Martin Kamerbeek / Oqapi)
- fix: Too many directories in RSS cache (Martin Kamerbeek / Oqapi)
http://www.plainblack.com/bugs/tracker/too-many-directories-in-rss-cache
- fix: Help link broken for navigation template (perlDreamer Consulting, LLC)
http://www.plainblack.com/bugs/tracker/help-link-broken-for-navigation-template

View file

@ -77,13 +77,26 @@ See WebGUI::Workflow::Activity::execute() for details.
sub execute {
my $self = shift;
my $size = $self->get("sizeLimit") + 10;
my $expiresModifier = 0;
my $cache = WebGUI::Cache::FileCache->new($self->session);
while ($size > $self->get("sizeLimit")) {
$size = $cache->getNamespaceSize($expiresModifier);
$expiresModifier += 60 * 30; # add 30 minutes each pass
}
my $size = $self->get("sizeLimit") + 10;
my $expiresModifier = 0;
# Purge expired content cache
my $cache = WebGUI::Cache::FileCache->new($self->session);
while ($size > $self->get("sizeLimit")) {
$size = $cache->getNamespaceSize($expiresModifier);
$expiresModifier += 60 * 30; # add 30 minutes each pass
}
$size = $self->get("sizeLimit") + 10;
$expiresModifier = 0;
# Purge expired rss cache
my $rssCache = WebGUI::Cache::FileCache->new($self->session, undef, 'RSS');
while ($size > $self->get("sizeLimit")) {
$size = $rssCache->getNamespaceSize($expiresModifier);
$expiresModifier += 60 * 30; # add 30 minutes each pass
}
return $self->COMPLETE;
}