autodecruft: Make function look a bit nicer.

[dak.git] / config / debian / dinstall.functions

diff --git a/config/debian/dinstall.functions b/config/debian/dinstall.functions
index f1693a3292fffc7ae1d3a8f0be97b301c2ef6a84..33931b2b29c3a67d8fae347191ab8fbefef4282d 100644 (file)
--- a/config/debian/dinstall.functions
+++ b/config/debian/dinstall.functions
@@ -107,6 +107,19 @@ function dominate() {
     dak dominate
 }
 
+function autocruft() {
+    log "Check for obsolete binary packages"
+    local suites=${1:-"unstable experimental"}
+    # Initially only run with -n and output into a file, to check.
+    local dstamp=$(date -u +"%Y-%m-%d_%H:%M")
+    local report=${webdir}/auto-cruft-report_${dstamp}.txt
+    echo "Report for ${dstamp}" > ${report}
+    for suite in ${suites}; do
+        dak auto-decruft -n -s ${suite} >> ${report}
+    done
+    cat ${report} | mail -a "X-Debian: DAK" -e -s "Debian archive AUTOMATIC cruft report for ${dstamp}" -a "From: Debian FTP Masters <ftpmaster@ftp-master.debian.org>" -c niels@thykier.net ftpmaster@ftp-master.debian.org
+}
+
 function fingerprints() {
     log "Updating fingerprints"
     dak import-keyring -L /srv/keyring.debian.org/keyrings/debian-keyring.gpg