From 21b89205cdef485ddc3d039e94ac791590bcff91 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 22 Aug 2019 00:23:41 +0200
Subject: [PATCH] store match history for all members

---
 getsc2clan | 10 ++++++++++
 1 file changed, 10 insertions(+)

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
-- 
2.30.0