qbit/pr-status-pl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

return subject of pr

Browse Source
This commit is contained in:
Aaron Bieber 2023-05-23 11:10:53 -06:00
parent a452199d40
commit de0a3de16f
No known key found for this signature in database
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pr-status.pl
View File

@ -31,11 +31,13 @@ sub get_commit {
$repo->command( 'fetch', 'origin', "pull/${pr}/head:pr-status-${pr}" ); $repo->command( 'fetch', 'origin', "pull/${pr}/head:pr-status-${pr}" );
$repo->command( 'checkout', "pr-status-$pr" ); $repo->command( 'checkout', "pr-status-$pr" );
my $commit = $repo->command( 'rev-parse', 'HEAD' ); my $commit = $repo->command( 'rev-parse', 'HEAD' );
my $log = $repo->command( 'log', '-n', '1', '--pretty=format:%s' );
$repo->command( 'checkout', 'master' ); $repo->command( 'checkout', 'master' );
chomp $commit; chomp $commit;
chomp $log;
return $commit; return ( $log, $commit );
} }
sub check_nixpkg_branches { sub check_nixpkg_branches {
@ -141,7 +143,7 @@ get '/:pr' => sub ($c) {
return unless $pr =~ m/^\d+$/; return unless $pr =~ m/^\d+$/;
my $commit = get_commit($pr); my ( $title, $commit ) = get_commit($pr);
my $start = time; my $start = time;
my $list = check_nixpkg_branches $commit; my $list = check_nixpkg_branches $commit;
@ -150,6 +152,7 @@ get '/:pr' => sub ($c) {
my ( $release, $status ) = figure_status($list); my ( $release, $status ) = figure_status($list);
my $result = { my $result = {
title => $title,
branches => $list, branches => $list,
pull_request => $pr, pull_request => $pr,
status => $status->{state}, status => $status->{state},