status-report-scripts parseBZbugList,1.34,1.35

Christian Iseli (c4chris) fedora-extras-commits at redhat.com
Fri May 19 12:31:56 UTC 2006


Author: c4chris

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

Modified Files:
	parseBZbugList 
Log Message:
Colorize 25 top submitters.  Fix an off by 1 bug.  Change some wording.


Index: parseBZbugList
===================================================================
RCS file: /cvs/fedora/status-report-scripts/parseBZbugList,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -r1.34 -r1.35
--- parseBZbugList	12 May 2006 21:06:59 -0000	1.34
+++ parseBZbugList	19 May 2006 12:31:53 -0000	1.35
@@ -759,8 +759,10 @@
   print "\n\n== About FE-ACCEPT packages ==\n";
   print "\n\n=== Package count ===\n";
   print "\nWe have $COUNT_LIST{'acceptedClosed'} accepted, closed package reviews\n";
-  print "\n=== Top 10 BZ review requests submitters ===\n";
-  &displayOwnerCntWiki($OWNER_LIST{"BZOwner"}, \%BZOWN_CNT, undef);
+  print "\n=== Top 25 BZ review requests submitters ===\n";
+  print "Sponsors are highlighted in green.\n";
+  &displayOwnerCntWiki($OWNER_LIST{"BZOwner"},
+		       \%BZOWN_CNT, undef, 25, 1);
   print "\n=== Top 25 BZ review requests reviewers ===\n";
   print "Sponsors are highlighted in green.\n";
   &displayOwnerCntWiki($OWNER_LIST{"BZReviewer"},
@@ -776,7 +778,7 @@
       "find the package in the owners file:\n";
     &displayBLWiki($BUG_LIST{"acceptedNoOwn"}, $BZ, 5);
   }
-  if ($COUNT_LIST{"acceptOpenInactive"} >= 0) {
+  if ($COUNT_LIST{"acceptOpenInactive"} > 0) {
     print "\n\n=== Inactivity notice ===\n";
     print "\nWe have $COUNT_LIST{'acceptOpenInactive'} accepted, open package reviews older than 4 weeks\n";
     &displayBLWiki($BUG_LIST{"acceptOpenInactive"}, $BZ, 5);
@@ -801,7 +803,7 @@
     print STDERR
       " - $COUNT_LIST{'missingOwner'} accepted, closed package reviews not in owners\n";
   }
-  if ($COUNT_LIST{"acceptOpenInactive"} >= 0) {
+  if ($COUNT_LIST{"acceptOpenInactive"} > 0) {
     print STDERR
       " - $COUNT_LIST{'acceptOpenInactive'} accepted, open package reviews older than 4 weeks;\n";
   }
@@ -836,7 +838,7 @@
   }
   $BUG_LIST{"acceptOpenInDevel"} = \@BL;
   $BUG_LIST{"acceptOpenInactive"} = \@LATE;
-  $COUNT_LIST{"acceptOpenInactive"} = $#LATE;
+  $COUNT_LIST{"acceptOpenInactive"} = $#LATE + 1;
 }
 
 sub countOpen {
@@ -1085,8 +1087,8 @@
     print join("\n", @A), "}}}\n";
   }
   if ($COUNT_LIST{'CVSinCore'} > 0) {
-    print "\n=== Packages appearing in Core but still present in CVS devel ===\n";
-    print "\nWe have $COUNT_LIST{'CVSinCore'} packages in CVS devel which appear to have moved to Core: {{{\n";
+    print "\n=== Packages appearing in Core and also present in CVS devel ===\n";
+    print "\nWe have $COUNT_LIST{'CVSinCore'} packages in CVS devel which appear to have moved to/from Core: {{{\n";
     my $a = $PKG_LIST{"CVSinCore"};
     print join("\n", @$a), "}}}\n";
   }




More information about the scm-commits mailing list