web/cgi-bin/sources_in_unstable_but_not_in_testing_by_popcon_max.cgi

#!/usr/bin/perl -T

use strict;
use warnings;

use DBI;
use CGI;

my $dbh = DBI->connect("dbi:Pg:dbname=udd") or die $!;
my $sth = $dbh->prepare(<<EOF
        SELECT DISTINCT unstable.package, (vote + popcon_src_max.old + recent + nofiles) as pvote
        FROM (SELECT DISTINCT package FROM sources
                WHERE distribution = 'debian' and release = 'sid')
          AS unstable,
             popcon_src_max
        WHERE NOT EXISTS (SELECT * FROM sources WHERE distribution = 'debian'
                          AND release = 'lenny' and package = unstable.package)
              AND popcon_src_max.package = unstable.package AND popcon_src_max.distribution = 'debian' ORDER BY pvote DESC;
EOF
        );

$sth->execute() or die $!;

my $q = CGI->new();

print $q->header(-type => 'text/plain');
while(my @row = $sth->fetchrow_array) {
        my ($package, $score) = @row;
        print "$package\t$score\n";
}

1	#!/usr/bin/perl -T
2
3	use strict;
4	use warnings;
5
6	use DBI;
7	use CGI;
8
9	my $dbh = DBI->connect("dbi:Pg:dbname=udd") or die $!;
10	my $sth = $dbh->prepare(<<EOF
11	SELECT DISTINCT unstable.package, (vote + popcon_src_max.old + recent + nofiles) as pvote
12	FROM (SELECT DISTINCT package FROM sources
13	WHERE distribution = 'debian' and release = 'sid')
14	AS unstable,
15	popcon_src_max
16	WHERE NOT EXISTS (SELECT * FROM sources WHERE distribution = 'debian'
17	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;
19	EOF
20	);
21
22	$sth->execute() or die $!;
23
24	my $q = CGI->new();
25
26	print $q->header(-type => 'text/plain');
27	while(my @row = $sth->fetchrow_array) {
28	my ($package, $score) = @row;
29	print "$package\t$score\n";
30	}
31