git.shiar.nl
/
sc2-widget
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
match multiple clan names
[sc2-widget]
/
getsc2clan
diff --git
a/getsc2clan
b/getsc2clan
index 60cbc1a50d7521153bc662bec71ed1cad89544dd..498d0a31622d2b88f6087a5cf461d3972368f78b 100755
(executable)
--- a/
getsc2clan
+++ b/
getsc2clan
@@
-8,9
+8,10
@@
use LWP::Authen::OAuth2;
use JSON qw( decode_json );
use List::Util qw( all );
use JSON qw( decode_json );
use List::Util qw( all );
-my ($profileid,
$clanmatch) = @ARGV; # clan host and name
+my ($profileid,
@clanmatches) = @ARGV; # clan host and names
$profileid and $profileid =~ /\A\d+\z/
$profileid and $profileid =~ /\A\d+\z/
- or die "Usage: $0 <profile id> [<clan name>]\n";
+ or die "Usage: $0 <profile id> [<clan name>...]\n";
+my ($clanmatch) = map { $_ && qr/\A(?:$_)\z/i } join '|', @clanmatches;
my %auth = do './.blizzard.passwd.pl' or die "no auth setup: $!\n";
my $bliz = LWP::Authen::OAuth2->new(%auth,
my %auth = do './.blizzard.passwd.pl' or die "no auth setup: $!\n";
my $bliz = LWP::Authen::OAuth2->new(%auth,
@@
-37,7
+38,7
@@
my @ladders = (
} # activity desc
grep {
!$clanmatch or
} # activity desc
grep {
!$clanmatch or
- all {
fc $_->{clanName} eq fc
$clanmatch } $_->{characters}->@*
+ all {
$_->{clanName} =~
$clanmatch } $_->{characters}->@*
} # members
grep { $_->{ladder}->[0]->{division} }
$ladderdata->{currentSeason}->@*
} # members
grep { $_->{ladder}->[0]->{division} }
$ladderdata->{currentSeason}->@*