[Collab-qa-commits] r1099 - udd/web/cgi-bin

[lucas at alioth.debian.org]

Author: lucas
Date: 2008-08-16 13:48:12 +0000 (Sat, 16 Aug 2008)
New Revision: 1099

Added:
   udd/web/cgi-bin/sources_in_etch_but_not_in_lenny.cgi
Log:
added cgi: sources_in_etch_but_not_in_lenny.cgi

Added: udd/web/cgi-bin/sources_in_etch_but_not_in_lenny.cgi
===================================================================
--- udd/web/cgi-bin/sources_in_etch_but_not_in_lenny.cgi	                        (rev 0)
+++ udd/web/cgi-bin/sources_in_etch_but_not_in_lenny.cgi	2008-08-16 13:48:12 UTC (rev 1099)
@@ -0,0 +1,31 @@
+#!/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 insts, sources.source
+	from sources, popcon_src
+	where release='etch'
+	and sources.source not in
+	   (select source from sources where release='lenny')
+	   and sources.source = popcon_src.source
+	   order by insts 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";
+}
+


Property changes on: udd/web/cgi-bin/sources_in_etch_but_not_in_lenny.cgi
___________________________________________________________________
Name: svn:executable
   + *