Bug#131298: www.debian.org: bad names on Project Participants page
On Mon, Jan 28, 2002 at 09:43:05AM -0800, Matt Kraai wrote:
> 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 webmaster@debian.org
> - }
> + 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) {
Ooh! Ooh! The brevity!
(You tested this?)
--
2. That which causes joy or happiness.
Reply to: