forked from lix-project/hydra
Add BitBucket plugin
This plugin will post to the build status system in BitBucket. In order to use it you need to add to ExtraConfig <bitbucket> username = bitbucket_username password = bitbucket_password </bitbucket> You can use an application password https://blog.bitbucket.org/2016/06/06/app-passwords-bitbucket-cloud/
This commit is contained in:
parent
9cc25b0c96
commit
fd8cb39a11
69
src/lib/Hydra/Plugin/BitBucketStatus.pm
Normal file
69
src/lib/Hydra/Plugin/BitBucketStatus.pm
Normal file
|
@ -0,0 +1,69 @@
|
||||||
|
package Hydra::Plugin::BitBucketStatus;
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
use parent 'Hydra::Plugin';
|
||||||
|
use HTTP::Request;
|
||||||
|
use JSON;
|
||||||
|
use LWP::UserAgent;
|
||||||
|
use Hydra::Helper::CatalystUtils;
|
||||||
|
|
||||||
|
sub toBitBucketState {
|
||||||
|
my ($buildStatus) = @_;
|
||||||
|
if ($buildStatus == 0) {
|
||||||
|
return "SUCCESSFUL";
|
||||||
|
} else {
|
||||||
|
return "FAILED";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
sub common {
|
||||||
|
my ($self, $build, $dependents, $finished) = @_;
|
||||||
|
my $bitbucket = $self->{config}->{bitbucket};
|
||||||
|
my $baseurl = $self->{config}->{'base_uri'} || "http://localhost:3000";
|
||||||
|
|
||||||
|
foreach my $b ($build, @{$dependents}) {
|
||||||
|
my $jobName = showJobName $b;
|
||||||
|
my $evals = $build->jobsetevals;
|
||||||
|
my $ua = LWP::UserAgent->new();
|
||||||
|
my $body = encode_json(
|
||||||
|
{
|
||||||
|
state => $finished ? toBitBucketState($b->buildstatus) : "INPROGRESS",
|
||||||
|
url => "$baseurl/build/" . $b->id,
|
||||||
|
name => $jobName,
|
||||||
|
key => $jobName,
|
||||||
|
description => "Hydra build #" . $b->id . " of $jobName",
|
||||||
|
});
|
||||||
|
while (my $eval = $evals->next) {
|
||||||
|
foreach my $i ($eval->jobsetevalinputs){
|
||||||
|
next unless defined $i;
|
||||||
|
my $uri = $i->uri;
|
||||||
|
my $rev = $i->revision;
|
||||||
|
# Skip if the uri is not a bitbucket repo
|
||||||
|
next unless index($uri, 'bitbucket') != -1;
|
||||||
|
$uri =~ m![:/]([^/]+)/([^/]+?)?$!;
|
||||||
|
my $owner = $1;
|
||||||
|
my $repo = $2;
|
||||||
|
my $req = HTTP::Request->new('POST', "https://api.bitbucket.org/2.0/repositories/$owner/$repo/commit/$rev/statuses/build");
|
||||||
|
$req->header('Content-Type' => 'application/json');
|
||||||
|
$req->authorization_basic($bitbucket->{username}, $bitbucket->{password});
|
||||||
|
$req->content($body);
|
||||||
|
my $res = $ua->request($req);
|
||||||
|
print STDERR $res->status_line, ": ", $res->decoded_content, "\n" unless $res->is_success;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
sub buildQueued {
|
||||||
|
common(@_, [], 0);
|
||||||
|
}
|
||||||
|
|
||||||
|
sub buildStarted {
|
||||||
|
common(@_, [], 0);
|
||||||
|
}
|
||||||
|
|
||||||
|
sub buildFinished {
|
||||||
|
common(@_, 1);
|
||||||
|
}
|
||||||
|
|
||||||
|
1;
|
Loading…
Reference in a new issue