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

[abi at alioth.debian.org]

Author: abi
Date: 2007-07-10 10:12:02 +0000 (Tue, 10 Jul 2007)
New Revision: 324

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

Modified: tools/bugs2packagelist/bts2pkglist.pl
===================================================================
--- tools/bugs2packagelist/bts2pkglist.pl	2007-07-10 10:01:06 UTC (rev 323)
+++ tools/bugs2packagelist/bts2pkglist.pl	2007-07-10 10:12:02 UTC (rev 324)
@@ -50,6 +50,7 @@
     proxy => 'http://bugs.debian.org/cgi-bin/soap.cgi'
   ;
 
+my $cmd;
 foreach my $f (@$l) {
     my $s = $c->get_status($f) or die 'something bad happened';
     my $d = $s->result;
@@ -57,4 +58,8 @@
 	#$f -> bug id
 	#$d->{$f}->{'subject'} -> bug subject
 	# call sed or whatever here
+    if ( $d ) {
+	    $cmd = qq(sed -i  /^$d->{$f}->{'package'}/ 's/NNN:/$f: $d->{$f}->{'subject'}/' $pkglist);
+        system($cmd);
+    }
 }