status-report-scripts parseBZbugList,1.58,1.59

[Christian Iseli (c4chris)]

Author: c4chris

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

Modified Files:
	parseBZbugList 
Log Message:
Display top  = 30 entries.


Index: parseBZbugList
===================================================================
RCS file: /cvs/fedora/status-report-scripts/parseBZbugList,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -r1.58 -r1.59
--- parseBZbugList	24 Nov 2006 08:54:57 -0000	1.58
+++ parseBZbugList	6 Dec 2006 01:32:05 -0000	1.59
@@ -76,6 +76,7 @@
 
 &usage() if defined $opt{'help'};
 
+my $TopCount = 30;
 my $FE_NEW = 163776;
 my $FE_REVIEW = 163778;
 my $FE_ACCEPT = 163779;
@@ -522,7 +523,7 @@
   print "=== Package count ===\n\n";
   print "We have $COUNT_LIST{'owner'} extras packages in owners file.[[BR]]\n";
   print "There are $COUNT_LIST{'orphan'} orphans.\n";
-  print "\n=== Top 10 package owners ===\n";
+  print "\n=== Top $TopCount package owners ===\n";
   &displayOwnerCntWiki($OWNER_LIST{"package"}, \%OWNER_STAT, 0);
   print "\n=== Packages not present in the development repo ===\n";
   my $a = $PKG_LIST{"NotDevelNotRel"};
@@ -611,7 +612,7 @@
   if (defined $count) {
     $count -= 1;
   } else {
-    $count = 9;
+    $count = $TopCount - 1;
   }
   for my $i (0 .. $count) {
     my $n = $$a[$i];
@@ -836,14 +837,14 @@
   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 25 BZ review requests submitters ===\n";
+  print "\n=== Top $TopCount BZ review requests submitters ===\n";
   print "Sponsors are highlighted in green.\n";
   &displayOwnerCntWiki($OWNER_LIST{"BZOwner"},
-		       \%BZOWN_CNT, undef, 25, 1, \%BZOWN_BUGS);
-  print "\n=== Top 25 BZ review requests reviewers ===\n";
+		       \%BZOWN_CNT, undef, $TopCount, 1, \%BZOWN_BUGS);
+  print "\n=== Top $TopCount BZ review requests reviewers ===\n";
   print "Sponsors are highlighted in green.\n";
   &displayOwnerCntWiki($OWNER_LIST{"BZReviewer"},
-		       \%BZREV_CNT, undef, 25, 1, \%BZREV_BUGS);
+		       \%BZREV_CNT, undef, $TopCount, 1, \%BZREV_BUGS);
   print "\n\n=== Potential problems ===\n";
   if ($COUNT_LIST{"missing"} > 0) {
     print "\nWe have $COUNT_LIST{'missing'} accepted, closed packages where I'm unable to ",
@@ -1247,7 +1248,7 @@
   print "== About maintainers ==\n\n";
   print "=== Maintainers count ===\n\n";
   print "We have $COUNT_LIST{'maintainers'} maintainers in owners file.[[BR]]\n";
-  print "\n=== Top 10 bugs assignees ===\n";
+  print "\n=== Top $TopCount bugs assignees ===\n";
   &displayOwnerCntWiki($OWNER_LIST{"bugs"}, \%OWNER_STAT, 1);
   if ($COUNT_LIST{'maintbugs'} > 0) {
     print "=== Inactive maintainers with open bug reports ===\n\n";