X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=config%2Fdebian%2Fdinstall.functions;h=281d428782391cea5c8042c1acf492dc51a3ca48;hb=fdbef587c29814f97c192de5a8b7e9f09cc45fa4;hp=f1693a3292fffc7ae1d3a8f0be97b301c2ef6a84;hpb=321e39b64490fb825769f7ed9f6534cebeedd923;p=dak.git

diff --git a/config/debian/dinstall.functions b/config/debian/dinstall.functions
index f1693a32..281d4287 100644
--- a/config/debian/dinstall.functions
+++ b/config/debian/dinstall.functions
@@ -107,6 +107,18 @@ function dominate() {
     dak dominate
 }
 
+function autocruft() {
+    log "Check for obsolete binary packages"
+    suites=${1:-"unstable experimental"}
+    # Initially only run with -n and output into a file, to check.
+    dstamp=$(date -u +"%Y-%m-%d_%H:%M")
+    echo "Report for ${dstamp}" > $webdir/auto-cruft-report_${dstamp}.txt
+    for suite in ${suites}; do
+        dak auto-decruft -n -s ${suite} >> $webdir/auto-cruft-report_${dstamp}.txt
+    done
+    cat $webdir/auto-cruft-report_${dstamp}.txt | 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