status-report-scripts parseBZbugList,1.40,1.41

[Christian Iseli (c4chris)]

Author: c4chris

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

Modified Files:
	parseBZbugList 
Log Message:
Add a few blacklisted entries.  Better dead packages detection.


Index: parseBZbugList
===================================================================
RCS file: /cvs/fedora/status-report-scripts/parseBZbugList,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -r1.40 -r1.41
--- parseBZbugList	22 Jun 2006 13:02:53 -0000	1.40
+++ parseBZbugList	22 Jun 2006 14:19:01 -0000	1.41
@@ -1,11 +1,11 @@
 #!/usr/bin/env perl
 # $Id$
 
-# This script retrieves CSV formatted bug lists and extract info on various
-# aspects of package review tickets. FE-ACCEPT blockers are checked to
+# This script retrieves CSV formatted bug lists and extracts info on various
+# aspects of package review tickets.  FE-ACCEPT blockers are checked to
 # determine whether closed tickets have their corresponding package in the
 # development repo and in the owners file, and whether still open ticket could
-# be closed. FE-NEW and FE-REVIEW blockers are checked to verify they are not
+# be closed.  FE-NEW and FE-REVIEW blockers are checked to verify they are not
 # closed.
 #
 # To run this script, you will need the following data:
@@ -122,7 +122,12 @@
 );
 # Blacklist a few packages for historical reasons
 my %DISCARD = (
-  "libgsf113" => 1
+  "alsa-firmware" => 1,
+  "dd_rescue" => 1,
+  "gconfmm20" =>1,
+  "libgsf113" => 1,
+  "php-pecl-sqlite" => 1,
+  "wxPythonGTK2" => 1
 );
 if ($main::bzid ne "") {
   local *IN;
@@ -223,12 +228,15 @@
   close IN;
   unlink $f;
   my @PL;
-  $cmd = "find $main::cvsDir -type d -name devel -print "
-    . "| sed 's|^$main::cvsDir/||;s|/.*||'";
-  open IN, "$cmd |" or die "Couldn't launch find command in CVS: $!";
-  while ( <IN> ) {
-    s/\s+$//;
-    $COUNT_LIST{"CVS"} += 1;
+  my @G = glob "$main::cvsDir/*";
+  foreach $_ (@G) {
+    s/^$main::cvsDir\///;
+    if (-d "$main::cvsDir/$_/devel") {
+      $COUNT_LIST{"CVS"} += 1;
+    } else {
+      $DISCARD{$_} = 1 unless defined $CORE_D{$_};
+      next;
+    }
     if (-f "$main::cvsDir/$_/devel/$_.spec") {
       if (defined($CORE_D{$_})) {
 	push @PL, $_;