hydra: add Coverity Scan plugin

[?]

Apr 30, 2014, 11:50 PM

THUMRES3YYSVMQUJVIF7KWGJAOWVKJ3T5TDBOZIDW63RSHZ57SKQC

Dependencies

[2] 5EQYVRWE Add a plugin mechanism

Change contents

file addition: CoverityScan.pm (----------)

[2.1]

package Hydra::Plugin::CoverityScan;

use strict;
use feature 'switch';
use parent 'Hydra::Plugin';
use File::Basename;
use LWP::UserAgent;
use Hydra::Helper::CatalystUtils;

sub buildFinished {
my ($self, $b, $dependents) = @_;

my $cfg = $self->{config}->{coverityscan};
my @config = defined $cfg ? ref $cfg eq "ARRAY" ? @$cfg : ($cfg) : ();

# Scan the job and see if it matches any of the Coverity Scan projects
my $proj;
my $jobName = showJobName $b;
foreach my $p (@config) {
next unless $jobName =~ /^$p->{jobs}$/;

# If build is cancelled or aborted, do not upload build
next if $b->buildstatus == 4 || $b->buildstatus == 3;

# Otherwise, select this Coverity project
$proj = $p; last;
}

# Bail if there's no matching project
return unless defined $proj;

# Compile submission information
my $project = $proj->{project};
my $email = $proj->{email};
my $token = $proj->{token};
my $scanurl = $proj->{scanurl} || "http://scan5.coverity.com/cgi-bin/upload.py";

# Sanity checks
die "coverity project name not configured" unless defined $project;
die "email must be specified for Coverity project '".$project."'"
unless defined $email;
die "access token must be specified for Coverity project '".$project."'"
unless defined $token;

# Get tarball locations
my $storePath = ($b->buildoutputs)[0]->path;
my $tarballs = "$storePath/tarballs";
my $covTarball;

opendir TARBALLS, $tarballs or die;
while (readdir TARBALLS) {
next unless $_ =~ /.*-coverity-int\.(tgz|lzma|xz|bz2|zip)$/;
$covTarball = "$tarballs/$_"; last;
}
closedir TARBALLS;

unless (defined $covTarball) {
print STDERR "CoverityScan.pm: Coverity tarball not found in $tarballs; skipping upload...\n";
return;
}

# Find the file mimetype
my @exts = qw(.xz .bz2 .lzma .zip .tgz);
my ($dir, $file, $ext) = fileparse($covTarball, @exts);
my $mimetype;
given ($ext) {
when ('.xz') { $mimetype = "application/x-xz"; }
when ('.lzma') { $mimetype = "application/x-xz"; }
when ('.zip') { $mimetype = "application/zip"; }
when ('.bz2') { $mimetype = "application/x-bzip2"; }
when ('.tgz') { $mimetype = "application/x-gzip"; }
default { die "couldn't parse extension of $covTarball"; }
}

die "couldn't detect mimetype of $covTarball" unless defined $mimetype;

# Parse version number from tarball
my $pkgNameRE = "(?:(?:[A-Za-z0-9]|(?:-[^0-9]))+)";
my $versionRE = "(?:[A-Za-z0-9\.\-]+)";

my $shortName = basename($covTarball);
my $version = $2 if $shortName =~ /^($pkgNameRE)-($versionRE)-coverity-int.*$/;

die "CoverityScan.pm: Couldn't parse build version for upload! ($shortName)"
unless defined $version;

# Submit build
my $jobid = $b->id;
my $desc = "Hydra Coverity Build ($jobName) - $jobid:$version";

print STDERR "uploading $desc ($shortName) to Coverity Scan\n";

my $ua = LWP::UserAgent->new();
my $resp = $ua->post($scanurl,
Content_Type => 'form-data',
Content => [
project => $project,
email => $email,
token => $token,
version => $version,
description => $desc,
file => [ $covTarball, $shortName,
Content_Type => $mimetype,
],
],
);

# The Coverity HTTP endpoint doesn't handle errors very well, and always
# returns a 200 :(
my $results = $resp->decoded_content;
if ($results =~ /ERROR!/) {
print STDERR "CoverityScan.pm: upload error - ", $resp->decoded_content, "\n";
return;
}

# Just for sanity, in case things change later
unless ($results =~ /Your request has been submitted/) {
print STDERR "CoverityScan.pm: upload error, didn't find expected response - ", $resp->decoded_content, "\n";
}
}

1;