[Collab-qa-commits] r760 - debcluster/scripts

[lucas at alioth.debian.org]

Author: lucas
Date: 2008-04-03 08:41:42 +0000 (Thu, 03 Apr 2008)
New Revision: 760

Added:
   debcluster/scripts/fetch-rc-bugs.rb
Log:
quick and dirty script to list rc bugs

Added: debcluster/scripts/fetch-rc-bugs.rb
===================================================================
--- debcluster/scripts/fetch-rc-bugs.rb	                        (rev 0)
+++ debcluster/scripts/fetch-rc-bugs.rb	2008-04-03 08:41:42 UTC (rev 760)
@@ -0,0 +1,19 @@
+#!/usr/bin/ruby -w
+# ruby ../../tools/bugs2packagelist/fetchbugs.rb user usertag < list > newlist 2>log
+# ruby ../../tools/bugs2packagelist/fetchbugs.rb debian-qa at lists.debian.org qa-ftbfs-20071007 < failed.2007-10-07.txt > failed.2007-10-07.txt.2 2>log
+require 'soap/rpc/driver'
+bts = SOAP::RPC::Driver::new('http://bugs.debian.org/cgi-bin/soap.cgi', '/Debbugs/SOAP')
+bts.add_method('get_status', 'bugs')
+bts.add_method('get_bugs', 'params')
+bts.add_method('get_bug_log', 'params')
+bts.add_method('get_usertag', 'email', 'tag')
+bts.add_method('newest_bugs', 'num')
+
+bugs = bts.get_usertag('debian-qa at lists.debian.org', 'qa-ftbfs')
+
+pkgs = []
+bts.get_status(bugs['qa-ftbfs'].sort.uniq).each_pair do |k, v|
+  next if v.pending == 'done'
+  pkgs << v.package
+end
+puts pkgs.sort.uniq.join("\n")