add expire_jobs and set default expire times

2014-09-27 11:31:37 +01:00
parent f8e1507069
commit 4a6081fc58
4 changed files with 35 additions and 6 deletions
--- a/Netdisco/lib/App/Netdisco/Daemon/Worker/Poller/Expiry.pm
+++ b/Netdisco/lib/App/Netdisco/Daemon/Worker/Poller/Expiry.pm
@@ -40,6 +40,15 @@ sub expire {
      });
  }

+  if (setting('expire_jobs') and setting('expire_jobs') > 0) {
+      schema('netdisco')->txn_do(sub {
+        schema('netdisco')->resultset('Admin')->search({
+          entered => \[q/< (now() - ?::interval)/,
+              (setting('expire_jobs') * 86400)],
+        })->delete();
+      });
+  }
+
  return job_done("Checked expiry for all Devices and Nodes");
 }