On Wed, Jan 29, 2003 at 11:04:54AM +0100, Josip Rodin wrote:
> On Wed, Jan 29, 2003 at 01:56:30PM +0900, Tomohiro KUBOTA wrote:
> > You know, some Japanese people write names in their native order,
> > "Family Given", and such expressions exist in db.debian.org database.
> >
> > ... but I checked the script
> > (klecker:/org/www.debian.org/cron/people_scripts/people.pl) and
> > I couldn't find additional handlers.
>
> On that note, there should indeed be one such handler -- to make cn, sn ldap
> fields preferred somehow, and one other handler -- to understand LASTNAME
> Firstname and Firstname LASTNAME properly. Anyone care to write a patch? :)
The following patch implements the latter handler.
Matt
--- people.pl.orig Thu Jan 30 08:06:12 2003
+++ people.pl Thu Jan 30 07:59:51 2003
@@ -172,9 +172,6 @@
elsif ($maintainer =~ /Javier Fernandez-Sanguino
Pen~a\s+<(.+)>/o) {
$lastname = 'Fernandez-Sanguino Peña';
$firstname = 'Javier'; $email = $1;
}
- elsif ($maintainer =~ /KELEMEN Peter <(.+)>/io) {
- $lastname = 'Kelemen'; $firstname = 'Peter'; $email =
$1;
- }
elsif ($maintainer =~ /J\.H\.M\.? Dassen \(Ray\) <(.+)>/o) {
$lastname = 'Dassen'; $firstname = 'Ray J.H.M.'; $email
= $1;
}
@@ -232,66 +229,18 @@
elsif ($maintainer =~ /Chris(topher)? L\.? Cheney <(.+)>/) {
$lastname = 'Cheney'; $firstname = 'Christopher L.';
$email = $2;
}
- elsif ($maintainer =~ /OHASHI Akira <(.+)>/) {
- $lastname = 'Ohashi'; $firstname = 'Akira'; $email = $1;
- }
- elsif ($maintainer =~ /GOTO Masanori <(.+)>/) {
- $lastname = 'Goto'; $firstname = 'Masanori'; $email =
$1;
- }
- elsif ($maintainer =~ /SZALAY Attila <(.+)>/) {
- $lastname = 'Szalay'; $firstname = 'Attila'; $email =
$1;
- }
elsif ($maintainer =~ /Sylvain LE GALL <(.+)>/) {
$lastname = 'Le Gall'; $firstname = 'Sylvain'; $email =
$1;
}
- elsif ($maintainer =~ /RISKO Gergely <(.+)>/) {
- $lastname = 'Risko'; $firstname = 'Gergely'; $email =
$1;
- }
- elsif ($maintainer =~ /PASZTOR Gyorgy <(.+)>/) {
- $lastname = 'Pasztor'; $firstname = 'Gyorgy'; $email =
$1;
- }
- elsif ($maintainer =~ /Atsushi KAMOSHIDA <(.+)>/) {
- $lastname = 'Kamoshida'; $firstname = 'Atsushi'; $email
= $1;
- }
- elsif ($maintainer =~ /Takao KAWAMURA <(.+)>/) {
- $lastname = 'Kawamura'; $firstname = 'Takao'; $email =
$1;
- }
- elsif ($maintainer =~ /Takuo KITAME <(.+)>/) {
- $lastname = 'Kitame'; $firstname = 'Takuo'; $email = $1;
- }
- elsif ($maintainer =~ /Atsuhito KOHDA <(.+)>/) {
- $lastname = 'Kohda'; $firstname = 'Atsuhito'; $email =
$1;
- }
- elsif ($maintainer =~ /SEKIDO Koichi <(.+)>/) {
- $lastname = 'Sekido'; $firstname = 'Koichi'; $email =
$1;
- }
- elsif ($maintainer =~ /Tomohiro KUBOTA <(.+)>/) {
- $lastname = 'Kubota'; $firstname = 'Tomohiro'; $email =
$1;
- }
elsif ($maintainer =~ /A Lee <(.+)>/) {
$lastname = 'Lee'; $firstname = 'Ho-seok'; $email = $1;
}
- elsif ($maintainer =~ /Julien LEMOINE <(.+)>/) {
- $lastname = 'Lemoine'; $firstname = 'Julien'; $email =
$1;
- }
- elsif ($maintainer =~ /OHURA Makoto <(.+)>/) {
- $lastname = 'Ohura'; $firstname = 'Makoto'; $email = $1;
- }
- elsif ($maintainer =~ /A Menucc1? <(.+)>/) {
- $lastname = 'Menucci'; $firstname = 'Andrea'; $email =
$1;
+ elsif ($maintainer =~ /A Mennucc1? <(.+)>/) {
+ $lastname = 'Mennucci'; $firstname = 'Andrea'; $email =
$1;
}
elsif ($maintainer =~ /Abraham vd Merwe <(.+)>/) {
$lastname = 'van der Merwe'; $firstname = 'Abraham';
$email = $1;
}
- elsif ($maintainer =~ /ISHIKAWA Mutsumi <(.+)>/) {
- $lastname = 'Ishikawa'; $firstname = 'Mutsumi'; $email
= $1;
- }
- elsif ($maintainer =~ /Shuichi OONO <(.+)>/) {
- $lastname = 'Oono'; $firstname = 'Shuichi'; $email = $1;
- }
- elsif ($maintainer =~ /Susumu OSAWA <(.+)>/) {
- $lastname = 'Osawa'; $firstname = 'Susumu'; $email = $1;
- }
elsif ($maintainer =~ /Goedson Teixeira Paixao <(.+)>/) {
$lastname = 'Teixeira Paixao'; $firstname = 'Goedson';
$email = $1;
}
@@ -301,35 +250,17 @@
elsif ($maintainer =~ /Manuel Estrada Sainz <(.+)>/) {
$lastname = 'Estrada Sainz'; $firstname = 'Manuel';
$email = $1;
}
- elsif ($maintainer =~ /NOSHIRO Shigeo <(.+)>/) {
- $lastname = 'Noshiro'; $firstname = 'Shigeo'; $email =
$1;
- }
elsif ($maintainer =~ /Roberto Suarez Soto <(.+)>/) {
$lastname = 'Suarez Soto'; $firstname = 'Roberto';
$email = $1;
}
elsif ($maintainer =~ /JP Sugarbroad <(.+)>/) {
$lastname = 'Sugarbroad'; $firstname = 'Jean-Philippe';
$email = $1;
}
- elsif ($maintainer =~ /Tamas SZERB <(.+)>/) {
- $lastname = 'Szerb'; $firstname = 'Tamas'; $email = $1;
- }
- elsif ($maintainer =~ /Akira TAGOH <(.+)>/) {
- $lastname = 'Tagoh'; $firstname = 'Akira'; $email = $1;
+ elsif ($maintainer =~ /W\. Borgert <(.+)>/) {
+ $lastname = 'Borgert'; $firstname = 'W.'; $email = $1;
}
- elsif ($maintainer =~ /NOKUBI Takatsugu <(.+)>/) {
- $lastname = 'Nokubi'; $firstname = 'Takatsugu'; $email
= $1;
- }
- elsif ($maintainer =~ /UNO Takeshi <(.+)>/) {
- $lastname = 'Uno'; $firstname = 'Takeshi'; $email = $1;
- }
- elsif ($maintainer =~ /Fumitoshi UKAI <(.+)>/) {
- $lastname = 'Ukai'; $firstname = 'Fumitoshi'; $email =
$1;
- }
- elsif ($maintainer =~ /ARAKI Yasuhiro <(.+)>/) {
- $lastname = 'Araki'; $firstname = 'Yasuhiro'; $email =
$1;
- }
- elsif ($maintainer =~ /Taku YASUI <(.+)>/) {
- $lastname = 'Yasui'; $firstname = 'Taku'; $email = $1;
+ elsif ($maintainer =~ /Hatta Shuzo <(.+)>/) {
+ $lastname = 'Hatta'; $firstname = 'Shuzo'; $email = $1;
}
#
@@ -338,6 +269,12 @@
# the latest insane regexp courtesy of Matt Kraai
elsif ($maintainer =~ /"?(.+?)\s+(([vV][ao]n )?(da |der? |Di
|Le |Dal )?[\w~'&;#-]+),?\s*([IV]*|Jr\.?)"?(\s+\(.*\))?\s+<(.+)>\s*/o) {
($firstname,$lastname,$email) = ($1,$2,$7);
+ if (uc($firstname) eq $firstname) {
+ ($firstname,$lastname) =
($lastname,ucfirst(lc($firstname)));
+ }
+ elsif (uc($lastname) eq $lastname) {
+ $lastname = ucfirst(lc($lastname));
+ }
}
# elsif ($maintainer =~ /"?([\w~'-]+?)\s+(.*?)\s*(([vV]an |Di
|de |Le )?[\w~'-]+),?\s*[IV]*"?\s+<(.+)>\s*/o) {
# ($firstname,$middlename,$lastname,$email) =
($1,$2,$3,$5);
