ahuston-0/hydra
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

sync gitea changes with github changes

Browse Source
This commit is contained in:
ahuston-0
2025-09-07 23:26:43 -04:00
parent 3bc4685259
commit db6fcabbf3
2 changed files with 11 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/lib/Hydra/Plugin/GiteaPulls.pm
View File

@@ -16,6 +16,7 @@ use HTTP::Request;
use LWP::UserAgent; use LWP::UserAgent;
use JSON::MaybeXS; use JSON::MaybeXS;
use Hydra::Helper::CatalystUtils; use Hydra::Helper::CatalystUtils;
use Hydra::Helper::Nix;
use File::Temp; use File::Temp;
use POSIX qw(strftime); use POSIX qw(strftime);
@@ -26,19 +27,18 @@ sub supportedInputTypes {
sub _iterate { sub _iterate {
my ($url, $auth, $pulls, $ua) = @_; my ($url, $auth, $pulls, $ua) = @_;
my $req = HTTP::Request->new('GET', $url); my $req = HTTP::Request->new('GET', $url);
$req->header('Accept' => 'application/json');
$req->header('Authorization' => 'token ' . $auth) if defined $auth; $req->header('Authorization' => 'token ' . $auth) if defined $auth;
my $res = $ua->request($req); my $res = $ua->request($req);
my $content = $res->decoded_content; my $content = $res->decoded_content;
die "Error pulling from the gitea pulls API: $content\n" die "Error pulling from the gitea pulls API: $content\n"
unless $res->is_success; unless $res->is_success;
my $pulls_list = decode_json $content; my $pulls_list = decode_json $content;
# TODO Stream out the json instead
foreach my $pull (@$pulls_list) { foreach my $pull (@$pulls_list) {
$pulls->{$pull->{number}} = $pull; $pulls->{$pull->{number}} = $pull;
} }
# TODO Make Link header parsing more robust!!! # TODO Make Link header parsing more robust!!!
@@ -71,12 +71,10 @@ sub fetchInput {
my $tempdir = File::Temp->newdir("gitea-pulls" . "XXXXX", TMPDIR => 1); my $tempdir = File::Temp->newdir("gitea-pulls" . "XXXXX", TMPDIR => 1);
my $filename = "$tempdir/gitea-pulls.json"; my $filename = "$tempdir/gitea-pulls.json";
open(my $fh, ">", $filename) or die "Cannot open $filename for writing: $!"; open(my $fh, ">", $filename) or die "Cannot open $filename for writing: $!";
print $fh encode_json \%pulls; print $fh JSON->new->utf8->canonical->encode(\%pulls);
close $fh; close $fh;
my $storePath = trim(`nix-store --add "$filename"` my $storePath = addToStore($filename);
or die "cannot copy path $filename to the Nix store.\n");
chomp $storePath;
my $timestamp = time; my $timestamp = time;
return { storePath => $storePath, revision => strftime "%Y%m%d%H%M%S", gmtime($timestamp) }; return { storePath => $storePath, revision => strftime "%Y%m%d%H%M%S", gmtime($timestamp) };
} }

8
src/lib/Hydra/Plugin/GiteaRefs.pm
View File

@@ -7,8 +7,10 @@ use HTTP::Request;
use LWP::UserAgent; use LWP::UserAgent;
use JSON::MaybeXS; use JSON::MaybeXS;
use Hydra::Helper::CatalystUtils; use Hydra::Helper::CatalystUtils;
use Hydra::Helper::Nix;
use File::Temp; use File::Temp;
use POSIX qw(strftime); use POSIX qw(strftime);
use IPC::Run qw(run);
=head1 NAME =head1 NAME
@@ -118,10 +120,8 @@ sub fetchInput {
open(my $fh, ">", $filename) or die "Cannot open $filename for writing: $!"; open(my $fh, ">", $filename) or die "Cannot open $filename for writing: $!";
print $fh encode_json \%refs; print $fh encode_json \%refs;
close $fh; close $fh;
system("jq -S . < $filename > $tempdir/gitea-refs-sorted.json"); run(["jq", "-S", "."], '<', $filename, '>', "$tempdir/gitea-refs-sorted.json") or die "jq command failed: $?";
my $storePath = trim(qx{nix-store --add "$tempdir/gitea-refs-sorted.json"} my $storePath = addToStore("$tempdir/gitea-refs-sorted.json");
or die "cannot copy path $filename to the Nix store.\n");
chomp $storePath;
my $timestamp = time; my $timestamp = time;
return { storePath => $storePath, revision => strftime "%Y%m%d%H%M%S", gmtime($timestamp) }; return { storePath => $storePath, revision => strftime "%Y%m%d%H%M%S", gmtime($timestamp) };
} }