Hi, Le 04/06/2013 07:24, Paul Wise a écrit : > I think the plan is to delete this page entirely but in case we want > to keep it, I've attached a patch that should get rid of all possible > further complaints from Tae Wong. Updated patch handed via IRC by Paul. Regards David
From 7d164d7cec5abaec3eccc98afd1d8505ce475716 Mon Sep 17 00:00:00 2001
From: Paul Wise <pabs@debian.org>
Date: Tue, 4 Jun 2013 19:22:50 +0800
Subject: [PATCH] Improve Maintainer handling and detection of teams.
---
people_scripts/people.pl | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
mode change 100755 => 100644 people_scripts/people.pl
diff --git a/people_scripts/people.pl b/people_scripts/people.pl
old mode 100755
new mode 100644
index ce138bc..4ccca40
--- a/people_scripts/people.pl
+++ b/people_scripts/people.pl
@@ -12,15 +12,9 @@ use strict;
my ($firstname, $lastname, $email, $pname);
my (%People, %package, @nameslist, , $names, $file);
my @special_maintainer = (
- "Debian QA Group",
- "Debian Policy List",
- "Dpkg Development",
"Dynamic DNS Tools and Services",
- "Cdbs Hackers",
- "Grub-Devel",
- "Debian GNU/kFreeBSD",
);
-my $special_maintainer_regex = qr(.*? (?:[Mm]aintainers|[Tt]eam|[Gg]roup|[Dd]evelopers));
+my $special_maintainer_regex = qr((?:^(?:Debian |[Tt]eam|PKG|Pkg|pkg|[Pp]ackage|[Mm]aintainers?).*|.*?[- ](?:[Mm]aintainers?|[Tt]eam|[Gg]roup|[Dd]evelopers|[Dd]evel|[Dd]evelopment|[Hh]ackers|[Cc]rew|[Ff]orce|[Pp]ackager?s|[Pp]roject|[Pp]arty|[Rr]esearch|for Debian|[Dd]iscussion|[Ll]ist|L10N|GmbH|Inc\.?)));
my $quality_assurance = "http://qa.debian.org/developer.php?login=";;
# put the auxilliary functions first to shut up perl >= 5.6
@@ -233,7 +227,10 @@ sub process_name {
}
$maintainer = from_utf8_or_iso88591_to_sgml($maintainer);
# Take care of the annoying cases and exceptions and overrides and stuff
- if ($maintainer =~ /($special_maintainer_regex)\s+<(.+)>/o) {
+ if ($maintainer =~ /Alexander List.*<(.+)>/o) {
+ $lastname = 'List'; $firstname = 'Alexander'; $email = $1;
+ }
+ elsif ($maintainer =~ /($special_maintainer_regex)\s+<(.+)>/o) {
$lastname = $1; $firstname = ''; $email = $2;
}
elsif ($maintainer =~ /Debian Quality Assurance.*<(.+)>/o) {
@@ -398,6 +395,9 @@ sub process_name {
sub canonical_names {
PACK: foreach my $pack (keys %package) {
my $maintainer = $package{$pack}{maintainer};
+ if ($maintainer =~ /Maintainer: (.+)/) {
+ $maintainer = $1;
+ }
my ($lastname, $firstname, $email) = process_name($maintainer);
--
1.8.3.1
Attachment:
signature.asc
Description: OpenPGP digital signature