Report only obsolete source packages older than one day

This should help with avoiding removal of source-only uploads where no
binary was built yet.

diff --git a/dak/cruft_report.py b/dak/cruft_report.py
index 5c6ee8d0c3270c5ca7d846ac8967799b1529cf38..fbbc0446d2156fe5643261ee8eefa438f9ba833d 100755 (executable)
--- a/dak/cruft_report.py
+++ b/dak/cruft_report.py
@@ -346,6 +346,7 @@ SELECT ss.src, ss.source, ss.version,
     LEFT JOIN bin_associations_binaries bab
        ON ss.src = bab.source AND ss.suite = bab.suite
     WHERE s.suite_name = :suite_name AND bab.id IS NULL
+      AND now() - ss.install_date > '1 day'::interval
     ORDER BY install_date"""
     args = { 'suite_name': suite_name }
     return session.execute(query, args)