Hey...that looks familiar...
All I can tell you is that when I was translating from File to Email,
that worked just fine. Here's the same script the way I
modified it for Metabase, but note that I have not been running the
CPAN Testers (as every time I try to update my minicpan, IT boots me
off the network...considering using a sneakernet minicpan but there's
a willpower factor involved...) and so it is not tested with versions
of Test::Reporter more recent than 1.57. At that time, though,
everything pretty much worked.
#!/usr/bin/perl -w
use Test::Reporter;
opendir(DIR, '/usr/share/reports');
@reports = grep { /^[^.]/ && -f "/usr/share/reports/$_" } readdir(DIR);
closedir DIR;
foreach $file (@reports) {
unless (-e "/usr/share/reports/$file") {next}
$reporter=Test::Reporter->new();
$reporter->transport('Metabase');
$reporter->transport_args(uri =>
"https://metabase.cpantesters.org/api/v1/";, id_file =>
"/home/dcollins/dcollins.json");
print "$file\n";
eval('$report=$reporter->read("/usr/share/reports/perl5122/$file")');
$error=$reporter->errstr();
$error ? print $error."\n" && next : undef;
`rm -f /usr/share/reports/$file`;
eval('$retval=$report->send()');
$error=$reporter->errstr();
$error ? (print $error."\n") || last : undef;
}
On Thu, Oct 27, 2011 at 11:37 AM, Chris Marshall <[email protected]> wrote:
> I'm trying to implement a way to submit CPAN Testers
> reports generated offline from the report files. Here
> is the script I came up with and just tried. The problem
> is it appears from the tail/log.txt from the metabase site
> that some of the information of the sending perl
> instance (cygwin perl) may have gotten mixed in
> with the information of the test report (asperl). Is this
> a bug in the metabase transport or is there something
> else I need to add to make this work?
>
> Thanks in advance,
> Chris
