Changeset 2505 for branches/release-39/lib/MT/Cache/Session.pm

Timestamp:

06/04/08 07:54:01 (18 months ago)

Author:

fumiakiy

Message:

Purge stale search cache after it finishes processing, and also periodically. BugId:79999

Files:

• branches/release-39/lib/MT/Cache/Session.pm (modified) (8 diffs)

branches/release-39/lib/MT/Cache/Session.pm

@@ -14 +14 @@
     my (%param) = @_;
     $param{'ttl'} ||= 0;
+    $param{'kind'} ||= 'CO';
     my $self = bless \%param, $class;
     return $self;
@@ -25 +26 @@
     if ( $self->{ttl} ) {
         $record = MT::Session::get_unexpired_value(
-            $self->{ttl}, { id => $key, kind => 'CO' } );
+            $self->{ttl}, { id => $key, kind => $self->{kind} } );
     }
     else {
-        $record = MT::Session->load( { id => $key, kind => 'CO' } );
+        $record = MT::Session->load( { id => $key, kind => $self->{kind} } );
     }
     return unless $record;
@@ -38 +39 @@
     my @keys = @_;
 
-    my @tmp = MT::Session->load( { id => \@keys, kind => 'CO' } )
+    my @tmp = MT::Session->load( { id => \@keys, kind => $self->{kind} } )
         or return;
 
@@ -61 +62 @@
     my MT::Cache::Session $self = shift;
     my ($key, $time) = @_;
-    MT::Session->remove( { id => $key, kind => 'CO' } )
+    MT::Session->remove( { id => $key, kind => $self->{kind} } )
         or return 0;
     1;
@@ -86 +87 @@
     my $cache = MT::Session->load({
         id   => $key,
-        kind => 'CO',
+        kind => $self->{kind},
     });
     $cache->remove() if $cache;
@@ -92 +93 @@
     $cache->set_values({
         id    => $key,
-        kind  => 'CO',
+        kind  => $self->{kind},
         start => time,
         data  => $val,
@@ -101 +102 @@
 sub flush_all {
     my MT::Cache::Session $self = shift;
-    MT::Session->remove({ kind => 'CO' });
+    MT::Session->remove({ kind => $self->{kind} });
+}
+
+sub purge_stale {
+    my MT::Cache::Session $self = shift;
+    my ( $ttl ) = @_;
+    MT::Session->remove(
+        { kind => $self->{kind}, start => [ undef, time - $ttl ] },
+        { range => { start => 1 } }
+    );
+    1;
 }
 
@@ -150 +161 @@
 Empty all the caches.
 
+=head2 $cache->purge_stale
+
+Deletes all the cached objects that are already too old.
+Takes one argument: $ttl specifies the duration that is considered stale.
+
 =head1 AUTHOR & COPYRIGHT