Generate a d-i info file

Signed-off-by: Joerg Jaspert <joerg@debian.org>

diff --git a/config/debian/cron.hourly b/config/debian/cron.hourly
index 2377fef26e91058087f0fc2418028073a62e8b0c..96d8ce4e6ce97729278dc26e3db553b95c33b2bb 100755 (executable)
--- a/config/debian/cron.hourly
+++ b/config/debian/cron.hourly
@@ -14,3 +14,4 @@ dak import-users-from-passwd
 dak queue-report -n > $webdir/new.html
 dak show-deferred > ${webdir}/deferred.html
 cd $queuedir/new ; dak show-new *.changes > /dev/null
+$scriptsdir/generate-di

diff --git a/scripts/debian/generate-d-i b/scripts/debian/generate-d-i
new file mode 100755 (executable)
index 0000000..fee0ba5
--- /dev/null
+++ b/scripts/debian/generate-d-i
@@ -0,0 +1,38 @@
+#!/bin/sh
+
+# Original written from Jeroen van Wolffelaar <jeroen@debian.org>
+
+set -e
+export SCRIPTVARS=/srv/ftp.debian.org/dak/config/debian/vars
+. $SCRIPTVARS
+
+export PAGER=cat
+
+exec > $webdir/d-i 2>&1
+
+
+echo "udeb's in testing that don't (anymore) correspond to any testing source:"
+psql projectb -c "select b.package, b.version, (SELECT arch_string from
+architecture where b.architecture=architecture.id) as arch, s.source from
+bin_associations ba LEFT JOIN binaries b on (ba.bin=b.id) LEFT JOIN source s
+on (b.source=s.id) WHERE ba.suite=4 AND s.id NOT IN (SELECT source from
+src_associations WHERE suite=4) AND b.type = 'udeb' ORDER BY s.source,
+b.package, b.architecture;"
+
+echo "udeb's in unstable that should be in testing too:"
+psql projectb -c "select b.package, b.version, (SELECT arch_string from
+architecture where b.architecture=architecture.id) as arch, s.source from
+bin_associations ba LEFT JOIN binaries b on (ba.bin=b.id) LEFT JOIN source s
+on (b.source=s.id) WHERE ba.suite=5 AND NOT EXISTS (SELECT 1 FROM
+bin_associations ba2 WHERE ba2.suite=4 AND ba2.bin=ba.bin) AND s.id IN (SELECT
+source from src_associations WHERE suite=4) AND b.type = 'udeb' AND
+b.architecture NOT IN (4,8,12) ORDER BY s.source, b.package, b.architecture;"
+
+echo "udeb's in t-p-u that should be in testing too:"
+psql projectb -c "select b.package, b.version, (SELECT arch_string from
+architecture where b.architecture=architecture.id) as arch, s.source from
+bin_associations ba LEFT JOIN binaries b on (ba.bin=b.id) LEFT JOIN source s
+on (b.source=s.id) WHERE ba.suite=3 AND NOT EXISTS (SELECT 1 FROM
+bin_associations ba2 WHERE ba2.suite=4 AND ba2.bin=ba.bin) AND s.id IN (SELECT
+source from src_associations WHERE suite=4) AND b.type = 'udeb' AND
+b.architecture NOT IN (4,8,12) ORDER BY s.source, b.package, b.architecture;"