[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: |
Tue, 12 Feb 2008 18:55:29 +0000 |
CVSROOT: /sources/womb
Module name: gnumaint
Changes by: Karl Berry <karl> 08/02/12 18:55:29
Modified files:
. : gm
Log message:
(list_packages_bymaintainer): prefer privateemail
to email for the maintainers.bypkg file.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnumaint/gm?cvsroot=womb&r1=1.6&r2=1.7
Patches:
Index: gm
===================================================================
RCS file: /sources/womb/gnumaint/gm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- gm 21 Aug 2007 23:16:16 -0000 1.6
+++ gm 12 Feb 2008 18:55:29 -0000 1.7
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-# $Id: gm,v 1.6 2007/08/21 23:16:16 karl Exp $
+# $Id: gm,v 1.7 2008/02/12 18:55:29 karl Exp $
# More gnumaint-related stuff, since I think better in Perl than TCL.
#
# Copyright 2007 Free Software Foundation Inc.
@@ -66,7 +66,13 @@
my $name = $m->{"name"};
my $entry = $name;
$entry .= " " if $entry;
+ if (exists $m->{"privateemail"}) {
+ # prefer private email addresses when we need to communicate.
+ $entry .= "<$m->{privateemail}>";
+ } else {
$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
- [commit-womb] gnumaint gm,
Karl Berry <=