#!/usr/bin/perl -w

# a script to munge the output of 'svn log' into something approaching the 
# style of a GNU ChangeLog.
#
# to use this, just fill in the 'hackers' hash with the usernames and 
# name/emails of the people who work on your project, go to the top level 
# of your working copy, and run:
#
# $ svn log | /path/to/gnuify-changelog.pl > ChangeLog

%hackers = ( "tkng"     => 'TOKUNAGA Hiroyuki <tkng@xem.jp>',
	     "yusuke"   => 'Yusuke Tabata <yusuke@cherubim.icw.co.jp>',
	     "yamaken"  => 'YamaKen <yamaken@bp.iij4u.or.jp>',
	     "omote"    => 'Masahito Omote <omote@utyuuzin.net>',
	     "kzk"      => 'kzk <mover@hct.zaq.ne.jp>',
	     "makeinu"  => 'Takuro Ashie <ashie@homa.ne.jp>',
	     "ekato"    => 'Etsushi Kato <ekato@ees.hokudai.ac.jp>',
	     "yamamoto" => 'Masanari Yamamoto <h013177b@ice.nuie.nagoya-u.ac.jp>',
);

$parse_next_line = 0;

while (<>) {
  # axe windows style line endings, since we should try to be consistent, and 
  # the repos has both styles in it's log entries.
  $_ =~ s/\r\n$/\n/;

  if (/^-+$/) {
    # we're at the start of a log entry, so we need to parse the next line
    $parse_next_line = 1;
  } elsif ($parse_next_line) {
    # transform from svn style to GNU style
    $parse_next_line = 0;

    @parts = split (/ /, $_);
    print "$parts[4] $hackers{$parts[2]}\n";
  } else {
    print "\t$_";
  }
}