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