Package: www.debian.org
Version: N/A; reported 2002-01-28
Severity: minor
Tags: patch

The entry for Richard A Nelson on the Project Participants page is
incorrect.  It appears as

A, Richard  <[EMAIL PROTECTED]>

instead of

Nelson, Richard A  <[EMAIL PROTECTED]>

There are similar problems for David D.W. Downey, Gregory J.
Oschwald, and Luca De Vitis.

The following patch fixes all of these problems, and leaves the
rest of the entries unchanged.

--- /org/www.debian.org/cron/scripts_weekly/people/people.pl    Sat Jan  5 
17:27:17 2002
+++ people.pl   Mon Jan 28 09:36:27 2002
@@ -331,22 +331,8 @@ sub canonical_names() {
                #
                # elsif ($maintainer =~ /"?([\w~'-]+?)\s+(.*?)\s*(([vV]an |Di 
|de |Le )?[\w~'-]+),?\s*[IV]*"?\s+<(.+)>\s*/o) {
                #       ($firstname,$middlename,$lastname,$email) = 
($1,$2,$3,$5);
-               elsif ($maintainer =~ /"?(.+?)\s+(([vV][ao]n )?(da |de |Di |Le 
)?[\w~'-]+),?\s*([IV]*|Jr\.?)"?\s+<(.+)>\s*/o) {
-                       ($firstname,$lastname,$email) = ($1,$2,$6);
-               }
-               # Only a single word is given for the name, or something
-               elsif ($maintainer =~ /(.+)?\s+<(.+)>/o) {
-                       $whatever = $1;
-                       $email = $2;
-                       # Check if there's one of those stupid STUPID S T U P I 
D comments within the name
-                       if ($whatever =~ /"?(.+?)\s+(([vV][ao]n )?(da |de |Di 
|Le )?[\w~'-]+),?\s*([IV]*|Jr\.?)"?.*\((.*)\)/o) {
-                               ($firstname,$lastname) = ($1,$2);
-#                              warn "discarded a comment in $whatever\n";
-                       } else {
-                               print "$1 <$2>\n";
-                               die "Unknown maintainer format \$1 = $1 and \$2 
= $2";
-                               # send mail to [EMAIL PROTECTED]
-                       }
+               elsif ($maintainer =~ /"?(.+?)\s+(([vV][ao]n )?(da |de |Di |Le 
)?[\w~'-]+),?\s*([IV]*|Jr\.?)"?(\s+\(.*\))?\s+<(.+)>\s*/o) {
+                       ($firstname,$lastname,$email) = ($1,$2,$7);
                }
                # Only an email address is given
                elsif ($maintainer =~ /(.+)*/o) {

-- System Information
Debian Release: 3.0
Architecture: powerpc
Kernel: Linux catalonia 2.4.16-newpmac #1 Mon Jan 7 20:51:25 EST 2002 ppc
Locale: LANG=C, LC_CTYPE=C

Attachment: pgpm7yQUwuY09.pgp
Description: PGP signature

Reply via email to