| 8 |
|
|
| 9 |
my $dbh = DBI->connect("dbi:Pg:dbname=udd") or die $!; |
my $dbh = DBI->connect("dbi:Pg:dbname=udd") or die $!; |
| 10 |
my $sth = $dbh->prepare(<<EOF |
my $sth = $dbh->prepare(<<EOF |
| 11 |
SELECT DISTINCT unstable.package, (vote + popcon_src_max.old + recent + nofiles) as pvote |
SELECT DISTINCT unstable.package, insts |
| 12 |
FROM (SELECT DISTINCT package FROM sources |
FROM (SELECT DISTINCT package FROM sources |
| 13 |
WHERE distribution = 'debian' and release = 'sid') |
WHERE distribution = 'debian' and release = 'sid') |
| 14 |
AS unstable, |
AS unstable, |
| 15 |
popcon_src_max |
popcon_src_max |
| 16 |
WHERE NOT EXISTS (SELECT * FROM sources WHERE distribution = 'debian' |
WHERE NOT EXISTS (SELECT * FROM sources WHERE distribution = 'debian' |
| 17 |
AND release = 'lenny' and package = unstable.package) |
AND release = 'lenny' and package = unstable.package) |
| 18 |
AND popcon_src_max.package = unstable.package AND popcon_src_max.distribution = 'debian' ORDER BY pvote DESC; |
AND popcon_src_max.package = unstable.package AND popcon_src_max.distribution = 'debian' ORDER BY insts DESC; |
| 19 |
EOF |
EOF |
| 20 |
); |
); |
| 21 |
|
|