[Collab-qa-commits] r1371 - in udd/web: . cgi-bin
lucas at alioth.debian.org
lucas at alioth.debian.org
Tue Jan 6 15:14:36 UTC 2009
Author: lucas
Date: 2009-01-06 15:14:36 +0000 (Tue, 06 Jan 2009)
New Revision: 1371
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_etch_but_not_in_lenny.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
udd/web/cgi-bin/sponsorstats.cgi
udd/web/cgi-bin/ubuntubugs.cgi
udd/web/index.html
Log:
fixed cgi scripts
Modified: udd/web/cgi-bin/package_bug_count.cgi
===================================================================
--- udd/web/cgi-bin/package_bug_count.cgi 2009-01-06 15:14:11 UTC (rev 1370)
+++ udd/web/cgi-bin/package_bug_count.cgi 2009-01-06 15:14:36 UTC (rev 1371)
@@ -6,7 +6,7 @@
use DBI;
use CGI;
-my $dbh = DBI->connect("dbi:Pg:dbname=udd") or die $!;
+my $dbh = DBI->connect("dbi:Pg:dbname=udd;port=5441;host=localhost", "guest") or die $!;
my $sth = $dbh->prepare(<<EOF
SELECT package, COUNT(id) AS nr FROM bugs
WHERE
Modified: udd/web/cgi-bin/package_rc_bug_count.cgi
===================================================================
--- udd/web/cgi-bin/package_rc_bug_count.cgi 2009-01-06 15:14:11 UTC (rev 1370)
+++ udd/web/cgi-bin/package_rc_bug_count.cgi 2009-01-06 15:14:36 UTC (rev 1371)
@@ -6,7 +6,7 @@
use DBI;
use CGI;
-my $dbh = DBI->connect("dbi:Pg:dbname=udd") or die $!;
+my $dbh = DBI->connect("dbi:Pg:dbname=udd;port=5441;host=localhost", "guest") or die $!;
my $sth = $dbh->prepare(<<EOF
SELECT b.package, COUNT(b.id)
FROM bugs b
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 2009-01-06 15:14:11 UTC (rev 1370)
+++ udd/web/cgi-bin/packages_in_unstable_but_not_in_testing_by_popcon.cgi 2009-01-06 15:14:36 UTC (rev 1371)
@@ -6,7 +6,7 @@
use DBI;
use CGI;
-my $dbh = DBI->connect("dbi:Pg:dbname=udd") or die $!;
+my $dbh = DBI->connect("dbi:Pg:dbname=udd;port=5441;host=localhost", "guest") or die $!;
my $sth = $dbh->prepare(<<EOF
SELECT DISTINCT pkgs.package, insts
FROM packages_summary pkgs, popcon
Modified: udd/web/cgi-bin/removal_candidates.cgi
===================================================================
--- udd/web/cgi-bin/removal_candidates.cgi 2009-01-06 15:14:11 UTC (rev 1370)
+++ udd/web/cgi-bin/removal_candidates.cgi 2009-01-06 15:14:36 UTC (rev 1371)
@@ -21,7 +21,7 @@
EOF
;
-my $dbh = DBI->connect("dbi:Pg:dbname=udd") or die $!;
+my $dbh = DBI->connect("dbi:Pg:dbname=udd;port=5441;host=localhost", "guest") or die $!;
my $sth = $dbh->prepare($s);
$sth->execute() or die $!;
Modified: udd/web/cgi-bin/sources_in_etch_but_not_in_lenny.cgi
===================================================================
--- udd/web/cgi-bin/sources_in_etch_but_not_in_lenny.cgi 2009-01-06 15:14:11 UTC (rev 1370)
+++ udd/web/cgi-bin/sources_in_etch_but_not_in_lenny.cgi 2009-01-06 15:14:36 UTC (rev 1371)
@@ -6,7 +6,7 @@
use DBI;
use CGI;
-my $dbh = DBI->connect("dbi:Pg:dbname=udd") or die $!;
+my $dbh = DBI->connect("dbi:Pg:dbname=udd;port=5441;host=localhost", "guest") or die $!;
my $sth = $dbh->prepare(<<EOF
select insts, sources.source
from sources, popcon_src
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 2009-01-06 15:14:11 UTC (rev 1370)
+++ udd/web/cgi-bin/sources_in_ubuntu_but_not_in_debian_by_popcon.cgi 2009-01-06 15:14:36 UTC (rev 1371)
@@ -6,7 +6,7 @@
use DBI;
use CGI;
-my $dbh = DBI->connect("dbi:Pg:dbname=udd") or die $!;
+my $dbh = DBI->connect("dbi:Pg:dbname=udd;port=5441;host=localhost", "guest") or die $!;
my $sth = $dbh->prepare(<<EOF
SELECT DISTINCT intrepid.source, insts
FROM (SELECT DISTINCT source FROM ubuntu_sources
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 2009-01-06 15:14:11 UTC (rev 1370)
+++ udd/web/cgi-bin/sources_in_unstable_but_not_in_testing_by_popcon_max.cgi 2009-01-06 15:14:36 UTC (rev 1371)
@@ -6,7 +6,7 @@
use DBI;
use CGI;
-my $dbh = DBI->connect("dbi:Pg:dbname=udd") or die $!;
+my $dbh = DBI->connect("dbi:Pg:dbname=udd;port=5441;host=localhost", "guest") or die $!;
my $sth = $dbh->prepare(<<EOF
SELECT DISTINCT unstable.source, insts
FROM (SELECT DISTINCT source FROM sources
Modified: udd/web/cgi-bin/sponsorstats.cgi
===================================================================
--- udd/web/cgi-bin/sponsorstats.cgi 2009-01-06 15:14:11 UTC (rev 1370)
+++ udd/web/cgi-bin/sponsorstats.cgi 2009-01-06 15:14:36 UTC (rev 1371)
@@ -4,14 +4,14 @@
puts "Content-type: text/html\n\n"
-dbh = DBI::connect('DBI:Pg:udd')
-sth = dbh.prepare("select s.source, s.version, u.changed_by, nmu, key_id, cl.login
+dbh = DBI::connect('DBI:Pg:dbname=udd;port=5441;host=localhost', 'guest')
+sth = dbh.prepare("select s.source, s.version, u.changed_by, nmu, signed_by, cl.login
from sources s, upload_history u, carnivore_emails ce1, carnivore_emails ce2, carnivore_login cl
where s.distribution = 'debian' and s.release = 'sid'
and s.source = u.package
and s.version = u.version
and substring(u.changed_by from '<(.*)>') = ce1.email
-and substring(u.key_id from '<(.*)>') = ce2.email
+and substring(u.signed_by from '<(.*)>') = ce2.email
and ce1.id != ce2.id
and ce2.id = cl.id")
sth.execute
Modified: udd/web/cgi-bin/ubuntubugs.cgi
===================================================================
--- udd/web/cgi-bin/ubuntubugs.cgi 2009-01-06 15:14:11 UTC (rev 1370)
+++ udd/web/cgi-bin/ubuntubugs.cgi 2009-01-06 15:14:36 UTC (rev 1371)
@@ -4,7 +4,7 @@
puts "Content-type: text/plain\n\n"
-dbh = DBI::connect('DBI:Pg:udd')
+dbh = DBI::connect('DBI:Pg:dbname=udd;port=5441;host=localhost', 'guest')
sth = dbh.prepare("select package, count(distinct bugs.bug)
from ubuntu_bugs_tasks tasks,ubuntu_bugs bugs
where tasks.bug = bugs.bug
Modified: udd/web/index.html
===================================================================
--- udd/web/index.html 2009-01-06 15:14:11 UTC (rev 1370)
+++ udd/web/index.html 2009-01-06 15:14:36 UTC (rev 1371)
@@ -54,6 +54,16 @@
Sources in etch but not in lenny
</a>
</li>
- </ul>
+ <li>
+ <a href="/cgi-bin/sponsorstats.cgi">
+ Statistics about sponsors, for packages currently in the archive
+ </a>
+ </li>
+ <li>
+ <a href="/cgi-bin/ubuntubugs.cgi">
+ Open bugs per Ubuntu package
+ </a>
+ </li>
+ </ul>
</body>
</html>
More information about the Collab-qa-commits
mailing list