use strict;
use warnings;
use MIME::Base64;
use LWP::UserAgent;
pid('{"profileIconId": 29}');
sub pid {
my ($a,$p) = @{auth()};
my $u = LWP::UserAgent->new(
ssl_opts => { verify_hostname => 0 },
protocols_allowed => ['https']
);
my $r = HTTP::Request->new('PUT', "https://127.0.0.1:$p/lol-summoner/v1/current-summoner/icon" );
$r->header('Accept' => 'application/json');
$r->header('Content-Type' => 'application/json');
$r->header('Authorization' => "Basic $a");
$r->content($_[0]);
my %data = map { (split/:/)[0] => (split/:/)[1] } split/,/,
$u->request($r)->content =~ s/(?:[{"}\n]|\s{2,})//gr;
print map { sprintf("%30s\t%-15s\n",$_,$data{$_}) }
keys %data
}
sub auth {
my $proc = `WMIC path win32_process get Caption,Commandline | find "--remoting-auth-token="`;
if ($proc =~ /--remoting-auth-token=(\S+)".*?--app-port=(\d+)/) {
return [ encode_base64(qq(\x72\x69\x6f\x74:$1)), $2 ]
}
}