status-report-scripts parseBZbugList,1.22,1.23

[Christian Iseli (c4chris)]

Author: c4chris

Update of /cvs/fedora/status-report-scripts
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv4428

Modified Files:
	parseBZbugList 
Log Message:
Add a few more output.


Index: parseBZbugList
===================================================================
RCS file: /cvs/fedora/status-report-scripts/parseBZbugList,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -r1.22 -r1.23
--- parseBZbugList	19 Apr 2006 10:11:52 -0000	1.22
+++ parseBZbugList	19 Apr 2006 10:13:01 -0000	1.23
@@ -546,6 +546,8 @@
   if ($COUNT_LIST{"openInOwners"} > 0) {
     print STDERR " - $COUNT_LIST{'openInOwners'} packages ",
       "which have not yet been FE-APPROVE'd...\n";
+    &displayBL($BUG_LIST{"openInOwnersFE-REVIEW"}, \%BZR, 5);
+    &displayBL($BUG_LIST{"openInOwnersFE-NEW"}, \%BZN, 5);
   }
   if ($COUNT_LIST{"extrasNoOwner"} > 0) {
     print STDERR " - $COUNT_LIST{'extrasNoOwner'} packages present in the ",
@@ -770,7 +772,7 @@
 #  if ($#BL >= 0) {
 #    my $cnt = $#BL + 1;
 #    print "\nWe have $cnt $cur tickets 8 weeks old with no comments\n";
-#    &displayBL(\@BL, $BZ);
+#    &displayBL(\@BL, $BZ, 5);
 #  }
 #}
 
@@ -825,13 +827,15 @@
 }
 
 sub displayBL {
-  my ($BL, $BZ) = @_;
-  print "https://bugzilla.redhat.com/bugzilla/buglist.cgi?bug_id=",
+  my ($BL, $BZ, $field) = @_;
+  print STDERR "   https://bugzilla.redhat.com/bugzilla/buglist.cgi?bug_id=",
     join(",", @$BL), "\n";
-  foreach my $b (@$BL) {
+  foreach my $b (sort @$BL) {
     my $a = $BZ->{$b};
-    my ($owner) = $$a[5] =~ /^.([^@]+)/;
-    printf "  %-40s %s\n", $$a[10], $owner;
+    my $owner = $$a[$field];
+    $owner =~ s/["]//g;
+    $owner =~ s/\@/ at /;
+    printf STDERR "     %-40s %s\n", $$a[10], $owner;
   }
 }