#!/usr/local/bin/perl
use strict;
use warnings;
use Test::Reporter;
use Data::Dumper;
use LWP::Simple;
use Getopt::Std;
use Carp;
$| = 1;

my %opts;
getopts( "vsh", \%opts );
croak Usage() if ( $opts{h} );
    
my $workdir = "/Users/jimk/Documents/Downloads";
chdir $workdir or croak "Unable to change to $workdir: $!";
my $screen = "$workdir/screen";
if (-f $screen) {
    unlink $screen or croak "Unable to unlink $screen: $!";
}
my $err = "$workdir/error";
if (-f $err) {
    unlink $err or croak "Unable to unlink $err: $!";
}

my ($module, $version, $authorpath) = @ARGV[0..2];

$module =~ s/::/-/g;
my $authorid;
$authorpath =~ m{/?([^/]*?)$};
$authorid = $1;

my $source = "http://www.cpan.org/modules/by-authors/id/$authorpath/$m
+odule-$version.tar.gz";
print "$source\n";

my $localfile = "$module-$version.tar.gz";
my $localdir = "$module-$version";
print "$localfile $localdir\n";

my $httpresponsecode = getstore($source, $localfile);
print $httpresponsecode, "\n";

my $comment = q{};
system("tar xzvf $localfile > $screen 2>$err");
gather_comments($screen, $err);

chdir $localdir or croak "Unable to change to $localdir: $!";

system("perl Makefile.PL > $screen 2>$err");
gather_comments($screen, $err);

system("make > $screen 2>$err");
gather_comments($screen, $err);

my $maketestreturn;
if ($opts{v}) {
    $maketestreturn = system("make test TEST_VERBOSE=1 > $screen 2>$er
+r");
} else {
    $maketestreturn = system("make test > $screen 2>$err");
}
gather_comments($screen, $err);

print 'return value from make test:  ', $maketestreturn, "\n\n";

my $grade;
unless ($maketestreturn) {
    $grade = 'pass';
} else {
    $grade = 'fail';
}

$comment = q{} if $grade eq 'pass';

my $reporter = Test::Reporter->new(
    grade           => $grade,
    distribution    => $localdir,
    from            => 'Jim Keenan (jkeenan_cpan_testing@yahoo.com)',
    comments        => $comment,
);

if ($opts{s}) {
    print "Sending mail ...\n";
    $reporter->send() || croak $reporter->errstr();
} else {
    print $reporter->subject(), "\n";
    print $reporter->from(), "\n";
    print "\nREPORT:\n\n";
    print $reporter->report, "\n";
    print $reporter->grade(), "\n";
    print "No mail sent\n";
}

print "Finished\n";

sub gather_comments {
    my @files = @_;
    local $_;
    for (@files) {
        open my $fh, $_ or croak "Unable to open $_: $!";
        local $/ = undef;
        $comment .= <$fh>;
        close $fh or croak "Unable to close $_:  $!";
    }
}

sub Usage {
    print 'Usage:  "./reptest.pl [options] [distribution] [0.000] [A/A
+B/ABCXYZ]"', "\n";
}
[download]