status-report-scripts parseBZbugList,1.62,1.63

[Christian Iseli (c4chris)]

Author: c4chris

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

Modified Files:
	parseBZbugList 
Log Message:
Report number of binary packages in devel (for i386).


Index: parseBZbugList
===================================================================
RCS file: /cvs/fedora/status-report-scripts/parseBZbugList,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -r1.62 -r1.63
--- parseBZbugList	1 Jan 2007 01:58:13 -0000	1.62
+++ parseBZbugList	22 Jan 2007 14:21:28 -0000	1.63
@@ -191,6 +191,10 @@
     $s = "development" if $i > $main::currel;
     &grabRepoList("$main::repourl/core/$s/i386/os/Fedora/RPMS/", \%C_RPM);
     &grabRepoList("$main::repourl/extras/$s/i386/", \%E_RPM);
+    if ($i == $main::currel + 1) {
+      my @A = keys %E_RPM;
+      $COUNT_LIST{"bin_rpms"} = $#A + 1;
+    }
     foreach my $k (keys % {$EXTRAS_R[$i]}) {
       $E_RPM{$k} = 1;
     }
@@ -530,6 +534,7 @@
   print "== About owners file ==\n\n";
   print "=== Package count ===\n\n";
   print "We have $COUNT_LIST{'owner'} extras packages in owners file.[[BR]]\n";
+  print "We have $COUNT_LIST{'bin_rpms'} binary rpms in the devel repo.[[BR]]\n";
   print "There are $COUNT_LIST{'orphan'} orphans.\n";
   print "\n=== Top $TopCount package owners ===\n";
   &displayOwnerCntWiki($OWNER_LIST{"package"}, \%OWNER_STAT, 0);
@@ -705,6 +710,7 @@
 sub displayOwnersMail {
   print STDERR "\nOwners file stats:\n";
   print STDERR " - $COUNT_LIST{'owner'} packages\n";
+  print STDERR " - $COUNT_LIST{'bin_rpms'} binary rpms in devel\n";
   print STDERR " - $COUNT_LIST{'orphan'} orphans\n";
   $a = $PKG_LIST{"NotDevelNotRel"};
   if ($#$a >= 0) {