status-report-scripts parseBZbugList,1.45,1.46

[Christian Iseli (c4chris)]

Author: c4chris

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

Modified Files:
	parseBZbugList 
Log Message:
Look at FE-GUIDELINES blockers.


Index: parseBZbugList
===================================================================
RCS file: /cvs/fedora/status-report-scripts/parseBZbugList,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -r1.45 -r1.46
--- parseBZbugList	14 Jul 2006 22:21:14 -0000	1.45
+++ parseBZbugList	25 Jul 2006 14:40:21 -0000	1.46
@@ -76,6 +76,7 @@
 $main::discarded = $opt{"d"} if defined $opt{"d"};
 $main::bzid = $opt{"bzid"} if defined $opt{"bzid"};
 $main::cvsDir = $opt{"cvs"} if defined $opt{"cvs"};
+$main::compsDir = $opt{"comps"} if defined $opt{"comps"};
 $main::currel = $opt{"currel"} if defined $opt{"currel"};
 $main::firstrel = $opt{"firstrel"} if defined $opt{"firstrel"};
 
@@ -86,10 +87,12 @@
 my $FE_ACCEPT = 163779;
 my $FE_NEEDSPONSOR = 177841;
 my $FE_LEGAL = 182235;
+my $FE_GUIDELINES = 197974;
 my $extras_orphan = 'extras-orphan at fedoraproject.org';
 my %BZN;
 my %BZS;
 my %BZL;
+my %BZG;
 my %BZR;
 my %BZA;
 my %BZB;
@@ -333,6 +336,7 @@
     my $block = 0;
     my $sponsor = 0;
     my $legal = 0;
+    my $gl = 0;
     my $bzb;
     foreach my $b (@B) {
       if ($b == $FE_NEW) {
@@ -353,6 +357,9 @@
       if ($b == $FE_LEGAL) {
 	$legal = 1;
       }
+      if ($b == $FE_GUIDELINES) {
+	$gl = 1;
+      }
     }
     if ($block > 1) {
       print "Warning: bug $F[0] blocks several FE_ blockers.\n";
@@ -366,6 +373,9 @@
       if ($legal == 1 && $bzb == \%BZN) {
 	$BZL{$F[0]} = \@F;
       }
+      if ($gl == 1 && $bzb == \%BZN) {
+	$BZG{$F[0]} = \@F;
+      }
       next;
     }
     if (defined $OWN{$F[8]}) {
@@ -397,6 +407,8 @@
 &checkLowActivity(\%BZS, "FE-NEEDSPONSOR");
 &countOpen(\%BZL, "FE-LEGAL");
 &checkLowActivity(\%BZL, "FE-LEGAL");
+&countOpen(\%BZG, "FE-GUIDELINES");
+&checkLowActivity(\%BZG, "FE-GUIDELINES");
 &checkLowActivity(\%BZB, "OPEN-BUGS");
 &checkBugs(\%BZB);
 &checkMaintainers();
@@ -413,6 +425,7 @@
 &displayNewReviewWiki(\%BZN, "FE-NEW", 5);
 &displayNewReviewWiki(\%BZS, "FE-NEEDSPONSOR", 5);
 &displayNewReviewWiki(\%BZL, "FE-LEGAL", 5);
+&displayNewReviewWiki(\%BZG, "FE-GUIDELINES", 5);
 &displayNewReviewWiki(\%BZB, "OPEN-BUGS", 4);
 &displayCVSWiki();
 &displayMaintainersWiki();
@@ -429,6 +442,7 @@
 &displayNewReviewMail("FE-NEW");
 &displayNewReviewMail("FE-NEEDSPONSOR");
 &displayNewReviewMail("FE-LEGAL");
+&displayNewReviewMail("FE-GUIDELINES");
 &displayNewReviewMail("OPEN-BUGS");
 &displayCVSMail();
 &displayMaintainersMail();
@@ -937,6 +951,7 @@
   -help           this help note
   -bzid <url>     list associating bz ticket number with package name
                   [$main::bzid]
+  -comps <dir>    extras comps directory [$main::compsDir]
   -currel <int>   current Fedora release number [$main::currel]
   -cvs <dir>      extras CVS directory [$main::cvsDir]
   -d <url>        list of migrated/discarded packages