I am trying to logon to my Amazon Seller Central account and upload a Order file. I cannot seem to get the following to work. Any help would be greatly appreciated!
use strict;
use HTTP::Headers;
use HTTP::Cookies;
use HTTP::Request::Common;
use LWP::UserAgent;
my $file='testfile.txt';
uploadFileToAmazon($file);
sub uploadFileToAmazon{
my $file=shift;
my $ua = LWP::UserAgent->new;
$ua->cookie_jar(HTTP::Cookies->new(autosave => 1 ));
$ua->max_redirect(20);
push @{ $ua->requests_redirectable }, 'POST';
#First Sign into Amazon SellerCentral account with cookies enabled
+ so they get passed on
my $url='https://sellercentral.amazon.com/gp/sign-in/sign-in.html'
+;
my %form=(
protocol => "https",
action => "sign-in",
email => $Username,
optin => 1,
ouid => "01",
password => $Password
);
my $res=$ua->post( $url,\%form);
#then post the file and pass in the info
$url='https://sellercentral.amazon.com/gp/upload-download-utils/up
+load.html';
my %form=(
uploadType => "ShippingConfirmation",
uploadFileName =>[$file]
);
my $res=$ua->post( $url,'Content-Type' => "multipart/form-data"
+,Content=>\%form);
#Display the contents of the response
return $res->content;
}
