#!/usr/bin/perl
use warnings;
use strict;
use IO::File;
use Data::Dumper;
$|++;

my %comitters;

while (<>) {
  next unless /^r(\d+) /;
  my ($r, $comitter, $date) = split /[|:]/, $_;
  $comitter=trim($comitter);
  $comitters{$comitter}++;
}

#foreach (sort {$comitters{$a} <=> $comitters{$b}} keys %comitters) {
#  print "$_: $comitters{$_}\n";
#}

my $authors = readauthors();
#print Dumper $authors;

foreach my $c (sort {$comitters{$b} <=> $comitters{$a}} keys %comitters) {
  print "$c: $comitters{$c}\n";
  my $author;
  my $re = qr/$c/i;
  foreach my $a (@$authors) {
    if ($a->{wholeline} =~ $re) {
      $author = $a;
      last;
    }
  }
  if (!$author) {
    # Time for some hurestics: Try matching _ as space -- Darren_Duncan for example.
    my $re = $c;
    $re =~ s/_/ /;
    $re = qr/$re/i;
    foreach my $a (@$authors) {
      if ($a->{wholeline} =~ $re) {
        $author = $a;
        last;
      }
    }
  }
  if (!$author) {
    # Guess first initial, last name.
    my ($initial, $last) = $c =~ m/^(.)(.*)/;
    $re = qr/^$initial.*$last/i;
    foreach my $a (@$authors) {
      if ($a->{wholeline} =~ $re) {
        $author = $a;
        last;
      }
    }
  }

  if (!$author) {
    warn "$c missing from AUTHORS file\n";
  }

  $author->{commitid}=$c;
  $author->{commitcount}=$comitters{$c};
  print Dumper $author;
}


sub trim {
  local $_=shift;
  s/^\s+//;
  s/\s+$//;
  return $_;
}

sub readauthors {
  my $fh = IO::File->new("AUTHORS", "<:utf8");
  my @authors;
  my (%bycpan, %bynick);

  while (<$fh>) {
    last if /^$/;
  }
  while (<$fh>) {
    chomp;
    my ($cpanid) = m/\(([A-Z]+)\)/;
    my ($nick)   = m/"([^"]+)"/;
    my $author   = {cpanid => $cpanid, nick => $nick, wholeline => $_};
    push @authors, $author;
  }
  return \@authors;
}