[Collab-qa-commits] r1005 - udd/web/cgi-bin
neronus-guest at alioth.debian.org
neronus-guest at alioth.debian.org
Fri Aug 8 17:40:04 UTC 2008
Author: neronus-guest
Date: 2008-08-08 17:40:02 +0000 (Fri, 08 Aug 2008)
New Revision: 1005
Modified:
udd/web/cgi-bin/package_bug_count.cgi
udd/web/cgi-bin/package_rc_bug_count.cgi
udd/web/cgi-bin/packages_in_unstable_but_not_in_testing_by_popcon.cgi
udd/web/cgi-bin/removal_candidates.cgi
udd/web/cgi-bin/sources_in_ubuntu_but_not_in_debian_by_popcon.cgi
udd/web/cgi-bin/sources_in_unstable_but_not_in_testing_by_popcon_max.cgi
Log:
Adapted web scripts for new table layout
Modified: udd/web/cgi-bin/package_bug_count.cgi
===================================================================
--- udd/web/cgi-bin/package_bug_count.cgi 2008-08-08 17:26:57 UTC (rev 1004)
+++ udd/web/cgi-bin/package_bug_count.cgi 2008-08-08 17:40:02 UTC (rev 1005)
@@ -8,7 +8,11 @@
my $dbh = DBI->connect("dbi:Pg:dbname=udd") or die $!;
my $sth = $dbh->prepare(<<EOF
- SELECT package, COUNT(id) AS nr FROM bugs WHERE NOT is_archived AND NOT tags LIKE '%fixed%' AND (affects_stable OR affects_testing OR affects_unstable) GROUP BY package ORDER BY nr DESC
+ SELECT package, COUNT(id) AS nr FROM bugs_unarchived as bugs
+ WHERE
+ NOT (affects_stable OR affects_testing OR affects_unstable)
+ AND NOT EXISTS (SELECT 1 FROM bug_tags WHERE bug_tags.id = bugs.id AND bug_tags.tag = 'fixed')
+ GROUP BY package ORDER BY nr DESC
EOF
);
Modified: udd/web/cgi-bin/package_rc_bug_count.cgi
===================================================================
--- udd/web/cgi-bin/package_rc_bug_count.cgi 2008-08-08 17:26:57 UTC (rev 1004)
+++ udd/web/cgi-bin/package_rc_bug_count.cgi 2008-08-08 17:40:02 UTC (rev 1005)
@@ -8,7 +8,24 @@
my $dbh = DBI->connect("dbi:Pg:dbname=udd") or die $!;
my $sth = $dbh->prepare(<<EOF
- SELECT package, COUNT(id) as nr FROM bugs WHERE severity in ('critical', 'grave', 'serious') AND affects_testing AND NOT tags LIKE '%fixed%' AND NOT tags LIKE '%lenny-ignore%' AND NOT is_archived AND EXISTS (SELECT * FROM packages WHERE packages.package = package AND packages.release = 'etch') GROUP BY package ORDER BY nr DESC;
+SELECT b.package, COUNT(b.id)
+FROM bugs_unarchived b
+WHERE
+ (b.severity IN ('serious', 'grave', 'critical'))
+ AND
+ b.affects_testing
+ AND(
+ NOT EXISTS (SELECT tag FROM bug_tags t WHERE b.id=t.id AND t.tag IN ('sid', 'sarge', 'etch', 'experimental'))
+ OR
+ EXISTS (SELECT tag FROM bug_tags t WHERE b.id=t.id AND t.tag = 'lenny')
+ )
+ AND NOT EXISTS (SELECT tag FROM bug_tags t WHERE b.id=t.id AND t.tag = 'lenny-ignore')
+ AND(
+ EXISTS (SELECT package FROM packages p WHERE p.package = b.package AND p.distribution = 'debian' AND p.release = 'lenny')
+ OR
+ EXISTS (SELECT package FROM sources s WHERE s.package = b.package AND s.distribution = 'debian' AND s.release = 'lenny')
+ )
+GROUP BY b.package
EOF
);
Modified: udd/web/cgi-bin/packages_in_unstable_but_not_in_testing_by_popcon.cgi
===================================================================
--- udd/web/cgi-bin/packages_in_unstable_but_not_in_testing_by_popcon.cgi 2008-08-08 17:26:57 UTC (rev 1004)
+++ udd/web/cgi-bin/packages_in_unstable_but_not_in_testing_by_popcon.cgi 2008-08-08 17:40:02 UTC (rev 1005)
@@ -10,12 +10,12 @@
my $sth = $dbh->prepare(<<EOF
SELECT DISTINCT unstable.package, insts
FROM (SELECT DISTINCT package FROM packages
- WHERE distribution = 'debian' and release = 'sid')
+ WHERE release = 'sid')
AS unstable,
popcon
- WHERE NOT EXISTS (SELECT * FROM packages where distribution = 'debian'
- AND release = 'lenny' and package = unstable.package)
- AND popcon.package = unstable.package AND popcon.distribution = 'debian' ORDER BY insts DESC;
+ WHERE NOT EXISTS (SELECT 1 FROM packages WHERE
+ release = 'lenny' and package = unstable.package)
+ AND popcon.package = unstable.package ORDER BY insts DESC;
EOF
);
Modified: udd/web/cgi-bin/removal_candidates.cgi
===================================================================
--- udd/web/cgi-bin/removal_candidates.cgi 2008-08-08 17:26:57 UTC (rev 1004)
+++ udd/web/cgi-bin/removal_candidates.cgi 2008-08-08 17:40:02 UTC (rev 1005)
@@ -16,7 +16,6 @@
and bugs.severity in ('serious', 'grave', 'critical')
and arrival < (NOW() - interval '14 DAYS')
and sources.package = popcon_src_max.source
-and popcon_src_max.distribution = 'debian'
and popcon_src_max.insts < 2000
order by package;
EOF
Modified: udd/web/cgi-bin/sources_in_ubuntu_but_not_in_debian_by_popcon.cgi
===================================================================
--- udd/web/cgi-bin/sources_in_ubuntu_but_not_in_debian_by_popcon.cgi 2008-08-08 17:26:57 UTC (rev 1004)
+++ udd/web/cgi-bin/sources_in_ubuntu_but_not_in_debian_by_popcon.cgi 2008-08-08 17:40:02 UTC (rev 1005)
@@ -9,13 +9,13 @@
my $dbh = DBI->connect("dbi:Pg:dbname=udd") or die $!;
my $sth = $dbh->prepare(<<EOF
SELECT DISTINCT intrepid.package, insts
- FROM (SELECT DISTINCT package FROM sources
- WHERE distribution = 'ubuntu' and release = 'intrepid')
+ FROM (SELECT DISTINCT package FROM ubuntu_sources
+ WHERE release = 'intrepid')
AS intrepid,
- popcon_src_max
+ ubuntu_popcon_src_max
WHERE NOT EXISTS (SELECT * FROM sources WHERE distribution = 'debian'
and package = intrepid.package)
- AND popcon_src_max.source = intrepid.package AND popcon_src_max.distribution = 'ubuntu' ORDER BY insts DESC;
+ AND ubuntu_popcon_src_max.source = intrepid.package ORDER BY insts DESC;
EOF
);
Modified: udd/web/cgi-bin/sources_in_unstable_but_not_in_testing_by_popcon_max.cgi
===================================================================
--- udd/web/cgi-bin/sources_in_unstable_but_not_in_testing_by_popcon_max.cgi 2008-08-08 17:26:57 UTC (rev 1004)
+++ udd/web/cgi-bin/sources_in_unstable_but_not_in_testing_by_popcon_max.cgi 2008-08-08 17:40:02 UTC (rev 1005)
@@ -15,7 +15,7 @@
popcon_src_max
WHERE NOT EXISTS (SELECT * FROM sources WHERE distribution = 'debian'
AND release = 'lenny' and package = unstable.package)
- AND popcon_src_max.source = unstable.package AND popcon_src_max.distribution = 'debian' ORDER BY insts DESC;
+ AND popcon_src_max.source = unstable.package ORDER BY insts DESC;
EOF
);
More information about the Collab-qa-commits
mailing list