diff options
| author | Gerald Pfeifer <gerald@pfeifer.com> | 2003-11-02 00:02:21 +0000 |
|---|---|---|
| committer | Gerald Pfeifer <gerald@gcc.gnu.org> | 2003-11-02 00:02:21 +0000 |
| commit | 29d274e929badad450220c30c2545e91abc32921 (patch) | |
| tree | 46dd37540e8cf1f75d43facbe2a3a12143e8639c | |
| parent | d234bf6133a6fcf1d3caedd0669a4bbbc2c936ad (diff) | |
| download | gcc-29d274e929badad450220c30c2545e91abc32921.zip gcc-29d274e929badad450220c30c2545e91abc32921.tar.gz gcc-29d274e929badad450220c30c2545e91abc32921.tar.bz2 | |
* maintainer-addresses: New script.
From-SVN: r73185
| -rw-r--r-- | maintainer-scripts/ChangeLog | 4 | ||||
| -rwxr-xr-x | maintainer-scripts/maintainer-addresses | 25 |
2 files changed, 29 insertions, 0 deletions
diff --git a/maintainer-scripts/ChangeLog b/maintainer-scripts/ChangeLog index 744a3c8..c67a040 100644 --- a/maintainer-scripts/ChangeLog +++ b/maintainer-scripts/ChangeLog @@ -1,3 +1,7 @@ +2003-11-02 Gerald Pfeifer <gerald@pfeifer.com> + + * maintainer-addresses: New script. + 2003-10-24 Kelley Cook <kcook@gcc.gnu.org> * gcc_release (build_sources): Use --enable-generated-files-in-srcdir. diff --git a/maintainer-scripts/maintainer-addresses b/maintainer-scripts/maintainer-addresses new file mode 100755 index 0000000..e57f2d5 --- /dev/null +++ b/maintainer-scripts/maintainer-addresses @@ -0,0 +1,25 @@ +#! /usr/bin/perl -w -T +# +# Extract all maintainers' addresses from the GCC MAINTAINERS file, only +# skipping those addresses specified in $OMIT. +# +# Copyright (c) 2003 Free Software Foundation. +# +# Written by Gerald Pfeifer <gerald@pfeifer.com>, June 2003/October 2003 +# +# This script is Free Software, and it can be copied, distributed and +# modified as defined in the GNU General Public License. A copy of +# its license can be downloaded from http://www.gnu.org/copyleft/gpl.html + +my $OMIT='rms@gnu.org|config-patches@gnu.org'; + +( @ARGV == 1 && -e $ARGV[0] ) || die "usage: $0 MAINTAINERS"; + +while( <> ) { + chomp; + + if( /([\w\d.+-]+@[\w\d.-]+)/ ) { + my $addr=$1; + printf $addr."\n" if( not $addr =~ /$OMIT/ ); + } +} |