X-Git-Url: http://git.shiar.nl/sc2-widget/blobdiff_plain/d16a6c90ab992881c1e4fb01f9aeee819c7da84c..21b89205cdef485ddc3d039e94ac791590bcff91:/getsc2clan diff --git a/getsc2clan b/getsc2clan index 0299082..86cb3b8 100755 --- a/getsc2clan +++ b/getsc2clan @@ -67,6 +67,15 @@ my (@members, %memberidx); $memberidx{ $_->{id} } //= push(@members, $_) && $#members for map { $_->{characters}->@* } @ladders; +my @games; +for my $member (map { $_->{id} } @members) { + my $usergames = blizget(legacy => @realmget => $member => 'matches'); + for ($usergames->{matches}->@*) { + $_->{player} = $memberidx{$member}; + push @games, $_; + } +} + say JSON->new->canonical->pretty->encode({ name => $members[0]->{clanName}, tag => $members[0]->{clanTag}, @@ -91,4 +100,5 @@ say JSON->new->canonical->pretty->encode({ blizget(metadata => @realmget => $_->{id}) # lacks mmr, fav race (available in new api) } @members], + matches => [nsort_by { -$_->{date} } @games], }) =~ s/(?: \G \d,? | \[ ) \K \s+ (?=\d|\])/ /grx; # concat arrays of single digits