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 fedora-extras-commits
mailing list