status-report-scripts parseBZbugList,1.36,1.37

[Christian Iseli (c4chris)]

Author: c4chris

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

Modified Files:
	parseBZbugList 
Log Message:
Add blacklist and infrastructure exceptions.  Exclude tracker bugs from low activity reports.


Index: parseBZbugList
===================================================================
RCS file: /cvs/fedora/status-report-scripts/parseBZbugList,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -r1.36 -r1.37
--- parseBZbugList	6 Jun 2006 22:16:14 -0000	1.36
+++ parseBZbugList	7 Jun 2006 11:23:55 -0000	1.37
@@ -127,7 +127,6 @@
 my %OWN_CVS_RECENT;
 my %MEMBER;
 my %CVS_NO_OWNER;
-my %DISCARD;
 my %FC_INTEGRATED;
 my %PKG_LIST;
 my %BUG_LIST;
@@ -137,6 +136,14 @@
 my %OWNER_STAT;
 my %BZOWN_CNT;
 my %BZREV_CNT;
+my %INFRASTRUCTURE = (
+  "buildsystem" => 1,
+  "general" => 1
+);
+# Blacklist a few packages for historical reasons
+my %DISCARD = (
+  "libgsf113" => 1
+);
 if ($main::bzid ne "") {
   local *IN;
   open IN, "wget -nv -O - \"$main::bzid\"|"
@@ -477,12 +484,14 @@
     unless (defined $EXTRAS_D{$k}) {
       if (defined($CORE_D{$k}) || defined($FC_INTEGRATED{$k})) {
 	push @NPC, $k;
+	next;
+      }
+      next if defined $DISCARD{$k};
+      next if defined $INFRASTRUCTURE{$k};
+      if (defined $EXTRAS_R[$main::currel]->{$k}) {
+	push @NP_R, $k;
       } else {
-	if (defined $EXTRAS_R[$main::currel]->{$k}) {
-	  push @NP_R, $k;
-	} else {
-	  push @NP, $k;
-	}
+	push @NP, $k;
       }
     }
   }
@@ -864,6 +873,7 @@
   foreach my $b (sort(keys %$BZ)) {
     my $a = $BZ->{$b};
     next if $$a[6] eq "\"CLOSED\"";
+    next if $$a[11] =~ /Tracker for /;
     if (Date_Cmp($$a[2], $fourWeeksAgo) < 0) {
       if (Date_Cmp($$a[2], $eightWeeksAgo) < 0) {
 	push @LATE, $b;