[perl5.git] / Porting / perlgov-team-update

#!/usr/bin/env perl
use v5.30.0;
use warnings;
use Encode qw(encode);
use JSON::PP;

my $file = 'Porting/core-team.json';
open my $fh, '<:encoding(UTF-8)', $file
  or die "can't read $file: $!\n";

my $json = do { local $/; <$fh> };

my $data = JSON::PP->new->decode($json);

my $pod = q{};

for my $key (qw( active inactive )) {
  $pod .= qq{=head2 \u$key Members\n\n=over 4\n\n};

  my @items = map {; encode('utf-8', "<$_>") } $data->{$key}->@*;

  open(my $fh, '-|', 'git', 'check-mailmap', @items)
    or die "error running check-mailmap: $!";

  my @lines = <$fh>;

  $pod .= "=item $_\n" for sort @lines;

  $pod .= "=back\n\n";
}

say $pod;
Commit	Line	Data
c5df33d3 RS	1	#!/usr/bin/env perl
	2	use v5.30.0;
	3	use warnings;
98f77c3a	4	use Encode qw(encode);
c5df33d3 RS	5	use JSON::PP;
	6
	7	my $file = 'Porting/core-team.json';
98f77c3a RS	8	open my $fh, '<:encoding(UTF-8)', $file
	9	or die "can't read $file: $!\n";
	10
	11	my $json = do { local $/; <$fh> };
	12
	13	my $data = JSON::PP->new->decode($json);
c5df33d3 RS	14
	15	my $pod = q{};
	16
	17	for my $key (qw( active inactive )) {
	18	$pod .= qq{=head2 \u$key Members\n\n=over 4\n\n};
	19
98f77c3a	20	my @items = map {; encode('utf-8', "<$_>") } $data->{$key}->@*;
c5df33d3 RS	21
	22	open(my $fh, '-\|', 'git', 'check-mailmap', @items)
	23	or die "error running check-mailmap: $!";
	24
	25	my @lines = <$fh>;
	26
	27	$pod .= "=item $_\n" for sort @lines;
	28
	29	$pod .= "=back\n\n";
	30	}
	31
	32	say $pod;