lk-changelog.pl 0.62

[Matthias Andree]

This is a semi-automatic announcement.

lk-changelog.pl aka. shortlog version 0.62 has been released.
The changes are listed at the end of the script below.

You can always download this script and GPG signatures from
http://mandree.home.pages.de/linux/kernel/

Note that your mailer must be MIME-capable to save this mail properly,
because it is in the "quoted-printable" encoding.

= <- if you see just an equality sign, but no "3D", your mailer is fine.
= <- if you see 3D on this line, then upgrade your mailer or pipe this mail
= <- into metamail.

-- 
A sh script on behalf of Matthias Andree
-------------------------------------------------------------------------
Changes since last release:

----------------------------
revision 0.62
date: 2002/12/27 16:59:28;  author: emma;  state: Exp;  lines: +14 -1
Another ten addresses sent by Vitezslav Samel.
----------------------------
revision 0.61
date: 2002/12/14 14:28:49;  author: emma;  state: Exp;  lines: +5 -2
Bjorn Helgaas only uses the transscribed version of his name himself.
----------------------------
revision 0.60
date: 2002/12/13 14:51:35;  author: emma;  state: Exp;  lines: +18 -1
Next dozen of addresses digged out by Vita.
----------------------------
revision 0.59
date: 2002/12/11 12:11:51;  author: emma;  state: Exp;  lines: +11 -4
Workaround: strip trailing [tag] from mail addresses, reported by Marcel
    Holtmann.
Add some new addresses.
=============================================================================
-------------------------------------------------------------------------
#! /usr/bin/perl -wT

# This Perl script is meant to simplify/beautify BK ChangeLogs for the linux
# kernel.
#
# (C) Copyright 2002 by Matthias Andree <[e-mail]>
#			Marcus Alanen <[e-mail]>
#			Tomas Szepe <[e-mail]>
#			Vitezslav Samel <[e-mail]>
#
# $Id: lk-changelog.pl,v 0.62 2002/12/27 16:59:28 emma Exp $
# ----------------------------------------------------------------------
# Distribution of this script is permitted under the terms of the
# GNU General Public License (GNU GPL) v2.
# ----------------------------------------------------------------------

# This program expects its input in the following format:
# (E-Mail Addresses MUST NOT bear leading whitespace!)
#
# <[e-mail]>
#	changelog text
#	more changelog text
# <[e-mail]>
#	yet another changelog
# <[e-mail]>
#	changelog #3
#	more lines
#
# and discards all changelog lines but the first after an email address,
# and groups and sorts the entries by email address:
#
# [e-mail]:
#	changelog #3
# [e-mail]
#	changelog text
#	yet another changelog

require 5.005;
use strict;

use Carp;
use Getopt::Long;
use IO::File;
eval 'use Pod::Usage;';
if ($@) {
  eval 'sub pod2usage {
    print STDERR "Usage information would be presented here if you had Pod::Usage installed.\n"
      . "Try: perl -MCPAN -e \'install Pod::Usage\'\nAbort.\n";
    exit 2;
  }';
}
use Text::ParseWords;
use Text::Tabs;
use Text::Wrap;

# --------------------------------------------------------------------
# customize the following line to change the indentation of the change
# lines, $indent1 is used for the first line of an entry, $indent for
# all subsequent lines. $indent is auto-generated from $indent1.
my $indent1 = "  o ";
my $indent  = " " x length($indent1);
# change this to enable some debugging stuff:
my $debug = 0;
# --------------------------------------------------------------------

