[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[commit-womb] gnumaint gm
From: |
Karl Berry |
Subject: |
[commit-womb] gnumaint gm |
Date: |
Thu, 14 Jun 2007 22:11:15 +0000 |
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}} : ();
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [commit-womb] gnumaint gm,
Karl Berry <=