]> git.decadent.org.uk Git - dak.git/blob - scripts/debian/dm-monitor
Now it works :)
[dak.git] / 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