sharpetronics/QGIS
1
0
Fork 0
mirror of https://github.com/qgis/QGIS.git synced 2025-02-22 00:06:12 -05:00
Code Issues Packages Projects Releases Wiki Activity

Remove unused script for listing pull requests

Browse Source
This commit is contained in:
Nyall Dawson 2025-01-31 09:39:46 +10:00
parent 096d6d0b58
commit 7a0e929ca7
1 changed files with 0 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
scripts/listpulls.pl
View File

@ -1,30 +0,0 @@
#!/usr/bin/env perl
use strict;
use warnings;
use JSON;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 });
my $res = $ua->get( "https://api.github.com/repos/qgis/qgis/pulls" );
die "pull request retrieval failed: " . $res->status_line unless $res->is_success;
my %assigned;
printf "%5s %-16s %s\n", "#", "Assignee", "Title";
foreach my $pull ( sort { $a->{number} <=> $b->{number} } @{ JSON::from_json( $res->decoded_content ) } ) {
my $assignee = $pull->{assignee}->{login};
$assignee = "" unless defined $assignee;
push @{ $assigned{$assignee} }, $pull->{number};
printf "%5d %-16s %s\n", $pull->{number}, $assignee || "", $pull->{title};
}
print "\nASSIGNMENTS:\n";
foreach my $assignee ( sort keys %assigned ) {
printf "%-22s %s\n", $assignee || "unassigned", join( ", ", sort { $a <=> $b } @{ $assigned{$assignee} } );
}