status-report-scripts parseBZbugList,1.68,1.69

[Christian Iseli (c4chris)]

Author: c4chris

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

Modified Files:
	parseBZbugList 
Log Message:
Special handling of Merge Reviews. Only keep primary owner in report. Fix unavailable message.


Index: parseBZbugList
===================================================================
RCS file: /cvs/fedora/status-report-scripts/parseBZbugList,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -r1.68 -r1.69
--- parseBZbugList	19 Feb 2007 15:08:48 -0000	1.68
+++ parseBZbugList	9 Mar 2007 13:33:37 -0000	1.69
@@ -159,6 +159,8 @@
       print STDERR "Sorting problem in owners.list: $F[1] lt $prev\n";
     }
     $prev = $F[1];
+    # Keep only primary owner
+    $F[3] =~ s/,.*$//;
     $OWN{$F[1]} = \@F;
   }
   close IN;
@@ -574,13 +576,13 @@
   my $a = $PKG_LIST{"NotDevelNotRel"};
   if ($#$a >= 0) {
     my $cnt = $#$a + 1;
-    print "\nWe have $cnt packages not available in extras devel or release:\n";
+    print "\nWe have $cnt packages not available in devel or release:\n";
     &displayPkgListByOwnerWiki($a);
   }
   $a = $PKG_LIST{"NotDevel"};
   if ($#$a >= 0) {
     my $cnt = $#$a + 1;
-    print "\nWe have $cnt packages not available in extras devel ";
+    print "\nWe have $cnt packages not available in devel ";
     print "but present in release:\n";
     &displayPkgListByOwnerWiki($a);
   }
@@ -747,13 +749,13 @@
   $a = $PKG_LIST{"NotDevelNotRel"};
   if ($#$a >= 0) {
     my $cnt = $#$a + 1;
-    print STDERR " - $cnt packages not available in extras devel or release\n";
+    print STDERR " - $cnt packages not available in devel or release\n";
     &displayPkgListByOwnerMail($a);
   }
   $a = $PKG_LIST{"NotDevel"};
   if ($#$a >= 0) {
     my $cnt = $#$a + 1;
-    print STDERR " - $cnt packages not available in extras devel ";
+    print STDERR " - $cnt packages not available in devel ";
     print STDERR "but present in release\n";
     &displayPkgListByOwnerMail($a);
   }
@@ -1186,6 +1188,8 @@
     next if defined $DISCARD{$a->{'pkg_name'}};
     next unless defined $OL{lc $a->{'pkg_name'}};
 #    delete $OWN{$OL{lc $a->{'pkg_name'}}};
+    # Do not complain for the Merge Review stuff
+    next if $a->{'short_desc'} =~ /Merge Review:/;
     push @BL, $b;
   }
   $COUNT_LIST{"openInOwners"} += $#BL + 1;