[Collab-qa-commits] r322 - tools/bugs2packagelist

[abi at alioth.debian.org]

Author: abi
Date: 2007-07-10 09:54:51 +0000 (Tue, 10 Jul 2007)
New Revision: 322

Modified:
   tools/bugs2packagelist/bts2pkglist.pl
Log:
...

Modified: tools/bugs2packagelist/bts2pkglist.pl
===================================================================
--- tools/bugs2packagelist/bts2pkglist.pl	2007-07-10 08:51:23 UTC (rev 321)
+++ tools/bugs2packagelist/bts2pkglist.pl	2007-07-10 09:54:51 UTC (rev 322)
@@ -36,10 +36,15 @@
     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 $hdl = $c->get_usertag($user_mail,  $user_tag) or die 'something bad happened';
 my $bugs = $hdl->result;
 my $l = $bugs->{'qa-doublebuild'};
 
+if( @$l < 1 ) {
+	print "No bugs for user ($user_mail) and tag ($user_tag) found";
+	exit 1;
+}
+
 my $c = new SOAP::Lite
     uri => '/Debbugs/SOAP/Status',
     proxy => 'http://bugs.debian.org/cgi-bin/soap.cgi'
@@ -48,5 +53,8 @@
 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";
+	#$d->{$f}->{'package'} -> package name
+	#$f -> bug id
+	#$d->{$f}->{'subject'} -> bug subject
+	# call sed or whatever here
 }