+++ /dev/null
-#!/bin/sh
-
-echo "Known debian maintainers:"
-
-eval $(dak admin config db-shell)
-
-psql --html <<EOF
- SELECT uid.uid, uid.name, f.fingerprint
- FROM uid LEFT OUTER JOIN fingerprint f ON (uid.id = f.uid)
- WHERE uid.uid LIKE '%@%'
-ORDER BY uid.uid;
-EOF
-
-echo "Debian maintainers not able to update any packages:"
-
-psql --html <<EOF
- SELECT uid.uid, uid.name
- FROM uid
- WHERE uid.uid LIKE 'dm:%'
- AND uid.uid NOT IN (
- SELECT u.uid
- FROM src_uploaders su JOIN source s ON (su.source = s.id)
- JOIN src_associations sa ON (s.id = sa.source)
- JOIN maintainer m ON (su.maintainer = m.id)
- JOIN uid u ON
- (m.name LIKE u.name || ' <%>' OR
- m.name LIKE '% <' || substring(u.uid FROM 4) || '>')
- WHERE u.uid LIKE '%@%' AND sa.suite = 5
- )
-ORDER BY uid.uid;
-EOF
-
-echo "Packages debian maintainers may update:"
-
-psql --html <<EOF
- SELECT s.source, space_separated_list(s.version), u.uid
- FROM src_uploaders su JOIN source s ON (su.source = s.id)
- JOIN src_associations sa ON (s.id = sa.source)
- JOIN maintainer m ON (su.maintainer = m.id)
- JOIN uid u ON (m.name LIKE u.name || ' <%>' OR
- m.name LIKE '% <' || substring(u.uid FROM 4) || '>')
- WHERE s.dm_upload_allowed = 't' GROUP BY s.source, s.version, u.uid
-ORDER BY u.uid, s.source, s.version;
-EOF
-
-echo "Source packages in the pool uploaded by debian maintainers:"
-
-psql --html <<EOF
- SELECT s.source, s.version, s.install_date, u.uid
- FROM source s JOIN fingerprint f ON (s.sig_fpr = f.id)
- JOIN uid u ON (f.uid = u.id)
- WHERE u.uid LIKE '%@%'
-ORDER BY u.uid, s.source, s.version;
-EOF
-
-echo "Binary packages in the pool uploaded by debian maintainers:"
-
-psql --html <<EOF
- SELECT b.package, b.version, a.arch_string AS arch, u.uid
- FROM binaries b JOIN architecture a ON (b.architecture = a.id)
- JOIN fingerprint f ON (b.sig_fpr = f.id)
- JOIN uid u ON (f.uid = u.id)
- WHERE u.uid LIKE '%@%'
-ORDER BY u.uid, b.package, b.version;
-EOF
-
-echo "Recorded Uploaders:"
-
-psql --html <<EOF
- SELECT s.source, s.version, m.name
- FROM src_uploaders su JOIN source s ON (su.source = s.id)
- JOIN maintainer m ON (su.maintainer = m.id)
-ORDER BY m.name, s.source, s.version;
-EOF
-
-echo "Keys without a recorded uid:"
-
-psql --html <<EOF
- SELECT *
- FROM fingerprint f
- WHERE f.uid IS NULL;
-EOF
-