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

[abi at alioth.debian.org]

Author: abi
Date: 2007-07-10 13:09:27 +0000 (Tue, 10 Jul 2007)
New Revision: 328

Modified:
   tools/bugs2packagelist/bts2pkglist.pl
Log:
... mh only need to figure how to correctly call sed without escape messing

Modified: tools/bugs2packagelist/bts2pkglist.pl
===================================================================
--- tools/bugs2packagelist/bts2pkglist.pl	2007-07-10 12:22:12 UTC (rev 327)
+++ tools/bugs2packagelist/bts2pkglist.pl	2007-07-10 13:09:27 UTC (rev 328)
@@ -38,11 +38,13 @@
 
 my $hdl = $c->get_usertag($user_mail,  $user_tag) or die 'something bad happened';
 my $bugs = $hdl->result;
-my $l = $bugs->{$user_tag};
 
-if( @$l < 1 ) {
-	print "No bugs for user ($user_mail) and tag ($user_tag) found";
+my $l;
+if(  ! $bugs ) {
+	print "No bugs for user ($user_mail) and tag ($user_tag) found\n";
 	exit 1;
+} else {
+	$l = $bugs->{"$user_tag"};
 }
 
 my $c = new SOAP::Lite
@@ -59,7 +61,6 @@
 	#$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);
+		# call sed or whatever here
     }
 }