# the key is the email address in ALL LOWER CAPS!
# the value is the real name of the person
#
# Unless otherwise noted, the addresses below have been obtained using
# lbdb.
my %addresses = (
'[e-mail]' => 'Abraham van der Merwe',
'[e-mail]' => 'Albert Cranford',
'[e-mail]' => 'Georg Acher',
'[e-mail]' => 'Javier Achirica',
'[e-mail]' => 'Arnaldo Carvalho de Melo',
'[e-mail]' => 'Arnaldo Carvalho de Melo',
'[e-mail]' => 'Arnaldo Carvalho de Melo',
'[e-mail]' => 'Adam Radford', # google
'[e-mail]' => 'Adam Radford', # google
'[e-mail]' => 'Adam J. Richter',
'[e-mail]' => 'Andreas Dilger',
'[e-mail]' => 'Andries E. Brouwer',
'agrover@acpi3.(none)' => 'Andy Grover',
'[e-mail]' => 'Andy Grover', # guessed
'[e-mail]' => 'Andy Grover',
'[e-mail]' => 'Andy Grover',
'[e-mail]' => 'Art Haas',
'[e-mail]' => 'Art Haas',
'[e-mail]' => 'Anton Altaparmakov',
'[e-mail]' => 'Anton Altaparmakov',
'[e-mail]' => 'Anton Altaparmakov',
'[e-mail]' => 'Ani Joshi',
'[e-mail]' => 'Andi Kleen',
'[e-mail]' => 'Andi Kleen',
'[e-mail]' => 'Andrew Morton',
'[e-mail]' => 'Andrew Morton',
'[e-mail]' => 'Adam Kropelin', # lbdb
'[e-mail]' => 'Alan Cox',
'[e-mail]' => 'Alan Cox',
'[e-mail]' => 'Alan Cox',
'[e-mail]' => 'Alex Williamson', # lbdb
'[e-mail]' => 'Alex Williamson', # google
'[e-mail]' => 'Alexander Riesen',
'[e-mail]' => 'Alfredo Sanjuán',
'[e-mail]' => 'Adam Belay',
'[e-mail]' => 'Alberto Munoz',
'[e-mail]' => 'Erik Andersen',
'[e-mail]' => 'Anders Gustafsson',
'[e-mail]' => 'Mike Anderson', # lbdb
'[e-mail]' => 'Andrea Arcangeli',
'[e-mail]' => 'Andries E. Brouwer',
'[e-mail]' => 'Andy Adamson',
'[e-mail]' => 'Angus Sawyer',
'[e-mail]' => 'Andrzej Krzysztofowicz',
'[e-mail]' => 'Anton Blanchard',
'[e-mail]' => 'Aristeu Sergio Rozanski Filho',
'[e-mail]' => 'Arjan van de Ven',
'[e-mail]' => 'Arjan van de Ven',
'[e-mail]' => 'Arnd Bergmann',
'[e-mail]' => 'Asit K. Mallick', # by Kristian Peters
'[e-mail]' => 'Jens Axboe', # guessed
'[e-mail]' => 'Jens Axboe',
'[e-mail]' => 'Jens Axboe',
'[e-mail]' => 'Brent Baccala',
'[e-mail]' => 'Duncan Sands',
'[e-mail]' => 'Dario Ballabio',
'[e-mail]' => 'D. J. Barrow',
'[e-mail]' => 'Barry K. Nathan', # lbdb
'[e-mail]' => 'Bart De Schuymer',
'[e-mail]' => 'Ben Collins',
'[e-mail]' => 'Benjamin LaHaise',
'[e-mail]' => 'Benjamin LaHaise',
'[e-mail]' => 'Benjamin LaHaise', # guessed
'[e-mail]' => 'Bart De Schuymer',
'[e-mail]' => 'Brian Beattie', # from david.nelson
'[e-mail]' => 'Benjamin Herrenschmidt',
'[e-mail]' => 'Ben Fennema',
'[e-mail]' => 'Brian Gerst',
'[e-mail]' => 'Brad Hards',
'[e-mail]' => 'Bhavesh P. Davda',
'[e-mail]' => 'Brad Heilbrun', # by himself
'[e-mail]' => 'Björn Andersson', # google, guessed ö
'[e-mail]' => 'Bjorn Wesen',
'[e-mail]' => 'Bjorn Helgaas',
'[e-mail]' => 'Blake Matheny', # google
'[e-mail]' => 'Boris Itkis', # by Kristian Peters
'[e-mail]' => 'Peter Braam',
'[e-mail]' => 'Brett Pemberton',
'[e-mail]' => 'Brian Hall', # google
'[e-mail]' => 'Ken Brownfield',
'[e-mail]' => 'Adrian Bunk',
'[e-mail]' => 'Lennert Buytenhek',
'[e-mail]' => 'Björn A. Zeeb', # lbdb
'[e-mail]' => 'Carl-Daniel Hailfinger',
'[e-mail]' => 'Carl-Daniel Hailfinger', # himself
'[e-mail]' => 'Russell Cattelan', # google
'[e-mail]' => 'Chris Caputo',
'[e-mail]' => 'Chuck Lever',
'[e-mail]' => 'Celso González', # google
'[e-mail]' => 'Christopher Hoover', # by Kristian Peters
'[e-mail]' => 'Charles White',
'[e-mail]' => 'Samuel S. Chessman',
'[e-mail]' => 'Chris Wilson',
'[e-mail]' => 'Chris Wright',
'[e-mail]' => 'Christer Weinigel', # from shortlog
'[e-mail]' => 'Christopher Leech',
'[e-mail]' => 'Jochen Karrer', # from shortlog
'[e-mail]' => 'Craig Kulesa',
'[e-mail]' => 'Colin Gibbs',
'[e-mail]' => 'Matthew Dobson',
'[e-mail]' => 'Cort Dougan',
'[e-mail]' => 'Chris Hanson',
'[e-mail]' => 'Christoph Rohland',
'[e-mail]' => 'Charles-Edouard Ruault',
'[e-mail]' => 'Chad N. Tindel',
'[e-mail]' => 'Christopher Yeoh',
'[e-mail]' => 'Dan Aloni',
'[e-mail]' => 'Daisy Chang', # from shortlog
'[e-mail]' => 'Martin Dalecki',
'[e-mail]' => 'Martin Dalecki',
'[e-mail]' => 'Dan Zink',
'[e-mail]' => 'Daniel Jacobowitz',
'[e-mail]' => 'Dana Lacoste',
'[e-mail]' => 'Dan Cox', # some CREDITS patch found by google
'[e-mail]' => 'Dave Jones',
'[e-mail]' => 'Dave Jones',
'[e-mail]' => 'David S. Miller',
'[e-mail]' => 'David S. Miller',
'[e-mail]' => 'David S. Miller',
'[e-mail]' => 'David S. Miller', # guessed
'[e-mail]' => 'David S. Miller',
'[e-mail]' => 'David Brownell',
'[e-mail]' => 'David Nelson',
'[e-mail]' => 'David Gibson',
'[e-mail]' => 'David Jeffery',
'[e-mail]' => 'Davide Libenzi',
'[e-mail]' => 'David Mosberger',
'[e-mail]' => 'David Mosberger',
'[e-mail]' => 'David Mosberger',
'[e-mail]' => 'David Mosberger',
'[e-mail]' => 'David Schwartz', # google
'[e-mail]' => 'David Brownell',
'[e-mail]' => 'Dan Streetman',
'[e-mail]' => 'Dan Streetman',
'[e-mail]' => 'Jeff DeFouw',
'[e-mail]' => "Thomas 'Dent' Mirlacher",
'[e-mail]' => 'Dominik Brodowski',
'[e-mail]' => 'Martin Devera',
'[e-mail]' => 'David Gibson',
'[e-mail]' => 'David Hinds', # google
'[e-mail]' => 'Dave Hollis',
'[e-mail]' => 'David Howells',
'[e-mail]' => 'David Howells',
'[e-mail]' => 'Dipankar Sarma',
'[e-mail]' => 'Dirk Uffmann',
'[e-mail]' => 'Doug Ledford',
'[e-mail]' => 'Doug Ledford',
'[e-mail]' => 'Doug Ledford',
'[e-mail]' => 'Doug Ledford',
'[e-mail]' => 'Dave McCracken',
'[e-mail]' => 'Denis Oliver Kropp',
'[e-mail]' => 'Douglas Gilbert',
'[e-mail]' => 'Bryan B. Whitehead', # google
'[e-mail]' => 'Daniel Jacobowitz',
'[e-mail]' => 'Daniel Jacobowitz',
'[e-mail]' => 'Deepak Saxena',
'[e-mail]' => 'David Woodhouse',
'[e-mail]' => 'David Woodhouse',
'[e-mail]' => 'Massimo Dal Zotto',
'[e-mail]' => 'Eric Biederman',
'[e-mail]' => 'Eric Brower',
'[e-mail]' => 'Eric Brower',
'[e-mail]' => 'Eddie C. Dost',
'[e-mail]' => 'Ed Vance',
'[e-mail]' => 'Edward Peng',
'[e-mail]' => 'Erich Focht',
'[e-mail]' => 'Rolf Eike Beer',
'[e-mail]' => 'Steven Cole',
'[e-mail]' => 'Dave Engebretsen',
'[e-mail]' => 'Stéphane Eranian',
'[e-mail]' => 'Stéphane Eranian',
'[e-mail]' => 'Erik Habbinga',
'[e-mail]' => 'Eyal Lebedinsky', # lbdb
'[e-mail]' => 'Flávio Bruno Leitner', # google
'[e-mail]' => 'Frank Davis',
'[e-mail]' => 'Felipe Damasio', # by self (did not ask to include the W.)
'[e-mail]' => 'Fenghua Yu', # google
'[e-mail]' => 'Bakonyi Ferenc',
'[e-mail]' => 'Jürgen E. Fischer',
'[e-mail]' => 'Martin J. Bligh',
'[e-mail]' => 'Florian Lohoff',
'[e-mail]' => 'Florian Thiel', # from shortlog
'[e-mail]' => 'Erich Focht',
'[e-mail]' => 'Rolf Fokkens',
'[e-mail]' => 'Franz Sirl',
'[e-mail]' => 'Franz Sirl',
'[e-mail]' => 'Jay Vosburgh',
'[e-mail]' => 'Florian Weimer', # lbdb
'[e-mail]' => 'Frank Zago', # google
'[e-mail]' => 'Ganesh Varadarajan',
'[e-mail]' => 'Ganesh Varadarajan',
'[e-mail]' => 'Ganesh Varadarajan',
'[e-mail]' => 'Kurt Garloff',
'[e-mail]' => 'Geert Uytterhoeven',
'[e-mail]' => 'George Anzinger',
'[e-mail]' => 'Greg Ungerer',
'[e-mail]' => 'Ghozlane Toumi',
'[e-mail]' => 'Justin T. Gibbs',
'[e-mail]' => 'Justin T. Gibbs',
'[e-mail]' => 'Dr. David Alan Gilbert',
'[e-mail]' => 'Guennadi Liakhovetski',
'[e-mail]' => 'Geoffrey Lee', # lbdb
'[e-mail]' => 'Greg Banks',
'[e-mail]' => 'Go Taniguchi',
'[e-mail]' => 'Patricia Guaghen',
'[e-mail]' => 'Goto Masanori', # from shortlog
'[e-mail]' => 'Cory Watson',
'[e-mail]' => 'Ben Greear',
'[e-mail]' => 'Oleg Drokin',
'[e-mail]' => 'Oleg Drokin',
'[e-mail]' => 'Greg Kroah-Hartman',
'[e-mail]' => 'Grant Grundler',
'[e-mail]' => 'Guillermo S. Romero',
'[e-mail]' => 'Ghozlane Toumi',
'[e-mail]' => 'Jamal Hadi Salim',
'[e-mail]' => 'Hanna Linder',
'[e-mail]' => 'Dave Hansen',
'[e-mail]' => 'Christoph Hellwig',
'[e-mail]' => 'Christoph Hellwig',
'[e-mail]' => 'Christoph Hellwig',
'[e-mail]' => 'Christoph Hellwig',
'[e-mail]' => 'Christoph Hellwig',
'[e-mail]' => 'Christoph Hellwig',
'[e-mail]' => 'Christoph Hellwig',
'[e-mail]' => 'Christoph Hellwig', # by Kristian Peters
'[e-mail]' => 'Christoph Hellwig',
'[e-mail]' => 'Bjorn Helgaas', # doesn't want ø/å
'[e-mail]' => 'Henning Meier-Geinitz',
'[e-mail]' => 'Henrique Gobbi',
'[e-mail]' => 'Henrique Gobbi',
'[e-mail]' => 'David Gibson',
'[e-mail]' => 'Hirofumi Ogawa', # corrected by himself
'[e-mail]' => 'Colin Slater',
'[e-mail]' => 'H. Peter Anvin',
'[e-mail]' => 'Hugh Dickins',
'[e-mail]' => 'Thiemo Seufer', # google
'[e-mail]' =>  'Adams IT Services',
'[e-mail]' => 'Ivan Kokshaysky',
'[e-mail]' => 'Ion Badulescu',
'[e-mail]' => 'Ishan O. Jayawardena',
'[e-mail]' => 'Ingo Rohlfs',
'[e-mail]' => 'Ivan Gyurdiev',
'[e-mail]' => 'Jan Kara',
'[e-mail]' => 'Jack Hammer',
'[e-mail]' => 'Jan Harkes',
'[e-mail]' => 'Jakob Kemi',
'[e-mail]' => 'J. A. Magallon',
'[e-mail]' => 'James Bottomley',
'[e-mail]' => 'James Mayer',
'[e-mail]' => 'James McMechan',
'[e-mail]' => 'Jamey Hicks',
'[e-mail]' => 'Jamey Hicks',
'[e-mail]' => 'Jani Monoses',
'[e-mail]' => 'Jani Monoses',
'[e-mail]' => 'Julien Blache',
'[e-mail]' => 'Jan-Benedict Glaw',
'[e-mail]' => 'James Blackwell',
'[e-mail]' => 'David Ruggiero',
'[e-mail]' => 'Jeff Dike',
'[e-mail]' => 'Jeff Dike',
'[e-mail]' => 'Jeff Dike',
'[e-mail]' => 'David Ruggiero',
'[e-mail]' => 'Thomas Hood',
'[e-mail]' => 'Jeb J. Cramer',
'[e-mail]' => 'Jeff Sutherland', # lbdb
'jejb@mulgrave.(none)' => 'James Bottomley', # from shortlog
'[e-mail]' => 'James Bottomley',
'[e-mail]' => 'Jenna S. Hall', # google
'[e-mail]' => 'Jes Sorensen',
'[e-mail]' => 'Jes Sorensen',
'[e-mail]' => 'Jeff Garzik',
'[e-mail]' => 'Jeff Garzik',
'[e-mail]' => 'Jeff Garzik',
'[e-mail]' => 'Jeff Garzik',
'[e-mail]' => 'Jeff Garzik',
'[e-mail]' => 'Jeff Garzik',
'[e-mail]' => 'Jon Grimm',
'[e-mail]' => 'Jon Grimm', # google
'[e-mail]' => 'Jon Grimm', # google
'[e-mail]' => 'Jon Grimm', # google
'[e-mail]' => 'Jack Hammer',
'[e-mail]' => 'James Morris',
'[e-mail]' => 'Jochen Suckfuell',
'[e-mail]' => 'Jochen Hein',
'[e-mail]' => 'Joe Burks',
'[e-mail]' => 'Johann Deneux',
'[e-mail]' => 'Johannes Erdfelt',
'[e-mail]' => 'John Clemens',
'[e-mail]' => 'John Kim',
'[e-mail]' => 'Evgeniy Polyakov',
'[e-mail]' => 'John Stultz',
'[e-mail]' => 'Josef Siemes',
'[e-mail]' => 'James Simmons',
'[e-mail]' => 'James Simmons',
'jsimmons@kozmo.(none)' => 'James Simmons',
'[e-mail]' => 'James Simmons',
'[e-mail]' => 'James Simmons',
'[e-mail]' => 'John Marvin',
'[e-mail]' => 'Jean Tourrilhes',
'[e-mail]' => 'Jean Tourrilhes',
'[e-mail]' => 'John Tyner',
'[e-mail]' => 'Jun Nakajima',
'[e-mail]' => 'J.I. Lee',
'[e-mail]' => 'Jonathan Woithe',
'[e-mail]' => 'Kimio Suganuma',
'[e-mail]' => 'Karol Kasprzak', # by Kristian Peters
'[e-mail]' => 'Patrick McHardy',
'[e-mail]' => 'Kai Germaschewski',
'[e-mail]' => 'Kai Makisara',
'[e-mail]' => 'Kai Reichert',
'[e-mail]' => 'Kai Germaschewski',
'[e-mail]' => 'Kai Germaschewski',
'[e-mail]' => 'Kanoj Sarcar', # sent by Arnaldo Carvalho de Melo
'[e-mail]' => 'Kanoj Sarcar',
'[e-mail]' => 'Keith Owens',
'[e-mail]' => 'Keith Owens', # sent by himself
'[e-mail]' => 'Kasper Dupont',
'[e-mail]' => 'Keith Underwood',
'[e-mail]' => 'Kenneth W. Chen',
'[e-mail]' => 'Kent Yoder',
'[e-mail]' => 'Khalid Aziz',
'[e-mail]' => 'Khalid Aziz',
'[e-mail]' => 'Krzysztof Halasa',
'[e-mail]' => 'Ravikiran G. Thirumalai',
'[e-mail]' => 'Andras Kis-Szabo', # google (netfilter-ext HOWTO)
'[e-mail]' => 'Karsten Keil',
'[e-mail]' => 'Kendrick M. Smith',
'[e-mail]' => 'Erik Inge Bolsø',
'[e-mail]' => 'Jun Komuro', # google
'[e-mail]' => 'Gerd Knorr',
'[e-mail]' => 'Gerd Knorr',
'[e-mail]' => 'Kuba Ober',
'[e-mail]' => 'Robert Kuebel',
'[e-mail]' => 'Alexey Kuznetsov',
'[e-mail]' => 'Alexey Kuznetsov',
'[e-mail]' => 'Ladislav Michl',
'[e-mail]' => 'Harald Welte',
'[e-mail]' => 'Laurent Latil',
'[e-mail]' => 'Lawrence Walton',
'[e-mail]' => 'Luca Barbieri',
'[e-mail]' => 'Richard Russon',
'[e-mail]' => 'Lee Nash', # lbdb
'[e-mail]' => 'Leigh Brown', # lbdb
'[e-mail]' => 'John Levon',
'[e-mail]' => 'Dominik Brodowski',
'[e-mail]' => 'Lionel Bouton',
'[e-mail]' => 'Martin Diehl',
'[e-mail]' => 'Liyang Hu',
'[e-mail]' => 'Larry McVoy',
'[e-mail]' => 'Stephen Lord',
'[e-mail]' => 'Bruce B. Lowekamp', # lbdb
'[e-mail]' => 'Luc Van Oostenryck', # lbdb
'[e-mail]' => 'Lucas Correia Villa Real', # google
'[e-mail]' => 'Marc-Christian Petersen',
'[e-mail]' => 'Marcus Alanen',
'[e-mail]' => 'Armin Schindler',
'[e-mail]' => 'Maciej W. Rozycki',
'[e-mail]' => 'Manfred Spraul',
'[e-mail]' => 'Manik Raina',
'[e-mail]' => 'Keith Mannthey',
'[e-mail]' => 'Marc Boucher',
'[e-mail]' => 'Marcel Holtmann', # sent by himself
'[e-mail]' => 'Marcelo Tosatti',
'[e-mail]' => 'Marcelo Tosatti', # guessed
'[e-mail]' => 'Marcelo Tosatti',
'[e-mail]' => 'Marek Michalkiewicz',
'[e-mail]' => 'Mark W. McClelland',
'[e-mail]' => 'Mark W. McClelland',
'[e-mail]' => 'Mark Haverkamp',
'[e-mail]' => 'Martin J. Bligh',
'[e-mail]' => 'Martin Brulisauer',
'[e-mail]' => 'Martin Schwenke',
'[e-mail]' => 'Chris Mason',
'[e-mail]' => 'Matt Domsch', # sent by himself
'[e-mail]' => 'Matthew Wilcox',
'[e-mail]' => 'Heinz J. Mauelshagen',
'[e-mail]' => 'Maksim Krasnyanskiy',
'maxk@viper.(none)' => 'Maksim Krasnyanskiy', # from shortlog
'[e-mail]' => 'Maksim Krasnyanskiy',
'[e-mail]' => 'Martin J. Bligh',
'[e-mail]' => 'Marc-Christian Petersen',
'[e-mail]' => 'Matthew Dharm',
'[e-mail]' => 'Matthew Dharm',
'[e-mail]' => 'Matthew Dharm',
'[e-mail]' => 'Michael Elizabeth Chastain',
'[e-mail]' => 'Mark A. Greer', # lbdb
'[e-mail]' => 'Michael Weber', # google
'[e-mail]' => 'Michal Jaegermann',
'[e-mail]' => 'Mikael Starvik',
'[e-mail]' => 'Mike Phillips',
'[e-mail]' => 'Mikael Pettersson',
'[e-mail]' => 'Mikulas Patocka',
'[e-mail]' => 'Miles Bader',
'[e-mail]' => 'Miles Lane',
'[e-mail]' => 'Milton Miller', # by Kristian Peters
'[e-mail]' => 'Ingo Molnar',
'[e-mail]' => 'Ingo Molnar',
'[e-mail]' => 'Martin Mares',
'[e-mail]' => 'Martin K. Petersen', # lbdb
'[e-mail]' => 'Mario Lang', # google
'[e-mail]' => 'Mirko Lindner',
'[e-mail]' => 'Montavista Software, Inc.',
'[e-mail]' => 'Mark McClelland',
'[e-mail]' => 'Patrick Mochel',
'[e-mail]' => 'Patrick Mochel',
'[e-mail]' => 'Patrick Mochel',
'[e-mail]' => 'Michal Ostrowski',
'[e-mail]' => 'Matt Wilson',
'[e-mail]' => 'Mufasa Yang', # sent by himself
'[e-mail]' => 'Muli Ben-Yehuda', # sent by himself
'[e-mail]' => 'Michael Westermann',
'[e-mail]' => 'Marc Zyngier',
'[e-mail]' => 'Don Dugger',
'[e-mail]' => 'Itai Nahshon',
'[e-mail]' => 'Nathan Scott',
'[e-mail]' => 'Neil Brown',
'[e-mail]' => 'Nemosoft Unv.',
'[e-mail]' => 'Nicolas Pitre',
'[e-mail]' => 'Nicolas Aspert',
'[e-mail]' => 'Nicolas Mailhot',
'[e-mail]' => 'Niels Kristian Bech Jensen',
'[e-mail]' => 'Nicholas Miell',
'[e-mail]' => 'Olaf Kirch', # lbdb
'olaf.dietsche#[e-mail]' => 'Olaf Dietsche',
'olaf.dietsche' => 'Olaf Dietsche',
'[e-mail]' => 'Oleg Nesterov',
'[e-mail]' => 'Olaf Hering',
'[e-mail]' => 'Dave Olien',
'[e-mail]' => 'Oliver Neukum',
'[e-mail]' => 'Oliver Neukum',
'[e-mail]' => 'Oliver Neukum',
'[e-mail]' => 'Orjan Friberg',
'[e-mail]' => 'Oskar Schirmer', # sent by himself
'[e-mail]' => 'Willem Riede',
'[e-mail]' => 'Owen Taylor',
'[e-mail]' => 'Peter De Shrijver',
'[e-mail]' => 'Paul Gortmaker',
'[e-mail]' => 'Petr Baudis',
'[e-mail]' => 'Patrick Mansfield',
'[e-mail]' => 'Paul Mundt', # google
'[e-mail]' => 'Paul Fulghum',
'[e-mail]' => 'Paul Mackerras',
'[e-mail]' => 'Paul Mackerras',
'[e-mail]' => 'Paul Mackerras',
'[e-mail]' => 'Paul Mackerras',
'[e-mail]' => 'Pavel Janík',
'[e-mail]' => 'Pavel Machek',
'[e-mail]' => 'Pavel Machek',
'[e-mail]' => 'Andrey Panin',
'[e-mail]' => 'Badari Pulavarty',
'[e-mail]' => 'Pam Delaney',
'[e-mail]' => 'Jeroen Vreeken',
'[e-mail]' => 'Petr Konecny',
'[e-mail]' => 'Jaroslav Kysela',
'[e-mail]' => 'Jaroslav Kysela',
'[e-mail]' => 'Jaroslav Kysela',
'[e-mail]' => 'Peter Samuelson',
'[e-mail]' => 'Peter Chubb',
'[e-mail]' => 'Peter Chubb',
'[e-mail]' => 'Peter Osterlund',
'[e-mail]' => 'Petko Manolov',
'[e-mail]' => 'Petko Manolov',
'[e-mail]' => 'Petko Manolov',
'[e-mail]' => 'Petko Manolov',
'[e-mail]' => 'Petr Vandrovec',
'[e-mail]' => 'Petri Koistinen',
'[e-mail]' => 'Pawel Kot',
'[e-mail]' => 'Paul Larson',
'[e-mail]' => 'Paul Menage',
'[e-mail]' => 'Matt Porter',
'[e-mail]' => 'Ingo Albrecht',
'[e-mail]' => 'Pavel Roskin',
'[e-mail]' => 'Peter Wächtler',
'[e-mail]' => 'Daniel Quinlan',
'[e-mail]' => 'Juan Quintela',
'[e-mail]' => 'Rogier Wolff', # lbdbq
'[e-mail]' => 'Ralf Bächle',
'[e-mail]' => 'Ralf Bächle',
'[e-mail]' => 'Randy Dunlap',
'[e-mail]' => 'Ray Lee',
'[e-mail]' => 'Richard Hitt', # asked him, he prefers Richard
'[e-mail]' => 'Robert Cardell',
'[e-mail]' => 'Bob Tracy',
'[e-mail]' => 'Randy Dunlap',
'[e-mail]' => 'Udo A. Steinberg',
'[e-mail]' => 'Hans Reiser',
'[e-mail]' => 'Bob Miller',
'[e-mail]' => 'Richard Gooch',
'[e-mail]' => 'Richard Gooch',
'[e-mail]' => 'Roberto Gordo Saez',
'[e-mail]' => 'Richard Hirst',
'[e-mail]' => 'Riley Williams',
'[e-mail]' => 'Richard Brunner',
'[e-mail]' => 'Rik van Riel',
'[e-mail]' => 'Roger Luethi',
'[e-mail]' => 'Romain Lievin',
'[e-mail]' => 'Russell King',
'[e-mail]' => 'Russell King',
'[e-mail]' => 'Robert Love',
'[e-mail]' => 'Rob Radez',
'[e-mail]' => 'Robert Olsson',
'[e-mail]' => 'Rohit Seth',
'[e-mail]' => 'Roland Dreier',
'[e-mail]' => 'François Romieu',
'root@viper.(none)' => 'Maxim Krasnyansky',
'[e-mail]' => 'Rob Scott',
'[e-mail]' => 'Richard Henderson',
'[e-mail]' => 'Richard Henderson',
'[e-mail]' => 'Richard Henderson',
'[e-mail]' => 'Richard Henderson',
'[e-mail]' => 'Richard Henderson',
'[e-mail]' => 'Richard Henderson',
'[e-mail]' => 'Rui Sousa',
'[e-mail]' => 'Rusty Russell',
'[e-mail]' => 'Randy Hron',
'[e-mail]' => 'Richard Zidlicky',
'[e-mail]' => 'Michal Sabala', # google
'[e-mail]' => 'Thomas Sailer',
'[e-mail]' => 'Sam Ravnborg',
'[e-mail]' => 'Sam Ravnborg',
'[e-mail]' => 'Vitezslav Samel',
'[e-mail]' => 'Samuel Thibault',
'[e-mail]' => 'Eric Sandeen',
'[e-mail]' => 'Santiago A. Nullo', # sent by self
'[e-mail]' => 'Pasi Sarolahti',
'[e-mail]' => 'sawa',
'[e-mail]' => 'Erik Schoenfelder',
'[e-mail]' => 'Andreas Schwab',
'[e-mail]' => 'Martin Schwidefsky',
'[e-mail]' => 'Scott Feldman',
'[e-mail]' => 'Scott Anderson',
'[e-mail]' => 'Scott Murray',
'[e-mail]' => 'Stephen C. Tweedie',
'[e-mail]' => 'Stephen Smalley',
'[e-mail]' => 'Sebastian Dröge',
'[e-mail]' => 'Stephen Rothwell',
'[e-mail]' => 'Dave Kleikamp',
'[e-mail]' => 'Dave Kleikamp',
'[e-mail]' => 'Dave Kleikamp', # lbdb
'[e-mail]' => 'Shing Chuang',
'[e-mail]' => 'Szilárd Pásztor', # google
'[e-mail]' => 'Simon Burley',
'[e-mail]' => 'Skip Ford',
'[e-mail]' => 'Stuart Lynne',
'[e-mail]' => 'Nathan Dabney',
'[e-mail]' => 'Geoffrey Lee', # by himself
'[e-mail]' => 'Solar Designer',
'[e-mail]' => 'Steven Parker', # by Duncan Laurie
'[e-mail]' => 'Simon Evans', # by Kristian Peters
'[e-mail]' => 'Sridhar Samudrala',
'[e-mail]' => 'Stefan Rompf',
'[e-mail]' => 'Jack Steiner',
'[e-mail]' => 'Stelian Pop',
'[e-mail]' => 'Stelian Pop',
'[e-mail]' => 'Alan Stern',
'[e-mail]' => 'Alan Stern', # lbdb
'[e-mail]' => 'Stephen Cameron',
'[e-mail]' => 'Steven Whitehouse',
'[e-mail]' => 'Steven Whitehouse',
'[e-mail]' => 'Steve French',
'[e-mail]' => 'Steve French',
'[e-mail]' => 'Stuart MacDonald',
'[e-mail]' => 'Mike Sullivan',
'[e-mail]' => 'Tim Hockin', # by Duncan Laurie
'[e-mail]' => 'Sunil Saxena',
'[e-mail]' => 'Alan Swanson',
'[e-mail]' => 'Tomas Szepe',
'[e-mail]' => 'Takayoshi Kouchi',
'[e-mail]' => 'Taisuke Yamada',
'[e-mail]' => 'Hirokazu Takahashi',
'[e-mail]' => 'David Weinehall', # by himself
'[e-mail]' => 'David Weinehall', # by himself
'[e-mail]' => 'Tom Callaway',
'[e-mail]' => 'Tero Pirkkanen', # by Kristian Peters
'[e-mail]' => 'Tim Hockin', # by Duncan Laurie
'[e-mail]' => 'Tim Hockin', # by Duncan Laurie
'[e-mail]' => 'Florian Thiel', # lbdb
'[e-mail]' => 'Tim Hockin',
'[e-mail]' => 'Tim Hockin',
'[e-mail]' => 'Tigran Aivazian',
'[e-mail]' => 'Tim Schmielau',
'[e-mail]' => 'Thomas Molina',
'[e-mail]' => 'Osamu Tomita',
'[e-mail]' => 'Ed Tomlinson',
'[e-mail]' => 'Tony Luck',
'[e-mail]' => 'Anthony J. Breeds-Taurima',
'[e-mail]' => 'Linus Torvalds',
'[e-mail]' => 'Linus Torvalds',
'[e-mail]' => 'Linus Torvalds',
'[e-mail]' => 'Linus Torvalds',
'[e-mail]' => 'Linus Torvalds',
'[e-mail]' => 'Linus Torvalds',
'[e-mail]' => 'Tom Rini',
'[e-mail]' => 'Tom Rini',
'[e-mail]' => 'Trond Myklebust',
'[e-mail]' => 'Thierry Vignaud',
'[e-mail]' => 'Tim Waugh',
'[e-mail]' => "Theodore Ts'o", # web.mit.edu/tytso/www/home.html
'[e-mail]' => "Theodore Ts'o",
'[e-mail]' => "Theodore Ts'o", # guessed
'[e-mail]' => 'Urban Widmark',
'[e-mail]' => 'Joshua Uziel',
'[e-mail]' => 'Petr Vandrovec',
'[e-mail]' => 'Thibaut Varene',
'[e-mail]' => 'Venkatesh Pallipadi',
'[e-mail]' => 'Alexander Viro',
'[e-mail]' => 'Paul Vojta',
'[e-mail]' => 'Vojtech Pavlik',
'[e-mail]' => 'Vojtech Pavlik',
'[e-mail]' => 'Vojtech Pavlik', # added by himself
'[e-mail]' => 'Werner Almesberger',
'[e-mail]' => 'Thomas Wahrenbruch',
'[e-mail]' => 'Wes Schreiner',
'[e-mail]' => 'Wolfram Gloger', # lbdb
'[e-mail]' => 'William R. Sowerbutts',
'[e-mail]' => 'Matthew Wilcox',
'[e-mail]' => 'Willy Tarreau',
'[e-mail]' => 'Wilson Chen', # google
'[e-mail]' => 'Wim Van Sebroeck',
'[e-mail]' => 'William Lee Irwin III',
'[e-mail]' => 'Wolfgang Fritz', # by Kristian Peters
'[e-mail]' => 'Wolfgang Muees',
'[e-mail]' => 'William Stinson',
'[e-mail]' => 'William Stinson',
'[e-mail]' => 'Tomas Kasparek',
'[e-mail]' => 'Yokota Hiroshi',
'[e-mail]' => 'Hideaki Yoshifuji', # lbdb
'[e-mail]' => 'Yuri Per', # lbdb
'[e-mail]' => 'Pete Zaitcev',
'[e-mail]' => 'Roman Zippel',
'[e-mail]' => 'Irene Zubarev', # google
'[e-mail]' => 'Zwane Mwaikambo',
'[e-mail]' => 'Zwane Mwaikambo',
'[e-mail]' => 'Zwane Mwaikambo',
'[e-mail]' => 'Zwane Mwaikambo',
'~~~~~~thisentrylastforconvenience~~~~~' => 'Cesar Brutus Anonymous'
);

