status-report-scripts parseBZbugList,1.2,1.3

[Christian Iseli (c4chris)]

Author: c4chris

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

Modified Files:
	parseBZbugList 
Log Message:
Add more owners checks.


Index: parseBZbugList
===================================================================
RCS file: /cvs/fedora/status-report-scripts/parseBZbugList,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- parseBZbugList	19 Apr 2006 09:49:09 -0000	1.2
+++ parseBZbugList	19 Apr 2006 09:50:45 -0000	1.3
@@ -20,6 +20,7 @@
 my %BZR;
 my %BZA;
 my %CORE;
+my %EXTRAS;
 my %SRPMS;
 my %NAME;
 my %OWN;
@@ -46,11 +47,12 @@
   close IN;
 }
 if (defined $opt{"extras"}) {
-  &grabRepoList($opt{"extras"}, \%SRPMS);
+  &grabRepoList($opt{"extras"}, \%EXTRAS);
 }
 if (defined $opt{"core"}) {
   &grabRepoList($opt{"core"}, \%CORE);
 }
+%SRPMS = %EXTRAS;
 foreach my $k (keys %CORE) {
   $SRPMS{$k} = 1;
 }
@@ -136,15 +138,26 @@
   my %O;
   my $orphan = 0;
   my $cnt = 0;
+  my @NP;
+  my @NPC;
+  my @OE;
   foreach my $k (keys %OWN) {
     my $a = $OWN{$k};
     next if $$a[0] ne "Fedora Extras";
     $cnt += 1;
     if ($$a[3] eq 'extras-orphan at fedoraproject.org') {
       $orphan += 1;
+      push @OE, $k if defined $EXTRAS{$k};
       next;
     }
     $O{$$a[3]} += 1;
+    unless (defined $EXTRAS{$k}) {
+      if (defined $CORE{$k}) {
+	push @NPC, $k;
+      } else {
+	push @NP, $k;
+      }
+    }
   }
   print "We have $cnt extras packages in owners file.\n";
   print "There are $orphan orphans.\n";
@@ -156,6 +169,21 @@
     $n =~ s/\./ dot /g;
     printf "%-50s: %d\n", $n, $O{$TO[$i]};
   }
+  if ($#OE >= 0) {
+    $cnt = $#OE + 1;
+    print "\nWe have $cnt orphaned packages available in extras devel:\n";
+    print &toLine(join(" ", sort @OE)), "\n";
+  }
+  if ($#NP >= 0) {
+    $cnt = $#NP + 1;
+    print "\nWe have $cnt packages not available in extras devel:\n";
+    print &toLine(join(" ", sort @NP)), "\n";
+  }
+  if ($#NPC >= 0) {
+    $cnt = $#NPC + 1;
+    print "\nWe have $cnt packages that moved to core:\n";
+    print &toLine(join(" ", sort @NPC)), "\n";
+  }
 }
 
 sub checkAcceptClosed {
@@ -305,3 +333,20 @@
   }
   close IN;
 }
+
+sub toLine {
+  my ($s) = @_;
+  my $p1 = 0;
+  my $p2 = $p1 + 78;
+  while ($p2 < length($s)) {
+    my $p3 = rindex $s, " ", $p2;
+    if ($p3 < $p1) {
+      $p2 += 1;
+      next;
+    }
+    substr $s, $p3, 1, "\n";
+    $p1 = $p3 + 1;
+    $p2 = $p1 + 78;
+  }
+  return $s;
+}