Itunes Connect Report Downloader

itc.pl

#!perl
use common::sense;
use HTTP::Request::Common;
use LWP::UserAgent;
use URI;
use Compress::Zlib;
use Perl6::Say;

my $uri = URI->new("https://reportingitc.apple.com/autoingestion.tft");

my $req = POST($uri, {
    USERNAME     => "",
    PASSWORD     => "",
    VNDNUMBER    => "", ## ITC Vender ID
    TYPEOFREPORT => "Sales",
    DATETYPE     => "Weekly", ## Daily or Weekly
    REPORTTYPE   => "Summary", ## Summary
    REPORTDATE   => "", ## YYYYMMDD
});

my $ua = LWP::UserAgent->new;
my $res = $ua->request($req);
say Compress::Zlib::memGunzip($res->content);