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

remove the need to specify stable / unstable

Browse Source
This commit is contained in:
Aaron Bieber 2023-05-23 10:35:51 -06:00
parent 59f1162e45
commit 83a23e3c00
No known key found for this signature in database
1 changed files with 46 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
pr-status.pl
View File

@ -6,6 +6,7 @@
use strict; use strict;
use warnings; use warnings;
use v5.32; use v5.32;
use Data::Dumper;
use Git; use Git;
use JSON qw( from_json ); use JSON qw( from_json );
@ -19,7 +20,6 @@ my $repo_dir = "/var/lib/pr-status/nixpkgs";
$ENV{"GIT_CONFIG_SYSTEM"} = ""; # Ignore insteadOf rules $ENV{"GIT_CONFIG_SYSTEM"} = ""; # Ignore insteadOf rules
$ENV{"HOME"} = "/tmp"; # Ignore ~/.netrc $ENV{"HOME"} = "/tmp"; # Ignore ~/.netrc
warn Git::exec_path();
Git::command_noisy( 'clone', 'https://github.com/nixos/nixpkgs', $repo_dir ) Git::command_noisy( 'clone', 'https://github.com/nixos/nixpkgs', $repo_dir )
if !-e $repo_dir; if !-e $repo_dir;
my $repo = Git->repository( Directory => $repo_dir ); my $repo = Git->repository( Directory => $repo_dir );
@ -48,44 +48,62 @@ sub check_nixpkg_branches {
foreach my $b ( split( '\n', $branches ) ) { foreach my $b ( split( '\n', $branches ) ) {
$b =~ s/^\s+origin\///g; $b =~ s/^\s+origin\///g;
push( @$list, $b ) if $b =~ m/nixos|nixpkgs|staging|master/; push( @$list, $b )
if $b =~ m/^nixos|^nixpkgs|^staging|^master|^release/;
} }
return $list; return $list;
} }
sub figure_status { sub figure_status {
my $list = shift; my $list = shift;
my $release = shift; my $status = {
my $status = {
state => "complete", state => "complete",
info => {} info => {},
}; };
my $release = "stable";
my @unstable = my @unstable = qw/
qw/ nixos-unstable nixos-unstable-small nixpkgs-unstable staging staging-next /; master
my @stable = qw/ release-22.11 nixos-22.11-small nixos-22.11 /; staging
my @other = qw / master /; staging-next
nixpkgs-unstable
nixos-unstable-small
nixos-unstable
/;
my @stable = (
'staging-\d\d\.\d\d', 'staging-next-\d\d\.\d\d',
'nixos-\d\d\.\d\d-small', 'nixos-\d\d\.\d\d',
'release-\d\d\.\d\d'
);
if ( $release eq "stable" ) { if ( grep /^master$/, @{$list} ) {
foreach my $s (@stable) { $release = "unstable";
$status->{info}->{$s} = grep /$s/, @{$list};
}
}
if ( $release eq "unstable" ) {
foreach my $s (@unstable) { foreach my $s (@unstable) {
$status->{info}->{$s} = grep /^$s$/, @{$list}; $status->{info}->{$s} = JSON::false;
$status->{info}->{$s} = JSON::true if grep /^$s$/, @{$list};
}
}
else {
$release = "stable";
foreach my $s (@stable) {
# handle this stuff with a regex so we don't have to specify "22.11" kinda stuff
my @b = grep /$s/, @{$list};
my $ns = $b[0];
$status->{info}->{$ns} = JSON::false;
$status->{info}->{$ns} = JSON::true if grep /^$s$/, @{$list};
} }
} }
foreach my $b ( keys %{ $status->{info} } ) { foreach my $s ( keys %{ $status->{info} } ) {
if ( !$status->{info}->{$b} ) { if ( $status->{info}->{$s} == JSON::false ) {
$status->{state} = "open"; $status->{state} = "open";
last; last;
} }
} }
return $status; return ( $release, $status );
} }
get '/gc' => sub ($c) { get '/gc' => sub ($c) {
@ -112,9 +130,12 @@ get '/update' => sub ($c) {
); );
}; };
get '/:release/:pr' => sub ($c) { get '/' => sub ($c) {
my $pr = $c->param('pr'); $c->render( text => 'hi' );
my $release = $c->param('release'); };
get '/:pr' => sub ($c) {
my $pr = $c->param('pr');
return unless $pr =~ m/^\d+$/; return unless $pr =~ m/^\d+$/;
@ -124,12 +145,13 @@ get '/:release/:pr' => sub ($c) {
my $list = check_nixpkg_branches $commit; my $list = check_nixpkg_branches $commit;
my $end = time; my $end = time;
my $status = figure_status( $list, $release ); my ( $release, $status ) = figure_status($list);
my $result = { my $result = {
branches => $list, branches => $list,
pull_request => $pr, pull_request => $pr,
status => $status->{state}, status => $status->{state},
release => $release,
status_info => $status->{info}, status_info => $status->{info},
queryTime => sprintf( "%2f", $end - $start ) queryTime => sprintf( "%2f", $end - $start )
}; };