Changeset 170 for trunk/lib

Timestamp:

04/07/09 01:02:45 (15 years ago)

Author:

nanardon

Message:

• delete old poll request creation (#6)

Location:

trunk/lib/Vote

Files:

• Controller/Newpoll.pm (modified) (1 diff)
• DB.pm (modified) (1 diff)

trunk/lib/Vote/Controller/Newpoll.pm

@@ -25 +25 @@
     my ( $self, $c ) = @_;
     $c->model('Vote')->db->rollback;
+    $c->model('Vote')->clean_old_poll_request and $c->model('Vote')->db->commit;
 }
 

trunk/lib/Vote/DB.pm

@@ -295 +295 @@
     my ($self, $voteid, $mailinfo) = @_;
     $self->poll($voteid)->mail_passwd_ifnul($mailinfo);
+}
+
+sub clean_old_poll_request {
+    my ($self) = @_;
+
+    $self->db->do(q{delete from poll_request where "create" < now() - '30 days'::interval});
 }