Changeset 1937 for trunk

Timestamp:

01/18/17 12:09:43 (7 years ago)

Author:

nanardon

Message:

Add retention attr to stat (delete old entries)

Location:

trunk/LATMOS-Accounts

Files:

• lib/LATMOS/Accounts/Bases/Sql/Stat.pm (modified) (3 diffs)
• man/man8/latmos-accounts-base-sql.pod (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Stat.pm

@@ -8 +8 @@
 use base qw(LATMOS::Accounts::Bases::Sql::objects);
 use LATMOS::Accounts::I18N;
+
+use DateTime;
 
 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
@@ -45 +47 @@
             display => { },
             delay => { },
+            retention => { },
             lastStatId => { },
             needRun => {
@@ -184 +187 @@
     my ($self) = @_;
 
+    if (my $retention = $self->_get_attributes('retention')) {
+        my $limit = DateTime->now->subtract(days => $retention);
+
+        my $clean = $self->db->prepare(
+            q{ DELETE FROM statsentry where tstamp < ? }
+        );
+        $clean->execute($limit->iso8601);
+    }
+
     my $otype = $self->_get_attributes('otype') or return;
     my $attribute = $self->_get_attributes('attribute') or return;

trunk/LATMOS-Accounts/man/man8/latmos-accounts-base-sql.pod

@@ -327 +327 @@
 The number of day between two run
 
+=head4 retention
+
+If set, the duration in days after which stats value must deleted