Didn't work earlier, but seems fine now and much faster.
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,
- token_endpoint => 'https://us.battle.net/oauth/token',
+ token_endpoint => 'https://eu.battle.net/oauth/token',
request_required_params => [qw( client_id client_secret grant_type )],
);
$bliz->request_tokens(grant_type => 'client_credentials');
sub blizget {
my $args = join('/', @_);
request_required_params => [qw( client_id client_secret grant_type )],
);
$bliz->request_tokens(grant_type => 'client_credentials');
sub blizget {
my $args = join('/', @_);
- my $res = $bliz->get("https://us.api.blizzard.com/sc2/$args");
+ my $res = $bliz->get("https://eu.api.blizzard.com/sc2/$args");
$res->is_success or die $res->status_line;
my $json = $res->decoded_content;
return decode_json($json);
$res->is_success or die $res->status_line;
my $json = $res->decoded_content;
return decode_json($json);