blob: df2123271d5d569a4ab4b9b307e6924fdb2849ab (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
#!/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;
|