scripts/debian/dm-monitor

   1 #!/bin/sh
   2
   3 echo "Known debian maintainers:"
   4
   5 eval $(dak admin config db-shell)
   6
   7 psql --html <<EOF
   8   SELECT uid.uid, uid.name, f.fingerprint
   9     FROM uid LEFT OUTER JOIN fingerprint f ON (uid.id = f.uid)
  10    WHERE uid.uid LIKE '%@%'
  11 ORDER BY uid.uid;
  12 EOF
  13
  14 echo "Debian maintainers not able to update any packages:"
  15
  16 psql --html <<EOF
  17   SELECT uid.uid, uid.name
  18     FROM uid
  19    WHERE uid.uid LIKE 'dm:%'
  20      AND uid.uid NOT IN (
  21               SELECT u.uid
  22                 FROM src_uploaders su JOIN source s ON (su.source = s.id)
  23                      JOIN src_associations sa ON (s.id = sa.source)
  24                      JOIN maintainer m ON (su.maintainer = m.id)
  25                      JOIN uid u ON
  26                        (m.name LIKE u.name || ' <%>' OR
  27                         m.name LIKE '% <' || substring(u.uid FROM 4) || '>')
  28                WHERE u.uid LIKE '%@%' AND sa.suite = 5
  29          )
  30 ORDER BY uid.uid;
  31 EOF
  32
  33 echo "Packages debian maintainers may update:"
  34
  35 psql --html <<EOF
  36   SELECT s.source, space_separated_list(s.version), u.uid
  37     FROM src_uploaders su JOIN source s ON (su.source = s.id)
  38          JOIN src_associations sa ON (s.id = sa.source)
  39          JOIN maintainer m ON (su.maintainer = m.id)
  40          JOIN uid u ON (m.name LIKE u.name || ' <%>' OR
  41                 m.name LIKE '% <' || substring(u.uid FROM 4) || '>')
  42    WHERE s.dm_upload_allowed = 't' GROUP BY s.source, s.version, u.uid
  43 ORDER BY u.uid, s.source, s.version;
  44 EOF
  45
  46 echo "Source packages in the pool uploaded by debian maintainers:"
  47
  48 psql --html <<EOF
  49   SELECT s.source, s.version, s.install_date, u.uid
  50     FROM source s JOIN fingerprint f ON (s.sig_fpr = f.id)
  51          JOIN uid u ON (f.uid = u.id)
  52    WHERE u.uid LIKE '%@%'
  53 ORDER BY u.uid, s.source, s.version;
  54 EOF
  55
  56 echo "Binary packages in the pool uploaded by debian maintainers:"
  57
  58 psql --html <<EOF
  59   SELECT b.package, b.version, a.arch_string AS arch, u.uid
  60     FROM binaries b JOIN architecture a ON (b.architecture = a.id)
  61          JOIN fingerprint f ON (b.sig_fpr = f.id)
  62          JOIN uid u ON (f.uid = u.id)
  63    WHERE u.uid LIKE '%@%'
  64 ORDER BY u.uid, b.package, b.version;
  65 EOF
  66
  67 echo "Recorded Uploaders:"
  68
  69 psql --html <<EOF
  70   SELECT s.source, s.version, m.name
  71     FROM src_uploaders su JOIN source s ON (su.source = s.id)
  72          JOIN maintainer m ON (su.maintainer = m.id)
  73 ORDER BY m.name, s.source, s.version;
  74 EOF
  75
  76 echo "Keys without a recorded uid:"
  77
  78 psql --html <<EOF
  79   SELECT *
  80     FROM fingerprint f
  81    WHERE f.uid IS NULL;
  82 EOF
  83