[Collab-qa-commits] r300 - in tools: . bugs2packagelist

[abi at alioth.debian.org]

Author: abi
Date: 2007-07-04 15:45:58 +0000 (Wed, 04 Jul 2007)
New Revision: 300

Added:
   tools/bugs2packagelist/
   tools/bugs2packagelist/Notes
   tools/bugs2packagelist/bts2pkglist.pl
Log:
todo: script that fetches bugs and replaces NNNNN: within the package lists

Added: tools/bugs2packagelist/Notes
===================================================================
--- tools/bugs2packagelist/Notes	                        (rev 0)
+++ tools/bugs2packagelist/Notes	2007-07-04 15:45:58 UTC (rev 300)
@@ -0,0 +1,16 @@
+TODO:
+
+	all bugs related to a rebuild or piuparts run will be tagged with
+	a usertag piuparts-test-<date_of_run> or archive-rebuild-<date_of_run>
+    and User: set to the QA groups mailadress.
+	
+	While working on the package list NNNNN: is added to the end of the
+	processed package line, which means a bug has been filed.
+
+	This script then goes ahead and fetches all the filed bugs for a
+	given usertag and their subjects and replaces the appropriate
+	line within the package list.
+
+	Called like:
+
+	bts2pkglist <user_address> <usertag> <package_list_file>

Added: tools/bugs2packagelist/bts2pkglist.pl
===================================================================
--- tools/bugs2packagelist/bts2pkglist.pl	                        (rev 0)
+++ tools/bugs2packagelist/bts2pkglist.pl	2007-07-04 15:45:58 UTC (rev 300)
@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+# TODO!
+# this is just an example *what* should be done :)
+use strict;
+use SOAP::Lite; 
+use Data::Dumper;
+
+my $c = new SOAP::Lite
+    uri => '/Debbugs/SOAP/Usertag',
+    proxy => 'http://bugs.debian.org/cgi-bin/soap.cgi'
+  ;
+
+my $hdl = $c->get_usertag('debian-qa at lists.debian.org', 'qa-doublebuild') or die 'something bad happened';
+my $bugs = $hdl->result;
+my $l = $bugs->{'qa-doublebuild'};
+
+my $c = new SOAP::Lite
+    uri => '/Debbugs/SOAP/Status',
+    proxy => 'http://bugs.debian.org/cgi-bin/soap.cgi'
+  ;
+
+foreach my $f (@$l) {
+    my $s = $c->get_status($f) or die 'something bad happened';
+    my $d = $s->result;
+    print "sed /^$d->{$f}->{'package'}/ s/NNNNN:/ $f: $d->{$f}->{'subject'}/\n";
+}