git.shiar.nl
/
sc2-widget
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
store match history for all members
[sc2-widget]
/
getsc2clan
diff --git
a/getsc2clan
b/getsc2clan
index 02990826636280b35663c791a9d8872c883334c5..86cb3b870a2fb588906044d2baecfc27286bd5e7 100755
(executable)
--- a/
getsc2clan
+++ b/
getsc2clan
@@
-67,6
+67,15
@@
my (@members, %memberidx);
$memberidx{ $_->{id} } //= push(@members, $_) && $#members
for map { $_->{characters}->@* } @ladders;
$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},
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],
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
}) =~ s/(?: \G \d,? | \[ ) \K \s+ (?=\d|\])/ /grx; # concat arrays of single digits