16811d3e78
Plugins are now disabled at startup time unless there is some relevant configuration in hydra.conf. This avoids hydra-notify having to do a lot of redundant work (a lot of plugins did a lot of database queries *before* deciding they were disabled). Note: BitBucketStatus users will need to add 'enable_bitbucket_status = 1' to hydra.conf.
115 lines
4.6 KiB
Perl
115 lines
4.6 KiB
Perl
package Hydra::Plugin::GithubStatus;
|
|
|
|
use strict;
|
|
use parent 'Hydra::Plugin';
|
|
use HTTP::Request;
|
|
use JSON;
|
|
use LWP::UserAgent;
|
|
use Hydra::Helper::CatalystUtils;
|
|
use List::Util qw(max);
|
|
|
|
sub isEnabled {
|
|
my ($self) = @_;
|
|
return defined $self->{config}->{githubstatus};
|
|
}
|
|
|
|
sub toGithubState {
|
|
my ($buildStatus) = @_;
|
|
if ($buildStatus == 0) {
|
|
return "success";
|
|
} elsif ($buildStatus == 3 || $buildStatus == 4 || $buildStatus == 8 || $buildStatus == 10 || $buildStatus == 11) {
|
|
return "error";
|
|
} else {
|
|
return "failure";
|
|
}
|
|
}
|
|
|
|
sub common {
|
|
my ($self, $build, $dependents, $finished) = @_;
|
|
my $cfg = $self->{config}->{githubstatus};
|
|
my @config = defined $cfg ? ref $cfg eq "ARRAY" ? @$cfg : ($cfg) : ();
|
|
my $baseurl = $self->{config}->{'base_uri'} || "http://localhost:3000";
|
|
|
|
# Find matching configs
|
|
foreach my $b ($build, @{$dependents}) {
|
|
my $jobName = showJobName $b;
|
|
my $evals = $build->jobsetevals;
|
|
my $ua = LWP::UserAgent->new();
|
|
|
|
foreach my $conf (@config) {
|
|
print STDERR "GithubStatus_Debug job name $jobName\n";
|
|
next unless $jobName =~ /^$conf->{jobs}$/;
|
|
# Don't send out "pending" status updates if the build is already finished
|
|
next if !$finished && $b->finished == 1;
|
|
|
|
my $contextTrailer = $conf->{excludeBuildFromContext} ? "" : (":" . $b->id);
|
|
my $github_job_name = $jobName =~ s/-pr-\d+//r;
|
|
my $extendedContext = $conf->{context} // "continuous-integration/hydra:" . $jobName . $contextTrailer;
|
|
my $shortContext = $conf->{context} // "ci/hydra:" . $github_job_name . $contextTrailer;
|
|
my $context = $conf->{useShortContext} ? $shortContext : $extendedContext;
|
|
my $body = encode_json(
|
|
{
|
|
state => $finished ? toGithubState($b->buildstatus) : "pending",
|
|
target_url => "$baseurl/build/" . $b->id,
|
|
description => $conf->{description} // "Hydra build #" . $b->id . " of $jobName",
|
|
context => $context
|
|
});
|
|
my $inputs_cfg = $conf->{inputs};
|
|
my @inputs = defined $inputs_cfg ? ref $inputs_cfg eq "ARRAY" ? @$inputs_cfg : ($inputs_cfg) : ();
|
|
my %seen = map { $_ => {} } @inputs;
|
|
while (my $eval = $evals->next) {
|
|
foreach my $input (@inputs) {
|
|
my $i = $eval->jobsetevalinputs->find({ name => $input, altnr => 0 });
|
|
next unless defined $i;
|
|
my $uri = $i->uri;
|
|
my $rev = $i->revision;
|
|
my $key = $uri . "-" . $rev;
|
|
next if exists $seen{$input}->{$key};
|
|
$seen{$input}->{$key} = 1;
|
|
$uri =~ m/([^/]+?)(?:.git)?$!;
|
|
my $owner = $1;
|
|
my $repo = $2;
|
|
my $url = "https://api.github.com/repos/$owner/$repo/statuses/$rev";
|
|
print STDERR "GithubStatus_Debug POSTing to '", $url, "'\n";
|
|
my $req = HTTP::Request->new('POST', $url);
|
|
$req->header('Content-Type' => 'application/json');
|
|
$req->header('Accept' => 'application/vnd.github.v3+json');
|
|
$req->header('Authorization' => ($self->{config}->{github_authorization}->{$owner} // $conf->{authorization}));
|
|
$req->content($body);
|
|
my $res = $ua->request($req);
|
|
print STDERR $res->status_line, ": ", $res->decoded_content, "\n" unless $res->is_success;
|
|
my $limit = $res->header("X-RateLimit-Limit");
|
|
my $limitRemaining = $res->header("X-RateLimit-Remaining");
|
|
my $limitReset = $res->header("X-RateLimit-Reset");
|
|
my $now = time();
|
|
my $diff = $limitReset - $now;
|
|
my $delay = (($limit - $limitRemaining) / $diff) * 5;
|
|
if ($limitRemaining < 1000) {
|
|
$delay = max(1, $delay);
|
|
}
|
|
if ($limitRemaining < 2000) {
|
|
print STDERR "GithubStatus ratelimit $limitRemaining/$limit, resets in $diff, sleeping $delay\n";
|
|
sleep $delay;
|
|
} else {
|
|
print STDERR "GithubStatus ratelimit $limitRemaining/$limit, resets in $diff\n";
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
sub buildQueued {
|
|
common(@_, [], 0);
|
|
}
|
|
|
|
sub buildStarted {
|
|
common(@_, [], 0);
|
|
}
|
|
|
|
sub buildFinished {
|
|
common(@_, 1);
|
|
}
|
|
|
|
1;
|