gnome/nautilus
gnome/nautilus
1
0
Fork 0
mirror of https://gitlab.gnome.org/GNOME/nautilus synced 2024-11-05 16:04:31 +00:00
Code Issues Projects Releases Packages Wiki Activity
nautilus/check-THANKS.pl
Alexander Larsson 5d2ca6805d Update for release. 
2008-03-11  Alexander Larsson  <alexl@redhat.com>

        * AUTHORS:
        * NEWS:
        * THANKS:
        * check-THANKS.pl:
	Update for release.


svn path=/trunk/; revision=13920
2008-03-10 23:21:35 +00:00

409 lines
12 KiB
Perl
Executable file
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

#!/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;
Reference in a new issue View git blame Copy permalink