sub doprint(\%@ ); # forward declaration

my %address_unknown;

# get name associated to an email address
sub rmap_address {
  my @o = map {defined $addresses{$_} ? $addresses{$_} :
		 scalar (($address_unknown{$_} = 1), $_); }
          map { lc; } @_;
  return wantarray ? @o : $o[0];
}

# case insensitive string comparison
# FIXME: use locale?
sub caseicmp { uc($a) cmp uc($b) };

# case insensitive string comparison by surname
# Strings are of the form
# "Firstname Surname <mailaddress>"
# or
# "<mailaddress>"
sub caseicmpbysurname {
  my $alast = "";
  my $blast = "";
  if ($a =~ m/(\S+)\s*(\s\<|$)/) { $alast = $1; }
  if ($b =~ m/(\S+)\s*(\s\<|$)/) { $blast = $1; }
  return uc($alast . $a) cmp uc($blast . $b);
}

my ($author, $address, $name);
# * $address is always an email address
# * $author can be the email address or Joe N. Sixpack II <[e-mail]>
#   (ready formatted to print)
# * $name is the name (Joe N. Sixpack II) or the mail address
#   (<[e-mail]>) 

sub get_name()   { return $name; }
sub get_author() { return $author; }

# This table maps MODE => { myhash }
# myhash knows the keys "index" and "print" to choose the respective functions
my %table =
  (
   'oneline' => { 'index' => \&get_name,
		  'print' => \&print_oneline },
   'terse'   => { 'index' => \&get_name,
		  'print' => \&print_terse },
   'grouped' => { 'index' => \&get_author,
		  'print' => \&print_grouped },
   'full'    => { 'index' => \&get_author,
		  'print' => \&print_full }
  );

