status-report-scripts parseBZbugList,1.20,1.21

[Christian Iseli (c4chris)]

Author: c4chris

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

Modified Files:
	parseBZbugList 
Log Message:
Add some more stuff in the mail report.


Index: parseBZbugList
===================================================================
RCS file: /cvs/fedora/status-report-scripts/parseBZbugList,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -r1.20 -r1.21
--- parseBZbugList	19 Apr 2006 10:10:06 -0000	1.20
+++ parseBZbugList	19 Apr 2006 10:10:56 -0000	1.21
@@ -502,6 +502,29 @@
   }
 }
 
+sub displayPkgListByOwnerMail {
+  my ($a) = @_;
+  my %PO;
+  foreach my $p (@$a) {
+    my $oa = $OWN{$p};
+    my $owner = $$oa[3];
+    my $e = $PO{$owner};
+    if (defined $e) {
+      push @$e, $p;
+    } else {
+      $PO{$owner} = [ $p ];
+    }
+  }
+  foreach my $owner (sort(keys %PO)) {
+    my $e = $PO{$owner};
+    $owner =~ s/\@/ at /;
+    $owner =~ s/\./ dot /g;
+    foreach my $p (@$e) {
+      printf STDERR "    %-42s %s\n", $owner, $p;
+    }
+  }
+}
+
 sub displayOwnersMail {
   print STDERR "\nOwners file stats:\n";
   print STDERR " - $COUNT_LIST{'owner'} packages\n";
@@ -510,12 +533,14 @@
   if ($#$a >= 0) {
     my $cnt = $#$a + 1;
     print STDERR " - $cnt packages not available in extras devel or release\n";
+    &displayPkgListByOwnerMail($a);
   }
   $a = $PKG_LIST{"NotDevel"};
   if ($#$a >= 0) {
     my $cnt = $#$a + 1;
     print STDERR " - $cnt packages not available in extras devel ";
     print STDERR "but present in release\n";
+    &displayPkgListByOwnerMail($a);
   }
   if ($COUNT_LIST{"openInOwners"} > 0) {
     print STDERR " - $COUNT_LIST{'openInOwners'} packages ",
@@ -524,6 +549,10 @@
   if ($COUNT_LIST{"extrasNoOwner"} > 0) {
     print STDERR " - $COUNT_LIST{'extrasNoOwner'} packages present in the ",
       "development repo which have no owners entry\n";
+    my $p = $PKG_LIST{"extrasNoOwner"};
+    my $s = &toLine(join(" ", @$p));
+    $s =~ s/\n/\n    /sg;
+    print STDERR "    $s\n";
   }
   my @DUP = sort(keys %OWN_DUP);
   if ($#DUP >= 0) {
@@ -534,6 +563,9 @@
   if ($#$a >= 0) {
     my $cnt = $#$a + 1;
     print STDERR " - $cnt orphaned packages, yet available in extras devel\n";
+    my $s = &toLine(join(" ", sort @$a));
+    $s =~ s/\n/\n    /sg;
+    print STDERR "    $s\n";
   }
   $a = $PKG_LIST{"MovedToCore"};
   if ($#$a >= 0) {
@@ -777,7 +809,7 @@
 sub toLine {
   my ($s) = @_;
   my $p1 = 0;
-  my $p2 = $p1 + 78;
+  my $p2 = $p1 + 72;
   while ($p2 < length($s)) {
     my $p3 = rindex $s, " ", $p2;
     if ($p3 < $p1) {
@@ -786,7 +818,7 @@
     }
     substr $s, $p3, 1, "\n";
     $p1 = $p3 + 1;
-    $p2 = $p1 + 78;
+    $p2 = $p1 + 72;
   }
   return $s;
 }