Changeset 2505 for branches/release-39/lib/MT/Core.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/Core.pm (modified) (2 diffs)

branches/release-39/lib/MT/Core.pm

@@ -774 +774 @@
             },
         },
+        'RemoveExpiredSearchCaches' => {
+            label => 'Remove Expired Search Caches',
+            frequency => 60 * 60 * 24,   # once a day
+            code => sub {
+                MT::Core->remove_expired_search_caches;
+            },
+        },
     };
 }
@@ -803 +810 @@
         $s->remove if !$s->get('remember');
     }
+    return '';
+}
+
+sub remove_expired_search_caches {
+    require MT::Session;
+
+    MT::Session->remove(
+        { kind => 'CS', start => [ undef, time - 60 * 60 ] },
+        { range => { start => 1 } } );
     return '';
 }