mirror of
https://github.com/qgis/QGIS.git
synced 2025-11-04 00:04:25 -05:00
124e26815d
* Use portable /usr/bin/env/{perl,python} instead of /usr/bin/{perl,python}
* fix perl;add bash
* Fix indentation using modified scripts
* Revert "fix perl;add bash"
This reverts commit be8b9113c25f7c2fb9c8c9bad556fbca2f0c0ba2.
* python3 everywhere
* more bash
* rebase
change perl
* Linux perl; missing from last PR
* fix doxygen_space
* Use portable /usr/bin/env/{perl,python} instead of /usr/bin/{perl,python}
* fix perl;add bash
* Fix indentation using modified scripts
* Revert "fix perl;add bash"
This reverts commit be8b9113c25f7c2fb9c8c9bad556fbca2f0c0ba2.
* python3 everywhere
* more bash
* rebase
change perl
* fix doxygen_space
31 lines
878 B
Perl
31 lines
878 B
Perl
#!/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} } );
|
|
}
|