[Collab-qa-commits] r994 - udd/web/cgi-bin
lucas at alioth.debian.org
lucas at alioth.debian.org
Fri Aug 8 03:01:20 UTC 2008
Author: lucas
Date: 2008-08-08 03:01:19 +0000 (Fri, 08 Aug 2008)
New Revision: 994
Modified:
udd/web/cgi-bin/removal_candidates.cgi
Log:
removal_candidates.cgi fixes
Modified: udd/web/cgi-bin/removal_candidates.cgi
===================================================================
--- udd/web/cgi-bin/removal_candidates.cgi 2008-08-08 02:41:56 UTC (rev 993)
+++ udd/web/cgi-bin/removal_candidates.cgi 2008-08-08 03:01:19 UTC (rev 994)
@@ -6,7 +6,7 @@
use DBI;
use CGI;
-s = <<EOF
+my $s = <<EOF
select sources.package, id, insts, arrival, last_modified, title
from sources, bugs_unarchived AS bugs, popcon_src_max
where sources.distribution = 'debian' and sources.release = 'lenny'
@@ -20,9 +20,10 @@
and popcon_src_max.insts < 2000
order by package;
EOF
+;
my $dbh = DBI->connect("dbi:Pg:dbname=udd") or die $!;
-my $sth = $dbh->prepare(s);
+my $sth = $dbh->prepare($s);
$sth->execute() or die $!;
@@ -31,7 +32,7 @@
print $q->header(-type => 'text/plain');
print "$s\n\n";
while(my @row = $sth->fetchrow_array) {
- my ($package, $score) = @row;
- print "$package\t$score\n";
+ $" = "\t";
+ print "@row.\n";
}
More information about the Collab-qa-commits
mailing list