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