Changeset 319

Timestamp:

01/16/11 20:51:53 (13 years ago)

Author:

nanardon

Message:

• delete old paste in maintenance task

Location:

server/trunk/web

Files:

• bin/sophie_cron (modified) (1 diff)
• lib/Sophie/Controller/Admin/Maintenance.pm (modified) (2 diffs)
• lib/Sophie/Controller/Chat.pm (modified) (1 diff)

server/trunk/web/bin/sophie_cron

@@ -1 +1 @@
 #!/bin/env perl
 
-require RPC::XML;
-require RPC::XML::Client;
+use strict;
+use warnings;
+use RPC::XML;
+use RPC::XML::Client;
+use Getopt::Long;
 
-my $xmlcli = RPC::XML::Client->new('http://localhost.localdomain/rpc');
+GetOptions(
+        's=s' => \my $server,
+) or die "Wrong options";
+
+
+my $xmlcli = RPC::XML::Client->new($server || 'http://localhost.localdomain/rpc');
 
 my $tasks = $xmlcli->send_request('admin.maintenance.tasks');

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

@@ -33 +33 @@
     $c->stash->{xmlrpc} = [ qw(
         admin.maintenance.delete_expired_sessions
+        admin.maintenance.delete_expired_paste
     ) ];
 }
@@ -43 +44 @@
     $c->stash->{xmlrpc} = 'Done';
 }
+
+sub delete_expired_paste :XMLRPC {
+    my ($self, $c) = @_;
+    $c->model('Base::ChatPaste')->search({
+            -nest => \[
+            "whenpaste < now() - ?::interval",
+            [ plain_text => "30 days" ],
+        ]
+    })->delete;
+    $c->model('Base')->storage->sth->commit;
+    $c->stash->{xmlrpc} = 'Done';
+}
+
 
 =head1 AUTHOR

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

@@ -118 +118 @@
         my @char = ('a' .. 'z', 'A' .. 'Z', 0 .. 9);
         my $id = join('', map { $char[rand(@char)] } (0..7));
-        $c->model('Base::ChatPaste')->search({
-            -nest => \[
-                "whenpaste < now() - ?::interval",
-                [ plain_text => "30 days" ],
-            ]
-        })->delete;
         $c->model('Base::ChatPaste')->create(
             {