status-report-scripts parseBZbugList,1.11,1.12

[Christian Iseli (c4chris)]

Author: c4chris

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

Modified Files:
	parseBZbugList 
Log Message:
Print mail stuff.


Index: parseBZbugList
===================================================================
RCS file: /cvs/fedora/status-report-scripts/parseBZbugList,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- parseBZbugList	19 Apr 2006 09:58:01 -0000	1.11
+++ parseBZbugList	19 Apr 2006 09:58:40 -0000	1.12
@@ -2,7 +2,6 @@
 # $Id$
 
 # TODO stuff
-# - print what should go in the mailing list report
 
 use strict;
 use Getopt::Long;
@@ -235,6 +234,15 @@
 &displayNewReviewWiki(\%BZN, "FE-NEW");
 &displayNewReviewWiki(\%BZS, "FE-NEEDSPONSOR");
 print "----\nCategoryExtras\n";
+print STDERR "\n\nFE Package Status of ",
+  &UnixDate("today", "%b %e, %Y"), "\n";
+print STDERR "\nThe full report can be found here:\n";
+print STDERR "http://fedoraproject.org/wiki/Extras/PackageStatus\n\n";
+&displayOwnersMail;
+&displayAcceptMail;
+&displayNewReviewMail("FE-REVIEW");
+&displayNewReviewMail("FE-NEW");
+&displayNewReviewMail("FE-NEEDSPONSOR");
 
 exit 0;
 
@@ -398,6 +406,46 @@
   }
 }
 
+sub displayOwnersMail {
+  print STDERR "\nOwners file stats:\n";
+  print STDERR " - $COUNT_LIST{'owner'} packages\n";
+  print STDERR " - $COUNT_LIST{'orphan'} orphans\n";
+  $a = $PKG_LIST{"NotDevelNotRel"};
+  if ($#$a >= 0) {
+    my $cnt = $#$a + 1;
+    print STDERR " - $cnt not available in extras devel or release\n";
+  }
+  $a = $PKG_LIST{"NotDevel"};
+  if ($#$a >= 0) {
+    my $cnt = $#$a + 1;
+    print STDERR " - $cnt packages not available in extras devel ";
+    print STDERR "but present in release\n";
+  }
+  if ($COUNT_LIST{"openInOwners"} > 0) {
+    print STDERR " - $COUNT_LIST{'openInOwners'} packages ",
+      "which have not yet been FE_APPROVE'd...\n";
+  }
+  if ($COUNT_LIST{"extrasNoOwner"} > 0) {
+    print STDERR " - $COUNT_LIST{'extrasNoOwner'} packages present in the ",
+      "development repo which have no owners entry\n";
+  }
+  my @DUP = sort(keys %OWN_DUP);
+  if ($#DUP >= 0) {
+    my $cnt = ($#DUP + 1) / 2;
+    print STDERR " - $cnt packages with duplicated owners entry\n";
+  }
+  $a = $PKG_LIST{"OrphanDevel"};
+  if ($#$a >= 0) {
+    my $cnt = $#$a + 1;
+    print STDERR " - $cnt orphaned packages, yet available in extras devel\n";
+  }
+  $a = $PKG_LIST{"MovedToCore"};
+  if ($#$a >= 0) {
+    my $cnt = $#$a + 1;
+    print STDERR " - $cnt packages that moved to core\n";
+  }
+}
+
 sub checkAcceptClosed {
   my ($BZ) = @_;
   my @BL;
@@ -487,6 +535,29 @@
   }
 }
 
+sub displayAcceptMail {
+  print STDERR "\nFE-ACCEPT packages stats:\n";
+  print STDERR
+    " - $COUNT_LIST{'acceptedClosed'} accepted, closed package reviews\n";
+  if ($COUNT_LIST{"missing"} > 0) {
+    print STDERR
+      " - $COUNT_LIST{'missing'} accepted, closed packages not in repo\n";
+  }
+  if ($COUNT_LIST{"missingOwner"} > 0) {
+    print STDERR
+      " - $COUNT_LIST{'missingOwner'} accepted, closed packages not in owners\n";
+  }
+  if ($COUNT_LIST{"acceptOpenInactive"} >= 0) {
+    print STDERR
+      " - $COUNT_LIST{'acceptOpenInactive'} accepted, open package reviews older than 4 weeks;\n";
+  }
+  if ($COUNT_LIST{"acceptOpenInDevel"} > 0) {
+    print STDERR
+      " - $COUNT_LIST{'acceptOpenInDevel'} accepted, open package reviews ",
+      "with a package already in the repo\n";
+  }
+}
+
 sub checkAcceptOpen {
   my ($BZ) = @_;
   my @BL;
@@ -687,6 +758,25 @@
   }
 }
 
+sub displayNewReviewMail {
+  my ($cur) = @_;
+  print STDERR "\n$cur packages stats:\n";
+  my $cnt = $COUNT_LIST{"open$cur"};
+  print STDERR " - $cnt open tickets\n";
+  if ($COUNT_LIST{"inactive8$cur"} > 0) {
+    $cnt = $COUNT_LIST{"inactive8$cur"};
+    print STDERR " - $cnt tickets with no activity in eight weeks\n";
+  }
+  if ($COUNT_LIST{"inactive4$cur"} > 0) {
+    $cnt = $COUNT_LIST{"inactive4$cur"};
+    print STDERR " - $cnt tickets with no activity in four weeks\n";
+  }
+  if ($COUNT_LIST{"closed$cur"} > 0) {
+    $cnt = $COUNT_LIST{"closed$cur"};
+    print STDERR " - $cnt closed tickets\n";
+  }
+}
+
 sub checkOpenInOwners {
   my ($BZ, $cur) = @_;
   my @BL;