status-report-scripts parseBZbugList,1.15,1.16

Christian Iseli (c4chris) fedora-extras-commits at redhat.com
Wed Apr 19 10:06:51 UTC 2006


Author: c4chris

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

Modified Files:
	parseBZbugList 
Log Message:
Fix some display things.


Index: parseBZbugList
===================================================================
RCS file: /cvs/fedora/status-report-scripts/parseBZbugList,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- parseBZbugList	19 Apr 2006 10:05:58 -0000	1.15
+++ parseBZbugList	19 Apr 2006 10:06:48 -0000	1.16
@@ -221,6 +221,8 @@
     $F[10] =~ s/["]//g;
     $F[10] =~ s/^review\s+request:?\s+<?//i;
     $F[10] =~ s/[:.,>]?\s.*$//g;
+  } else {
+    $F[10] = $F[8];
   }
   my $block = 0;
   my $sponsor = 0;
@@ -283,10 +285,10 @@
   &UnixDate("today", "%b %e, %Y"), " =\n";
 &displayOwnersWiki;
 &displayAcceptWiki(\%BZA);
-&displayNewReviewWiki(\%BZR, "FE-REVIEW");
-&displayNewReviewWiki(\%BZN, "FE-NEW");
-&displayNewReviewWiki(\%BZS, "FE-NEEDSPONSOR");
-&displayNewReviewWiki(\%BZB, "OPEN-BUGS");
+&displayNewReviewWiki(\%BZR, "FE-REVIEW", 5);
+&displayNewReviewWiki(\%BZN, "FE-NEW", 5);
+&displayNewReviewWiki(\%BZS, "FE-NEEDSPONSOR", 5);
+&displayNewReviewWiki(\%BZB, "OPEN-BUGS", 4);
 &displayCVSWiki();
 print "----\nCategoryExtras\n";
 print STDERR "\n\nFE Package Status of ",
@@ -392,8 +394,8 @@
     print "\n\n=== Packages that have not yet completed review ===\n";
     print "\nWe have $COUNT_LIST{'openInOwners'} packages ",
       "which have not yet been FE-APPROVE'd...\n";
-    &displayBLWiki($BUG_LIST{"openInOwnersFE-REVIEW"}, \%BZR);
-    &displayBLWiki($BUG_LIST{"openInOwnersFE-NEW"}, \%BZN);
+    &displayBLWiki($BUG_LIST{"openInOwnersFE-REVIEW"}, \%BZR, 5);
+    &displayBLWiki($BUG_LIST{"openInOwnersFE-NEW"}, \%BZN, 5);
   }
   if ($COUNT_LIST{"extrasNoOwner"} > 0) {
     print "\n\n=== Packages missing in owners.list ===\n";
@@ -572,23 +574,23 @@
   if ($COUNT_LIST{"missing"} > 0) {
     print "\nWe have $COUNT_LIST{'missing'} accepted, closed packages where I'm unable to ",
       "find the package in the development repo:\n";
-    &displayBLWiki($BUG_LIST{"acceptedNoDevel"}, $BZ);
+    &displayBLWiki($BUG_LIST{"acceptedNoDevel"}, $BZ, 5);
   }
   if ($COUNT_LIST{"missingOwner"} > 0) {
     print "\nWe have $COUNT_LIST{'missingOwner'} accepted, closed packages where I'm unable to ",
       "find the package in the owners file:\n";
-    &displayBLWiki($BUG_LIST{"acceptedNoOwn"}, $BZ);
+    &displayBLWiki($BUG_LIST{"acceptedNoOwn"}, $BZ, 5);
   }
   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);
+    &displayBLWiki($BUG_LIST{"acceptOpenInactive"}, $BZ, 5);
   }
   if ($COUNT_LIST{"acceptOpenInDevel"} > 0) {
     print "\n\n=== Some cleanup needed ===\n";
     print "\nWe have $COUNT_LIST{'acceptOpenInDevel'} accepted, open package reviews where the package ",
       "appears to already be in the repo...\n";
-    &displayBLWiki($BUG_LIST{"acceptOpenInDevel"}, $BZ);
+    &displayBLWiki($BUG_LIST{"acceptOpenInDevel"}, $BZ, 5);
   }
 }
 
@@ -764,15 +766,15 @@
 }
 
 sub displayBLWiki {
-  my ($BL, $BZ) = @_;
+  my ($BL, $BZ, $field) = @_;
   my %O;
   foreach my $b (@$BL) {
     my $a = $BZ->{$b};
-    my $e = $O{$$a[5]};
+    my $e = $O{$$a[$field]};
     if (defined $e) {
       push @$e, $a;
     } else {
-      $O{$$a[5]} = [ $a ];
+      $O{$$a[$field]} = [ $a ];
     }
   }
   foreach my $n (sort(keys %O)) {
@@ -789,7 +791,7 @@
 }
 
 sub displayNewReviewWiki {
-  my ($BZ, $cur) = @_;
+  my ($BZ, $cur, $field) = @_;
   print "\n\n== About $cur packages ==\n";
   print "\n\n=== Open ticket count ===\n";
   my $cnt = $COUNT_LIST{"open$cur"};
@@ -800,19 +802,19 @@
     if ($COUNT_LIST{"inactive8$cur"} > 0) {
       $cnt = $COUNT_LIST{"inactive8$cur"};
       print "\nWe have $cnt $cur tickets with no activity in eight weeks\n";
-      &displayBLWiki($BUG_LIST{"inactive8$cur"}, $BZ);
+      &displayBLWiki($BUG_LIST{"inactive8$cur"}, $BZ, $field);
     }
     if ($COUNT_LIST{"inactive4$cur"} > 0) {
       $cnt = $COUNT_LIST{"inactive4$cur"};
       print "\nWe have $cnt $cur tickets with no activity in four weeks\n";
-      &displayBLWiki($BUG_LIST{"inactive4$cur"}, $BZ);
+      &displayBLWiki($BUG_LIST{"inactive4$cur"}, $BZ, $field);
     }
   }
   if ($COUNT_LIST{"closed$cur"} > 0) {
     print "\n\n=== Some cleanup needed ===\n";
     $cnt = $COUNT_LIST{"closed$cur"};
     print "\nWe have $cnt closed tickets still blocking $cur\n";
-    &displayBLWiki($BUG_LIST{"closed$cur"}, $BZ);
+    &displayBLWiki($BUG_LIST{"closed$cur"}, $BZ, $field);
   }
 }
 




More information about the scm-commits mailing list