#!/usr/bin/perl
use strict;
use warnings;
use Parse::CPAN::Authors;

# based on code from
# http://search.cpan.org/src/DOMM/Module-CPANTS-ProcessCPAN-0.62/bin/update_authors.pl

die "Usage: update_authors.pl path/to/minicpan" unless @ARGV ==1;
my $path_cpan=shift(@ARGV);
my $mcp=Module::CPANTS::ProcessCPAN->new($path_cpan);
my $db=$mcp->db;

my $p = Parse::CPAN::Authors->new($mcp->cpan_01mailrc);


foreach my $auth ($p->authors) {
    my $pauseid=$auth->pauseid;
    my $a=$db->resultset('Author')->find_or_create(pauseid=>$pauseid);
    print "$pauseid\n";
    foreach (qw(name email)) {
        $a->$_($auth->$_);
    }
    $a->update;
}