[commit-womb] gnumaint gm

[Karl Berry]

CVSROOT:        /sources/womb
Module name:    gnumaint
Changes by:     Karl Berry <karl>       07/06/14 22:11:15

Modified files:
        .              : gm 

Log message:
        (list_packages_bymaintainer): put generic
        maintainers in a separate entry.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnumaint/gm?cvsroot=womb&r1=1.3&r2=1.4

Patches:
Index: gm
===================================================================
RCS file: /sources/womb/gnumaint/gm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- gm  20 May 2007 21:51:19 -0000      1.3
+++ gm  14 Jun 2007 22:11:14 -0000      1.4
@@ -1,5 +1,5 @@
 #!/usr/bin/env perl
-# $Id: gm,v 1.3 2007/05/20 21:51:19 karl Exp $
+# $Id: gm,v 1.4 2007/06/14 22:11:14 karl Exp $
 
 $DEBUG = 0;
 $ACTIVITY_FILE = "activity-report.txt";
@@ -39,14 +39,34 @@
   
   for my $p (sort { lc($a) cmp lc($b) } keys %pkgs) {
     my @entries = ();
+    my $generic_entry = "";
+    
     for my $m (@{$pkgs{$p}}) {
-      my $entry = "$m->{name}" if exists $m->{"name"};
+      my $name = $m->{"name"};
+      my $entry = $name;
       $entry .= " " if $entry;
       $entry .= "<$m->{email}>" if exists $m->{"email"};
+
+      if ($name =~ /^[a-z]/ && $name ne "unmaintained") {
+        # Assume that if a name starts with a lowercase letter, it is
+        # generic.  If we ever have a maintainer whose real name starts
+        # with a lowercase letter, we can invent a field to distinguish.
+        # Exception: if the name is "unmaintained", just list that.
+        warn "two generic maintainers for $p?!" if $generic_entry;
+        $generic_entry = $entry;
+      } else {
       push (@entries, $entry);
     }
+    }
+    
+    # might not be anything in @entries if the only maintainer was generic.
+    push (@ret, "$p - " . join (", ", @entries)) if @entries;
     
-    push (@ret, "$p - " . join (", ", @entries));
+    # if we had a generic maintainer for this package, add that as a
+    # separate entry, since that's the way rms wants it.
+    if ($generic_entry) {
+      push (@ret, "$p (generic) - $generic_entry");
+    }
   }
   
   return @ret;
@@ -122,7 +142,6 @@
             my @pkgs = split (/\|/, $maint{"package"});
 
             # append this maintainer to the list for each of his/her packages.
-            # no doubt this could be done with hairier syntax.
             my %copy = %maint;
             for my $p (@pkgs) {
               my @x = exists $ret{$p} ? @{$ret{$p}} : ();