On Fri, Feb 01, 2002 at 07:07:01PM +0100, Josip Rodin wrote:
> 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?)
Yes, on klecker. You can probably still find the results in my
home directory thereupon. Of course, I seem to be behaving like a
human wrecking ball recently, so you may want to test it yourself.
Matt
Attachment:
pgpBWXDdjEXha.pgp
Description: PGP signature