# temp store
my $indexby;

# The sort function we will use
my $namesortfunc;

# Global store #############
# We store our options here.
my %opt;

# As we are parsing, the log is accumulated in the @cur array.  When
# we are done with one item (end of input or new mail address found),
# stuff a copy of this @cur array into the %log hash.
sub append_item(\%@)
# arguments: reference to hash
#            array to push
{
  my $log = shift;
  my @cur = @_;
  return unless @cur;
  return unless &$indexby;
  $log->{&$indexby} = () unless defined $log->{&$indexby};

  # strip trailing blank lines
  my $t;
  while (($t = pop(@cur)) eq '') { };
  push @cur, $t;

  # store the array
  push @{$log->{&$indexby}}, [@cur];
}

# Remove duplicates from hash, without changing the order.
# Prefix duplicates with the count.
sub countdups(@) {
  my %t;
  croak "do not call removedups() in scalar context" unless wantarray;
  my @u = grep (!$t{lc $_}++, @_);
  return map {
    $t{lc $_} > 1 ? sprintf("%d x ", $t{lc $_}) . $_ : $_; 
  } @u;
}

# Remove duplicates from array, without changing the order. The
# duplicates need not follow each other, so A B A is properly
# stripped down to A B
sub removedups(@) {
  my %t;
  croak "do not call removedups() in scalar context" unless wantarray;
  return grep (!$t{lc $_}++, @_);
}

