Changeset 320

Timestamp:

01/16/11 21:06:31 (13 years ago)

Author:

nanardon

Message:

• delete old statistics at maintenance tasks

Location:

server/trunk/web/lib/Sophie/Controller

Files:

• Admin/Maintenance.pm (modified) (2 diffs)
• Chat.pm (modified) (1 diff)

server/trunk/web/lib/Sophie/Controller/Admin/Maintenance.pm

@@ -34 +34 @@
         admin.maintenance.delete_expired_sessions
         admin.maintenance.delete_expired_paste
+        admin.maintenance.delete_old_chat_statistics
     ) ];
 }
@@ -57 +58 @@
 }
 
+sub delete_old_chat_statistics :XMLRPC {
+    my ($self, $c) = @_;
+    $c->model('Base::ChatStat')->search(
+        {
+            -nest => \[
+            "day < now() - ?::interval",
+            [ plain_text => "365 days" ],
+        ],
+        }
+    )->delete;
+    $c->model('Base')->storage->sth->commit;
+    $c->stash->{xmlrpc} = 'Done';
+}
 
 =head1 AUTHOR

server/trunk/web/lib/Sophie/Controller/Chat.pm

@@ -54 +54 @@
     my ($self, $c, $cmd) = @_;
 
-    $c->model('Base::ChatStat')->search(
-        {
-            -nest => \[
-            "day < now() - ?::interval",
-            [ plain_text => "365 days" ],
-        ],
-        }
-    )->delete;
     my $stat = $c->model('Base::ChatStat')->find_or_create({
         cmd => $cmd,