mirror of
https://gitlab.gnome.org/GNOME/nautilus
synced 2024-07-04 17:30:47 +00:00
5d2ca6805d
2008-03-11 Alexander Larsson <alexl@redhat.com>
* AUTHORS:
* NEWS:
* THANKS:
* check-THANKS.pl:
Update for release.
svn path=/trunk/; revision=13920
410 lines
12 KiB
Perl
Executable File
410 lines
12 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
||
# -*- Mode: perl; indent-tabs-mode: nil -*-
|
||
|
||
#
|
||
# Nautilus
|
||
#
|
||
# Copyright (C) 2000, 2001 Eazel, Inc.
|
||
#
|
||
# This library is free software; you can redistribute it and/or
|
||
# modify it under the terms of the GNU General Public License as
|
||
# published by the Free Software Foundation; either version 2 of the
|
||
# License, or (at your option) any later version.
|
||
#
|
||
# This library is distributed in the hope that it will be useful,
|
||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||
# General Public License for more details.
|
||
#
|
||
# You should have received a copy of the GNU General Public License
|
||
# along with this library; if not, write to the Free Software
|
||
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||
#
|
||
# Author: Maciej Stachowiak <mjs@eazel.com>
|
||
#
|
||
|
||
# check-THANKS.pl: Checks for users mentioned in one of the ChangeLogs
|
||
# but not in THANKS or AUTHORS; ensure that THANKS and AUTHORS do not
|
||
# overlap.
|
||
|
||
use diagnostics;
|
||
use strict;
|
||
|
||
# Map from alternate names of some users to canonical versions
|
||
|
||
my %name_map =
|
||
(
|
||
"T???=82??=B5ivo Leedj???=A2??=82??=ACrv" => "Tõivo Leedjärv",
|
||
"Tõivo Leedjärv" => "Tõivo Leedjärv",
|
||
"Sanlig adral" => "Sanlig Badral",
|
||
"Rahul Balerao" => "Rahul Bhalerao",
|
||
"Richard Hestilow" => "Rachel Hestilow",
|
||
"Martin Norback" => "Martin Norbäck",
|
||
"Martin Norb??ck" => "Martin Norbäck",
|
||
"Josep Puigdemont" => "Josep Puigdemont Casamajó",
|
||
"Josep Puigdemont i Casamajó" => "Josep Puigdemont Casamajó",
|
||
"?smund Skj?veland" => "Åsmund Skjæveland",
|
||
"Alexander Larsson" => "Alex Larsson",
|
||
"?ygimantas Beru?ka" => "Žygimantas Beručka",
|
||
"Beru?ka" => "Beručka",
|
||
"Carlos Perell?? Mar??n" => "Carlos Perelló Marín",
|
||
"Carlos Perello Marin" => "Carlos Perelló Marín",
|
||
"Carlos Perelló MarÃn" => "Carlos Perelló Marín",
|
||
"Ch4ristian Rose" => "Christian Rose",
|
||
"Danilo ? egan" => "Danilo Šegan",
|
||
"Danilo ?egan" => "Danilo Šegan",
|
||
"Danilo Å egan" => "Danilo Šegan",
|
||
"Darin as Andy" => "Darin Adler",
|
||
"Diego Gonzalez Gonzalez" => "Diego Gonzalez",
|
||
"Diego González" => "Diego Gonzalez",
|
||
"Eskil Olsen" => "Eskil Heyn Olsen",
|
||
"Gustavo Giráldez" => "Gustavo Giráldez",
|
||
"I?aki Larra?aga" => "Inaki Larranaga Murgoitio",
|
||
"Inaki Laranaga Murgoitio" => "Inaki Larranaga Murgoitio",
|
||
"Inaki Larranaga" => "Inaki Larranaga Murgoitio",
|
||
"J. Shane Culpepper" => "J Shane Culpepper",
|
||
"Jesus Bravo Alvarez" => "Jesús Bravo Álvarez",
|
||
"M?tin ?mirov" => "Mətin Əmirov",
|
||
"Michael Engber" => "Mike Engber",
|
||
"Michael K. Fleming" => "Mike Fleming",
|
||
"Pavel Císler" => "Pavel Cisler",
|
||
"Pavel" => "Pavel Cisler",
|
||
"Rebecka Schulman" => "Rebecca Schulman",
|
||
"Robin Slomkowski" => "Robin * Slomkowski",
|
||
"Shane Culpepper" => "J Shane Culpepper",
|
||
"Szabolcs BAN" => "Szabolcs Ban",
|
||
"Takuo KITAME" => "Takuo Kitame",
|
||
"Matic Zgur" => "Matic Žgur",
|
||
"Nelson Benitez" => "Nelson Benítez",
|
||
"arik devens" => "Arik Devens",
|
||
"Samúel Jón Gunnarsson" => "Samuel Jan Gunnarsson",
|
||
"Sam?=BAel J?=B3n Gunnarsson" => "Samuel Jan Gunnarsson",
|
||
"Sam?el J?n Gunnarsson" => "Samuel Jan Gunnarsson",
|
||
"Soeren Sandmann Pedersen" => "Soeren Sandmann",
|
||
"Soren Sandmann" => "Soeren Sandmann",
|
||
"Takeshi AiHANA" => "Takeshi AIHANA",
|
||
"Miguel RodrÃguez Pérez" => "Rodriguez Perez"
|
||
);
|
||
|
||
# Map from alternate email addresses of some users to canonical versions
|
||
|
||
my %email_map =
|
||
(
|
||
'uws+gnome@xs4all.nl' => 'wbolster@gnome.org',
|
||
'wbolster@cvs.gnome.org' => 'wbolster@gnome.org',
|
||
'wbolster@svn.gnome.org' => 'wbolster@gnome.org',
|
||
'randrianiriana@gmaial.com' => 'thierryr@svn.gnome.org',
|
||
'thierry@randrianiriana.org' => 'thierryr@svn.gnome.org',
|
||
'thierryR@svn.gnome.org' => 'thierryr@svn.gnome.org',
|
||
'aihana@gnome.gr.jp' => 'takeshi.aihana@gmail.com',
|
||
'takehsi.aihana@gmail.com' => 'takeshi.aihana@gmail.com',
|
||
'sunil@atc.tcs.com' => 'sunilmohan@fsf.org.in',
|
||
'sunil@atc.tcs.co.in' => 'sunilmohan@fsf.org.in',
|
||
'ssp@localhost.localdomain' => 'sandmann@redhat.com',
|
||
'rozobeh@sharif.edu' => 'roozbeh@farsiweb.info',
|
||
'runa@bengalinux.org' => 'runabh@gmail.com',
|
||
'rajeshkajha@yahoo.com' => 'rranjan@redhat.com',
|
||
'amd@store20.com' => 'plaes@svn.gnome.org',
|
||
'gforcada@svn.gnome.org' => 'gforcada@gnome.org',
|
||
'bpepple@fedoraproject.org' => 'bdpepple@gmail.com',
|
||
'yaihr@gmail.com' => 'yairhr@gmail.com',
|
||
'chyla@buy.pl' => 'chyla@gnome.pl',
|
||
'mail@zbigniew.chyla.pl' => 'chyla@gnome.pl',
|
||
'uid0@tuxfamily.org' => 'zygis@gnome.org',
|
||
'uid0@akl.lt' => 'zygis@gnome.org',
|
||
'sandmann@daimi.au.dk' => 'sandmann@redhat.com',
|
||
'badral@chinggis.com' => 'Badral@openmn.org',
|
||
'badral@users.sf.net' => 'Badral@openmn.org',
|
||
'badral@chinggis.com' => 'Badral@openmn.org',
|
||
'ptvirtan@cc.hut.fi' => 'pauli.virtanen@hut.fi',
|
||
'pauli.virtanen@saunalahti.fi' => 'pauli.virtanen@hut.fi',
|
||
'frolix68@yahoo.gr' => 'nikosx@gmail.com',
|
||
'mdamt@mnots.eu' => 'mdamt@gnome.org',
|
||
'mvd@mylinux.ua' => 'dziumanenko@gmail.com',
|
||
'martin.wehner@epost.de' => 'martin.wehner@gmail.com',
|
||
'josep@imatge-sintetica.com' => 'josep.puigdemont@gmail.com',
|
||
'laca@ireland.sun.com' => 'laca@sun.com',
|
||
'Louise.Miller@ireland.sun.com' => 'louise.miller@sun.com',
|
||
'dooteo@zundan.com' => 'dooteo@euskalgnu.org',
|
||
'doteo@euskalgnu.org' => 'dooteo@euskalgnu.org',
|
||
'ihar.hrachyshka@gmail.com' => 'booxter@lacinka.org',
|
||
'iharh@gnome.org' => 'booxter@lacinka.org',
|
||
'ifelix@svn.gnome.org' => 'ifelix25@gmail.com',
|
||
'hendi@gnome-de.org' => 'hendrikr@gnome.org',
|
||
'dave@ximian.com' => 'dave@novell.com',
|
||
'dcamp@novell.com' => 'dave@novell.com',
|
||
'davidz@redhat.com' => 'david@fubar.dk',
|
||
'dggonz@yahoo.com' => 'diego@pemas.net',
|
||
'cyphra@nano.tecknolabs.com' => 'serrador@openshine.com',
|
||
'dsegan@gmx.net' => 'danilo@gnome.org',
|
||
'cosimoc@svn.gnome.org' => 'cosimoc@gnome.org',
|
||
'chpe@cvs.gnome.org' => 'chpe@gnome.org',
|
||
'chpe@svn.gnome.org' => 'chpe@gnome.org',
|
||
'aflinta@svn.gnome.org' => 'aflinta@gmail.com',
|
||
'peter.ani@hotmail.com' => 'peter.ani@gmail.com',
|
||
'abel@oaka.org' => 'abelcheung@gmail.com',
|
||
'maddog@linux.org.hk' => 'abelcheung@gmail.com',
|
||
'alla@lysator.liu.se' => 'alexl@redhat.com',
|
||
'almer1@dds.nl' => 'almer@gnome.org',
|
||
'andersca@codefactory.se' => 'andersca@gnome.org',
|
||
'andersca@gnu.org' => 'andersca@gnome.org',
|
||
'andy@eazel.com' => 'andy@differnet.com',
|
||
'arik@gnome.org' => 'arik@eazel.com',
|
||
'at@ue-spacy.com' => 'tagoh@gnome.gr.jp',
|
||
'baulig@suse.de' => 'martin@home-of-linux.org',
|
||
'car0969@gamma2.uta.edu' => 'bratsche@gnome.org',
|
||
'carlos@gnome-db.org' => 'carlos@hispalinux.es',
|
||
'cgabriel@softwarelibero.org' => 'cgabriel@cgabriel.org',
|
||
'chief_wanker@eazel.com' => 'eskil@eazel.com',
|
||
'darin@eazel.com' => 'darin@bentspoon.com',
|
||
'dan@eazel.com' => 'd-mueth@uchicago.edu',
|
||
'hp@pobox.com' => 'hp@redhat.com',
|
||
'josh@eazel.com' => 'josh@whitecape.org',
|
||
'jrb@webwynk.net' => 'jrb@redhat.com',
|
||
'jsh@eazel.com' => 'jsh@pixelslut.com',
|
||
'kabalak@gmx.net' => 'kabalak@kabalak.net',
|
||
'kabalak@gtranslator.org' => 'kabalak@kabalak.net',
|
||
'kmaraas@gnu.org' => 'kmaraas@gnome.org',
|
||
'kmaraas@online.no' => 'kmaraas@gnome.org',
|
||
'linux@chrisime.de' => 'chrisime@gnome.org',
|
||
'linuxfan@ionet..net' => 'josh@whitecape.org',
|
||
'linuxfan@ionet.net' => 'josh@whitecape.org',
|
||
'mathieu@gnome.org' => 'mathieu@eazel.com',
|
||
'mathieu@gnu.org' => 'mathieu@eazel.com',
|
||
'mawa@iname.com' => 'mawarkus@gnome.org',
|
||
'mjs@eazel.com' => 'mjs@noisehavoc.org',
|
||
'ramiro@eazel.com' => 'ramiro@fateware.com',
|
||
'raph@gimp.org' => 'raph@acm.org',
|
||
'rslomkow@rslomkow.org' => 'rslomkow@eazel.com',
|
||
'seth@eazel.com' => 'snickell@stanford.edu',
|
||
'sopwith@eazel.com' => 'sopwith@redhat.com',
|
||
'yakk@yakk.net' => 'ian@eazel.com',
|
||
'yakk@yakk.net.au' => 'ian@eazel.com',
|
||
'alexl@cgf.boston.redhat.com' => 'alexl@redhat.com',
|
||
'alexl@redhat.co,' => 'alexl@redhat.com',
|
||
'alexl@redhat' => 'alexl@redhat.com'
|
||
);
|
||
|
||
|
||
# Some ChangeLog lines that carry no credit (incorrect changes that
|
||
# had to be reverted, changes done for someone else, etc.)
|
||
|
||
my %no_credit =
|
||
(
|
||
'2000-09-08 Daniel Egger <egger@suse.de>' => 1,
|
||
'2000-09-06 Daniel Egger <egger@suse.de>' => 1,
|
||
'2001-04-25 Changwoo Ryu <cwryu@debian.org>' => 1,
|
||
);
|
||
|
||
|
||
open CHANGELOGS, "cat `find . -name intl -prune -or -name 'ChangeLog*' -and \! -name '*~' -print`|" or die;
|
||
|
||
my @lines;
|
||
while (<CHANGELOGS>)
|
||
{
|
||
chomp;
|
||
|
||
if (/@/)
|
||
{
|
||
next if $no_credit{$_};
|
||
|
||
if (/^\d\d\d\d-\d\d-\d\d/)
|
||
{
|
||
# Normal style ChangeLog comment
|
||
s/^\d\d\d\d-\d\d-\d\d[ \t]*//;
|
||
}
|
||
elsif (/^(Mon|Tue|Wed|Thu|Fri|Sat|Sun).*\d\d\d\d/)
|
||
{
|
||
# Old style ChangeLog comment
|
||
s/^.*20\d\d\s*//;
|
||
}
|
||
elsif (/^\s+Patch from.+<\S+\@\S+>/i)
|
||
{
|
||
# Body of comment says 'Patch from', followed by name and email.
|
||
s/^\s+Patch from:?\s+//i;
|
||
}
|
||
else
|
||
{
|
||
next; # ignore unknown lines for now
|
||
}
|
||
|
||
my $name = $_;
|
||
|
||
$name =~ s/[ \t]*<.*[\n\r]*$//;
|
||
|
||
$name = $name_map{$name} if $name_map{$name};
|
||
|
||
my $email = $_;
|
||
|
||
$email =~ s/^.*<//;
|
||
$email =~ s/>.*$//;
|
||
$email =~ s/[ \t\n\r]*$//;
|
||
$email =~ s/helixcode/ximian/;
|
||
|
||
$email = $email_map{$email} if $email_map{$email};
|
||
|
||
push @lines, "${name} <${email}>";
|
||
}
|
||
}
|
||
|
||
close CHANGELOGS;
|
||
|
||
my @changelog_people;
|
||
my $last_line = "";
|
||
foreach my $line (sort @lines)
|
||
{
|
||
push @changelog_people, $line unless $line eq $last_line;
|
||
$last_line = $line;
|
||
}
|
||
|
||
open AUTHORS, "AUTHORS" or die;
|
||
|
||
my @authors;
|
||
|
||
while (<AUTHORS>) {
|
||
chomp;
|
||
push @authors, $_;
|
||
}
|
||
|
||
close AUTHORS;
|
||
|
||
open THANKS, "THANKS" or die;
|
||
|
||
my @thanks_people;
|
||
my @non_translation_thanks_people;
|
||
my $in_translations = 0;
|
||
|
||
while (<THANKS>) {
|
||
chomp;
|
||
s/ - .*$//;
|
||
push @thanks_people, $_;
|
||
$in_translations = 1 if /contributed translations/;
|
||
push @non_translation_thanks_people, $_ if !$in_translations;
|
||
}
|
||
|
||
close THANKS;
|
||
|
||
my $found_about_authors = 0;
|
||
my @about_authors;
|
||
|
||
if (open ABOUT, "src/nautilus-window-menus.c")
|
||
{
|
||
while (<ABOUT>)
|
||
{
|
||
if (/const char \*authors/)
|
||
{
|
||
$found_about_authors = 1;
|
||
last;
|
||
}
|
||
}
|
||
|
||
if ($found_about_authors)
|
||
{
|
||
while (<ABOUT>)
|
||
{
|
||
last unless /^\s+\"(.*)\",\s*\n/;
|
||
push @about_authors, $1;
|
||
}
|
||
}
|
||
|
||
close ABOUT;
|
||
}
|
||
|
||
my @uncredited;
|
||
foreach my $person (@changelog_people)
|
||
{
|
||
if (! (grep {$_ eq $person} @thanks_people) &&
|
||
! (grep {$_ eq $person} @authors))
|
||
{
|
||
push @uncredited, $person;
|
||
}
|
||
}
|
||
|
||
my @double_credited;
|
||
foreach my $person (@authors)
|
||
{
|
||
if (grep {$_ eq $person} @non_translation_thanks_people)
|
||
{
|
||
push @double_credited, $person;
|
||
}
|
||
}
|
||
|
||
my @author_names;
|
||
foreach my $person (@authors)
|
||
{
|
||
$person =~ s/\s*<.*//;
|
||
push @author_names, $person;
|
||
}
|
||
|
||
my @not_in_about;
|
||
foreach my $person (@author_names)
|
||
{
|
||
push @not_in_about, $person unless grep {$_ eq $person} @about_authors;
|
||
}
|
||
|
||
my @only_in_about;
|
||
foreach my $person (@about_authors)
|
||
{
|
||
push @only_in_about, $person unless grep {$_ eq $person} @author_names;
|
||
}
|
||
|
||
my $printed = 0;
|
||
|
||
if (@uncredited)
|
||
{
|
||
print "\nThe following people are in the ChangeLog but not credited in THANKS or AUTHORS:\n\n";
|
||
|
||
foreach my $person (@uncredited)
|
||
{
|
||
print "${person}\n";
|
||
}
|
||
|
||
$printed = 1;
|
||
}
|
||
|
||
if (@double_credited)
|
||
{
|
||
print "\nThe following people are listed in both THANKS and AUTHORS:\n\n";
|
||
|
||
foreach my $person (@double_credited)
|
||
{
|
||
print "${person}\n";
|
||
}
|
||
|
||
$printed = 1;
|
||
} else {
|
||
|
||
if (!$found_about_authors)
|
||
{
|
||
print "\nDidn't find authors section in nautilus-window-menus.c\n";
|
||
$printed = 1;
|
||
}
|
||
|
||
if (@not_in_about)
|
||
{
|
||
print "\nThe following people are in AUTHORS but not the about screen:\n\n";
|
||
|
||
foreach my $person (@not_in_about)
|
||
{
|
||
print "${person}\n";
|
||
}
|
||
|
||
$printed = 1;
|
||
}
|
||
|
||
if (@only_in_about)
|
||
{
|
||
print "\nThe following people are in the about screen but not AUTHORS:\n\n";
|
||
|
||
foreach my $person (@only_in_about)
|
||
{
|
||
print "${person}\n";
|
||
}
|
||
|
||
$printed = 1;
|
||
}
|
||
}
|
||
|
||
|
||
print "\n" if $printed;
|