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

[Lucas Nussbaum]

Author: lucas
Date: 2009-12-23 19:25:33 +0000 (Wed, 23 Dec 2009)
New Revision: 1650

Added:
   udd/web/cgi-bin/merges.json.cgi
Log:
cgi to export the status of merges

Added: udd/web/cgi-bin/merges.json.cgi
===================================================================
--- udd/web/cgi-bin/merges.json.cgi	                        (rev 0)
+++ udd/web/cgi-bin/merges.json.cgi	2009-12-23 19:25:33 UTC (rev 1650)
@@ -0,0 +1,65 @@
+#!/usr/bin/ruby -w
+
+require 'dbi'
+require 'pp'
+require 'uri'
+require 'net/http'
+require 'json/pure'
+
+URELEASE='lucid'
+
+puts "Content-type: application/json\n\n"
+
+DREL='squeeze'
+UREL='lucid'
+
+dbh = DBI::connect('DBI:Pg:dbname=udd;port=5441;host=localhost', 'guest')
+
+# Fetching blacklist
+blacklist = Net::HTTP.get(URI::parse('http://people.canonical.com/~ubuntu-archive/sync-blacklist.txt')).split(/\n/)
+bpkgs = []
+blacklist.each do |l|
+   l.gsub!(/#.*/, '')
+   l.strip!
+   next if l == ''
+   bpkgs << l
+end
+sbpkgs = "'" + bpkgs.uniq.join("','") + "'"
+
+sth = dbh.prepare("select ubu.component, deb.source, deb.version as dversion, ubu.version as uversion
+from sources_uniq deb, ubuntu_sources ubu
+where deb.distribution='debian' and deb.release='#{DREL}'
+and ubu.distribution='ubuntu' and ubu.release='#{UREL}'
+and deb.source = ubu.source and deb.version > ubu.version
+and deb.source not in (#{sbpkgs})
+and ubu.version !~ '[0-9]build[0-9]'
+and ubu.version ~ 'ubuntu'
+order by component, source")
+sth.execute ; rows = sth.fetch_all
+
+sth2 = dbh.prepare("select distinct package, b.bug, title, status
+from ubuntu_bugs b, ubuntu_bugs_tasks bt
+where b.bug = bt.bug
+and title ~ '^((P|p)lease )?((M|m)erge|(S|s)ync) .* from Debian'
+and status != 'Fix Released'
+and distro != 'Debian'")
+sth2.execute ; rowsb = sth2.fetch_all
+
+bugs = {}
+rowsb.each do |r|
+  src = r['package']
+  bugs[src] = [] if bugs[src].nil?
+  bugs[src] << {'bug' => r['bug'], 'status' => r['status'], 'title' => r['title']}
+end
+
+merges = {}
+merges['main'] = {}
+merges['restricted'] = {}
+merges['universe'] = {}
+merges['multiverse'] = {}
+
+rows.each do |r|
+  merges[r['component']][r['source']] = { 'debian_version' => r['dversion'], 'ubuntu_version' => r['uversion'], 'bugs' => (bugs[r['source']] or []) }
+end
+puts merges.to_json
+sth.finish


Property changes on: udd/web/cgi-bin/merges.json.cgi
___________________________________________________________________
Added: svn:executable
   + *