# Compress the hash passed in, depending on the --compress and --count
# options in the %opt hash.
sub compress(@) {
  croak "do not call compress() in scalar context" unless wantarray;
  if ($opt{compress}) {
    if ($opt{count}) {
      return countdups(@_);
    } else {
      return removedups(@_);
    }
  } else {
    return @_;
  }
}

# report write error, exit
# do not return
sub write_error() {
  croak "Write error: $!\nAborting";
  exit (1);
}

# implementation of "grouped" output:
# author:
#   first line of log1
#   first line of log2
sub print_grouped(\%) {
  my $log = shift;
  for (sort $namesortfunc keys %$log) {
    my @lines = compress(map { $_->[0] . "\n"; } @{$log->{$_}});
    if ($opt{width}) {
      @lines = map { expand(wrap($indent1, $indent, ($_))); } @lines;
    } else {
      @lines = map { "$indent1$_" } @lines;
    }
    printtag($_) or write_error();
    print join("", @lines), "\n" or write_error();
  }
}

# implementation of "full" output
# author:
#   o log1
#     more information on changeset1
#   o log2
#     more information on changeset2
sub print_full(\%) {
  my $log = shift;
  for (sort $namesortfunc keys %$log) {
    printtag($_) or write_error();
    foreach (compress(@{$log->{$_}})) {
      my @lines = map { s/^\t//; "$_\n"; } @$_;
      if ($opt{width}) {
	@lines = expand(wrap($indent1, $indent, @lines));
      } else {
	@lines = map { "$indent$_"; } @lines;
	substr($lines[0], $[, length($indent1)) = $indent1;
      }
      print join("", @lines), "\n"  or write_error();
    }
  }
  print "\n"  or write_error();
}

# implementation of "terse" output
# with --swap          without --swap
# author1: log1        log1    (author1)
# author1: log2        log2    (author2)
# author2: log3        log3    (author3)
sub print_terse(\%) {
  my $log = shift;
  for (sort $namesortfunc keys %$log) {
    my $a = $_;
    if ($opt{width}) {
      if ($opt{swap}) {
	foreach (compress(map { $_->[0]; } @{$log->{$_}})) {
	  my @lines = expand(wrap($indent1, $indent, ("$a: $_")));
	  print join("\n", @lines), "\n"  or write_error();
	}
      } else {
	# width, but not swap set
	foreach (compress(map { $_->[0]; } @{$log->{$_}})) {
	  my @addr = expand(split(/\n/, wrap('', $indent, " ($a)")));
	  my @lines = expand(split(/\n/, wrap($indent1, $indent, ($_))));

	  if (length($lines[$#lines]) + length($addr[0]) > $opt{width}) {
	    push @lines, '';
	  }
	  $lines[$#lines] .= sprintf("%*s", $opt{width}
				     - length($lines[$#lines]), $addr[0]);
	  shift @addr;
	  print join("\n", @lines), "\n"  or write_error();
	  foreach (@addr) {
	    printf "%*s\n", $opt{width}, $_  or write_error();
	  }
	}
      }
    } else {
      # using the ?: operator within the map is more maintainable, but
      # less efficient.
      if ($opt{swap}) {
	print join("\n", map { "$indent1$a: $_" }
		   compress(map { $_->[0]; } @{$log->{$_}})), "\n"
		     or write_error();
      } else {
	print join("\n", map { "$indent1$_ ($a)" } 
		   compress(map { $_->[0]; } @{$log->{$_}})), "\n"
		     or write_error();
      }
    }
  }
}

# implementation of "oneline" output
# which is similar to terse but reformats to one line exactly
# with --swap          without --swap
# author1: log1        log1    (author1)
# author1: log2        log2    (author2)
# author2: log3        log3    (author3)
sub print_oneline(\%) {
  my $log = shift;
  for (sort $namesortfunc keys %$log) {
    my $a = $_;
    if ($opt{width}) {
      if ($opt{swap}) {
	foreach (compress(map { $_->[0]; } @{$log->{$_}})) {
	  my $str = "$a: $_";
	  if (length($str) > $opt{width}) {
	    printf "%-.*s...\n", $opt{width}-3, $indent1 . "$a: $_"
	      or write_error();
	  } else {
	    printf "%-.*s\n", $opt{width}, $indent1 . "$a: $_"
	      or write_error();
	  }
	}
      } else { # not swapping
	foreach (compress(map { $_->[0]; } @{$log->{$_}})) {
	  my $l = $opt{width} - length($indent1) - length($a) - 3;
	  if (length($_) > $l) {
	    $l -= 3;
	    printf "%s%-*.*s... (%s)\n", $indent1, $l, $l, $_, $a;
	  } else {
	    printf "%s%-*.*s (%s)\n", $indent1, $l, $l, $_, $a;
	  }
	}
      }
    } else {
      # not $opt{width} -> same as print_terse
      print_terse(%$log);
    }
  }
}

# Abbreviate all components of the name except the last.  If capital
# Roman numerals form the last component, leave that and the previous
# component alone.
sub abbreviate_name($ ) {
  my @a = split /\s+/, $_[0];

  # treat Roman numerals as last part of name
  my $off = 0;
  $off = 1 if ($a[$#a] =~ /^[IVXLCMD]+$/);

  for (my $i = 0; $i < $#a - $off; $i++) {
    $a[$i] =~ s/^(.).*/$1./;
  }
  return join(" ", @a);
}

# Read a file and parse it into the %log hash.
sub parse_file(\%$$ ) {
# arguments: %log hash
#            file name
#            file handle (IO::Handle or IO::File)
  croak unless wantarray;
  my $log = shift;
  my $fn = shift;
  my $fh = shift;
  my @prolog;
  local $_;

  # initialize
  my @cur = ();
  my $first = 0;
  my $firstpar = 0;
  undef $address;

  # now go!

  # NOTE: the first @cur item can consist of multiple lines in the
  # source file which are joined together. This happens when the first
  # paragraph is longer than a single line.
  while($_ = $fh -> getline) {
    chomp;
    s/^  (\S)/\t$1/;
    # expand all tabs but the first
    $_ = expand($_);
    s/^        /\t/;

    if (defined $address and $opt{multi}
	and m{^[^<[:space:]]} and not m{^ChangeSet@}) {
      # if we are in multi mode, if we encounter a non-address
      # left-justified line, flush all data and print the header. The
      # defined $address trick lets this only trigger to switch back
      # from "log entry" to "prolog" mode
      append_item(%$log, @cur); @cur = ();
      doprint(%$log, @prolog);
      print "\n" or write_error(); # print blank line between changelogs
      @prolog = ($_);
      undef %$log;
      undef $address;
    } elsif (m{^<([^>]+)>} or m{^ChangeSet@[0-9.]+,\s*[-0-9:+ ]+,\s*(.*)}) {
      # go figure if a line starts with an address, if so, take it
      # resolve the address to a name if possible
      append_item(%$log, @cur); @cur = ();
      $address = lc($1);
      $address =~ s/\[[^]]+\]$//;
      $name = rmap_address($address);
      if ($name ne $address) {
	if ($opt{'abbreviate-names'}) {
	  $name = abbreviate_name($name);
	}
	$author = $name . ' <' . $address . '>';
      } else {
	$author = '<' . $address . '>';
      }
      $first = 1;
      $firstpar = 1;
    } elsif ($first) {
      # we have a "first" line after an address, take it, 
      # strip common redundant tags

      # kill "PATCH" tag
      s/^\s*\[PATCH\]//;
      s/^\s*PATCH//;
      s/^\s*[-:]+\s*//;

      # strip trailing colon or period, and if we strip one,
      # we don't parse further lines as part of the first paragraph
      if (s/[:.]+\s*$//) { $firstpar = 0; }

      # kill leading and trailing whitespace for consistent indentation
      s/^\s+//; s/\s+$//;

      push @cur, $_;
      $first = 0;
    } elsif (defined $address) {
      # second or subsequent lines -- if in first paragraph,
      # append this line to the first log line.
      if (m/^\s*$/) { $firstpar = 0; }
      elsif (m/^\s*[-*o\#]/) { $firstpar = 0; }
      if ($firstpar) {
	s/^\s*/ /;
	$cur[0] .= $_;
      } else {
	push @cur, $_;
      }
      # we don't parse further lines as part of the first paragraph
      if (s/[:.]+\s*$//) { $firstpar = 0; }
    } else {
      # store header before a changelog
      push @prolog, $_;
    }
  }

  if ($fh -> error) {
    die "Error while reading from \"$fn\": $!";
  }

  # at file end, flush @cur array to %log.
  append_item(%$log, @cur);

  return @prolog;
}

# print a word-wrapped name or mail address, followed by a trailing colon.
# used by print_grouped and print_full
# passes the return value of print back up
sub printtag($ ) {
  my $a = shift;
  $a .= ':';
  return print $opt{width} ? expand(wrap("", "", ($a))) : $a, "\n";
}

# === MAIN PROGRAM ===============================================
# Command line arguments
# What options do we support?
my @opts = ("help|?|h", "man", "mode=s", "compress!", "count!", "width:i",
	    "swap!", "merge!", "warn!", "multi!", "abbreviate-names!",
	    "by-surname!");
#	    "bitkeeper|bk!");

# How do we parse them?
if ($Getopt::Long::VERSION gt '2.24') {
  Getopt::Long::Configure("gnu_getopt");
}

# set default options
$opt{mode} = 'grouped';
$opt{warn} = 1;

# Parse from environment, temporarily storing the original @ARGV.
if (defined $ENV{LINUXKERNEL_BK_FMT}) {
  my @savedargs = @ARGV;
  @ARGV = parse_line('\s+', 0, $ENV{LINUXKERNEL_BK_FMT});
  GetOptions(\%opt, @opts)
    or pod2usage(-verbose => 0,
		 -message => $0 . ': error in $LINUXKERNEL_BK_FMT');
  push @ARGV, @savedargs;
}

# Parse command line. Handle help, check for errors.
GetOptions(\%opt, @opts) or pod2usage(-verbose => 0);
pod2usage(-verbose => 1) if $opt{help};
pod2usage(-verbose => 2) if $opt{man};
pod2usage(-verbose => 0,
	  -message => ("$0: Unknown mode specified.\nValid modes are:\n    "
		       . join(" ", sort keys %table) . "\n"))
  unless defined $table{$opt{mode}};
pod2usage(-verbose => 0,
	  -message => "$0: No files given, refusing to read from a TTY.")
  if (not $opt{bitkeeper} and (@ARGV == 0) and (-t STDIN));
pod2usage(-verbose => 0,
	  -message => "$0: Must have one or two arguments in --bitkeeper mode.")
  if ($opt{bitkeeper} && (@ARGV < 1 || @ARGV > 2));
pod2usage(-verbose => 0,
	  -message => "$0: You cannot use --merge and --multi at the same time.")
  if ($opt{merge} and $opt{multi});

# Shortcut for programmer convenience :-)
$indexby = $table{$opt{mode}}->{'index'};

# --count implies --compress
if ($opt{count}) { $opt{compress} = 1; }

# Set the sort function
$namesortfunc = \&caseicmp;
if ($opt{'by-surname'}) { $namesortfunc = \&caseicmpbysurname; }

# if --width is without argument or the argument is zero,
# try to figure $COLUMNS or fall back to 80.
if (exists $opt{width} and not $opt{width}) {
  $opt{width} = $ENV{COLUMNS} ? $ENV{COLUMNS} : 80;
}

# Print the passed-in array linewise, checking for write errors
# Then call the configured function to print %log formatted
sub doprint(\%@ ) {
  my $log = shift;
  print join("\n", @_), "\n" or write_error();
  $table{$opt{mode}}->{print}->($log);
}

# --------------------------------------------------------------------
# Global initializations
$Text::Tabs::tabstop = 8;
$Text::Wrap::huge = 'wrap';
if ($opt{width}) {
  $Text::Wrap::columns = $opt{width};
}

if ($debug) {
  print STDERR "DEBUG: Options summary:\n";
  while (my ($k, $v) = each %opt) { print STDERR "DEBUG:   '$k' => '$v'\n"; }
  print STDERR "DEBUG: Arguments summary:\n";
  foreach (@ARGV) { print STDERR "DEBUG:   '$_'\n"; }
}

# Main program
my @prolog;
my %log;

if($opt{bitkeeper}) {
  # in Bitkeeper mode, try to figure the change set, and connect the
  # bk program to our stdin.
  die "not yet implemented";
} elsif (@ARGV) {
  # file names
  foreach my $fn (@ARGV) {
    my $fh = new IO::File;
    $fh->open($fn, "r")
      or die "cannot open \"$fn\": $!\nAborting";
    push @prolog, parse_file(%log, $fn, $fh);
    if (not $opt{merge}) {
      doprint(%log, @prolog);
      undef %log;
    }
    undef @prolog;
  }

  if ($opt{merge}) {
    doprint(%log, ());
  }
} else {
  # stdin
  my @prolog;
  my $fh = new IO::Handle;
  $fh->fdopen(fileno(STDIN), "r")
    or die "cannot open stdin: $!\nAborting";
  @prolog = parse_file(%log, "stdin", $fh);
  doprint(%log, @prolog);
}

# Flush STDOUT to prevent clobbering STDOUT with 2>&1-style redirections.
$| = 1;

# Warn about unknown addresses
if ($opt{warn}) {
  foreach (sort caseicmp keys %address_unknown) {
    print STDERR "Warning: unknown address \"$_\"\n" or write_error();
  }
}

__END__
# --------------------------------------------------------------------
# $Log: lk-changelog.pl,v $
# Revision 0.62  2002/12/27 16:59:28  emma
# Another ten addresses sent by Vitezslav Samel.
#
# Revision 0.61  2002/12/14 14:28:49  emma
# Bjorn Helgaas only uses the transscribed version of his name himself.
#
# Revision 0.60  2002/12/13 14:51:35  emma
# Next dozen of addresses digged out by Vita.
#
# Revision 0.59  2002/12/11 12:11:51  emma
# Workaround: strip trailing [tag] from mail addresses, reported by Marcel
#     Holtmann.
# Add some new addresses.
#
# Revision 0.58  2002/12/07 15:14:57  emma
# More addresses figured by Vitezslav Samel.
#
# Revision 0.57  2002/12/07 15:08:34  emma
# 3 more addresses.
#
# Revision 0.56  2002/11/28 02:32:11  emma
# List David Weinehall.
#
# Revision 0.55  2002/11/27 04:44:54  emma
# Add [e-mail] for Keith Owens as per his own request.
#
# Revision 0.54  2002/11/26 23:27:11  emma
# Merge changes from Linus' version.
#
# Revision 0.53  2002/11/25 17:12:08  emma
# Add Lee Nash's address
#
# Revision 0.52  2002/11/14 14:50:21  emma
# Bugfix --by-surname for some modes. Add two addresses. Fix Carl-Daniel Hailfinger's address to lower case.
#
# Revision 0.51  2002/11/14 14:31:10  emma
# Add Carl-Daniel Hailfinger's new address. Add TODO item to see if regexp/wildcard match in address list is possible.
#
# Revision 0.50  2002/11/09 14:24:21  emma
# Add comment to Richard Hitt's address.
#
# Revision 0.49  2002/11/04 17:13:21  emma
# Add 4 addresses sent by Duncan Laurie.
#
# Revision 0.48  2002/11/04 12:37:38  emma
# Another four dozen addresses, courtesy of Vitezslav Samel.
#
# Revision 0.47  2002/11/04 12:19:17  emma
# Vitezslav Samel: Merge bugfix to treat addresses with upper-case characters in ChangeSet.
#
# Revision 0.46  2002/11/04 11:37:33  emma
# 7 new addresses.
#
# Revision 0.45  2002/11/04 11:26:41  emma
# 18 new addresses.
#
# Revision 0.44  2002/10/04 03:37:51  emma
# Track BK-kernel-tools changes to Jes Sorensen's name.
#
# Revision 0.43  2002/10/04 03:33:47  emma
# 4 new addresses.
#
# Revision 0.42  2002/10/01 20:20:33  emma
# Another 25 addresses for ChangeLog 2.5.3?, from google and lbdb.
#
# Revision 0.41  2002/10/01 19:45:20  emma
# Some detective work on google found another 19 addresses.
#
# Revision 0.40  2002/09/30 01:44:51  emma
# Drop bogus [e-mail] address.
#
# Revision 0.39  2002/09/26 23:07:13  emma
# 46 new addresses from lbdb
#
# Revision 0.38  2002/09/26 22:37:29  emma
# 23 new addresses
#
# Revision 0.37  2002/09/26 22:27:37  emma
# Fix --multi mode.
#
# Revision 0.36  2002/08/29 09:13:40  emma
# Correct Vojtech Pavlik's addresses after mail from him.
#
# Revision 0.35  2002/08/21 13:49:46  emma
# Many new addresses and one correction by Vitezslav 'Vita' Samel <[e-mail]>
#
# Revision 0.34  2002/08/21 13:45:53  emma
# 2 new names
#
# Revision 0.33  2002/08/20 01:29:34  emma
# The usual set of new addresses.
#
# Revision 0.32  2002/08/20 01:14:40  emma
# Add Marcel Holtmann, who sent a patch.
#
# Revision 0.31  2002/08/12 22:34:41  emma
# Patch by Marcus Alanen <[e-mail]>:
# Hi, patch to sort by developer surname, and a couple of more
# developers. Use if you want to.
#
# Revision 0.30  2002/07/20 17:18:28  emma
# Add one new address
#
# Revision 0.29  2002/07/17 23:10:13  emma
# 23 new addresses.
#
# Revision 0.28  2002/06/25 09:46:57  emma
# New mail addresses.
#
# Revision 0.27  2002/06/14 17:05:23  emma
# three new addresses
#
# Revision 0.26  2002/06/06 10:26:51  emma
# Get rid of global %log, pass it to sub functions by reference.
# Move IO::Handle/IO::File treatment back into main program.
# Prepare for integrating Bitkeeper.
#
# Revision 0.25  2002/06/04 00:01:23  emma
# Recognize "bk changes" output format (that is: "ChangeSet@1.234.5.6,
# date, programmer" tag line and body indented by two spaces). Reported
# by Marcelo Tosatti <[e-mail]>. Former versions would
# only recognize the BK-kernel-tools/changelog format (see
# http://gkernel.bkbits.net:8080/BK-kernel-tools/anno/changelog@1.5?nav=index.html|src/).
#
# Revision 0.24  2002/06/03 13:33:00  emma
# * Fix 'grouped', 'terse', 'oneline' modes (change to parse_file()). We
#   now take the first paragraph instead of the first line as log
#   entry. We also guess where the paragraph ends, it ends at a line with
#   trailing dot or colon, or if the next line is empty or starts with a
#   "bullet" (that is -, *, o or #).
# * New option --abbreviate-names.
# * Fix 'full' mode indentation, broken in v0.21 by expanding the tabs.
#   Now, the first tab is unexpanded again.
# * Enhance 'online' mode: if the log is truncated, append an ellipsis ("...").
# * Add more mail addresses.
# * Fix Brian Beattie's name (was "Michael Beattie").
#
# Revision 0.23  2002/06/03 12:36:01  emma
# More e-mail addresses.
#
# Revision 0.22  2002/05/29 20:28:20  emma
# Mail addresses added.
#
# Revision 0.21  2002/05/29 11:45:48  emma
# * Implement --mode=oneline.
# * Expand tabs in input lines (tab stops are spaced 8 columns away from each other).
# * Bugfix --multi mode: all append_item to flush @cur before printing.
# * Restore prolog detection in --multi mode for efficiency.
# * Undo the "unexpand()" that Text::Wrap does, it breaks our line width
#   calculation. In the long run, a replacement for Text::Wrap must be
#   found that does not unexpand().
#
# Revision 0.20  2002/05/29 10:44:35  emma
# New --multi option that states multiple changelogs are in the same file.
#
# Revision 0.19  2002/05/29 10:27:21  emma
# New option: --[no]warn: Warn about unknown addresses. By default
# enabled, use --nowarn to suppress.
#
# Revision 0.18  2002/05/29 10:17:00  emma
# New addresses.
#
# Revision 0.17  2002/05/25 23:32:49  emma
# Four new addresses.
#
# Revision 0.16  2002/05/22 15:52:26  emma
# Fix deliberate typo in use Pod::Usage that was left over from debugging.
#
# Revision 0.15  2002/05/22 14:05:13  emma
# Sort addresses/names case insensitively (not locale aware).
# Heed quotes when parsing $ENV{LINUXKERNEL_BK_FMT}. As I don't
# currently have Perl 5.004 to test the older Text::ParseWords
# implementation, script now requires Perl 5.005.
# Do not require Pod::Usage, but warn if it's missing.
#
# Revision 0.14  2002/05/22 12:39:59  emma
# Fold the print function dispatcher into %table.
# Parse files on command line individually, but allow to treat them as
# one with a new --merge option.
# Make @cur local to the parse function.
# Die on read errors on input files. Use IO::Handle to read files.
#
# Revision 0.13  2002/05/21 12:42:46  emma
# Add 3 mail addresses.
# Add commentary to the code.
# Check for write errors on STDOUT and die if one happens.
#
# Revision 0.12  2002/05/18 16:54:50  emma
# Make --compress work in terse mode.
# New feature: --swap in terse mode swaps address and log entry.
#
# Revision 0.11  2002/05/18 16:43:30  emma
# Support 'terse' mode.
#
# Revision 0.10  2002/05/18 16:15:10  emma
# Another set of addresses.
#
# Revision 0.9  2002/05/18 16:06:43  emma
# Dozens of new addresses.
#
# Revision 0.8  2002/05/18 15:46:01  emma
# 21 new addresses.
#
# Revision 0.7  2002/05/16 13:57:37  emma
# Add some documentation.
#
# Revision 0.6  2002/05/16 13:55:24  emma
# Fix shift ambiguity in printtag().
#
# Revision 0.5  2002/05/16 13:51:43  emma
# Implement grouped and full modes.
#
# Revision 0.4  2002/05/16 12:07:17  emma
# Add some POD.
# Do options and environment parsing.
# Prepare multiple output modes (only grouped supported at the moment.)
#
# Revision 0.3  2002/05/13 16:11:34  emma
# Compress identical ChangeLog lines (they need not be subsequent, note
# this feature has O(n^2) behaviour, where n is the number of stored
# ChangeLog lines per respective author):
#   Soft-fp fix:
#   Soft-fp fix:
# becomes:
#   2 x Soft-fp fix:
#
# Revision 0.2  2002/05/13 10:40:32  emma
# Only consider e-mail addresses that are left-justified.
# Suggested by Greg Kroah-Hartman <[e-mail]>.
#
=head1 NAME

lk-changelog.pl - Reformat BitKeeper ChangeLog for Linux Kernel

=head1 SYNOPSIS

lk-changelog.pl [options] [file [...]]

Try lk-changelog.pl --help or lk-changelog.pl --man for more information.

=head1 OPTIONS

 -h, --help          print this short help
     --man           print the manual page for this program

     --[no]compress  if true, suppress duplicate entries
     --[no]count     if true, fold duplicate entries into one,
                     prefixing it with the count. Implies --compress.
     --[no]swap      in terse and oneline mode, swap address and log entry.
     --[no]merge     treat all files on command line as one big file
                     and suppress the prolog
     --[no]multi     states that multiple changelogs are in one file
     --[no]warn      warn about unknown addresses. Default: set!
     --[no]abbreviate-names
                     abbreviate all but the last name
     --[no]by-surname
                     sort entries by surname

     --mode=MODE     specify the output format (use --man to find out more)
     --width[=WIDTH] specify the line length, if omitted: $COLUMNS or 80.
                     text lines will not exceed this length.

Warning: Neither --compress nor --count are currently functional with
--mode=full.

=head1 DESCRIPTION

Summarizes or reformats BitKeeper ChangeLogs for Linux Kernel 2.X.

=head1 ENVIRONMENT

=over

=item LINUXKERNEL_BK_FMT

Default options. These have the same meaning and syntax as the command
line options and are parsed before them, so you can override defaults
set in this variable on the command line. B<Example:> If you put
--swap here and --noswap on your command line, --noswap takes
precedence.

=back

=head1 EXAMPLES

=over

=item Reformat ChangeLog-2.5.17, displaying all changes grouped by
  their author (that is the default mode, but we specify it anyways),
  with 76 character wide lines:

 lk-changelog.pl --mode=grouped --width=76 ChangeLog-2.5.17

=item Reformat ChangeLog-2.5.18, displaying all changes and their
      author on in "-ac changelog style", with 80 character wide lines:

 lk-changelog.pl --mode=terse --width=80 ChangeLog-2.5.18

=item Reformat 2.4.19-pre ChangeLogs (several in one file) from your mailer:

Use the pipe command to pipe the mail into:

 lk-changelog.pl --multi --mode=terse --width=80

=back

=head1 AUTHOR

=over

=item * Matthias Andree <[e-mail]>

Main developer

=item * Marcus Alanen <[e-mail]>

=item * Tomas Szepe <[e-mail]>

=item * Further help from:

Albert D. Cahalan <[e-mail]>, Robinson Maureira Castillo
<[e-mail]>, Greg Kroah-Hartman <[e-mail]>.

=back

=head1 BUGS

=over

=item * The header is not wrapped for --width character wide lines.

=item * The implementation is not yet finished.

=item * This manual page is incomplete.

=item * --compress does not currently work with --mode=full.

=item * does not detect if the changelog is already summarized (as in Marcelo's 2.4.19-pre9 announcement on the list)

=back

=head1 TODO

=over

=item * --compress-me-harder

 To merge
   o iget_locked  [1/6]
   o iget_locked  [2/6]
   ...
   o iget_locked  [6/6]
 into
   o iget_locked  [1..6/6]

=item * Integrate Bitkeeper

=item * See if the map can be made to use or accompanied by regexp.

=back

=cut