#!/usr/local/bin/perl
# Get Amazon associate report
# Copyright (C)2005 GORRY.

# Login Name/Password
$email = 'email';
$password = 'password';

# Save Filename
$reportpage_name = 'report.htm';
$reportxml_name = 'report.xml';

# Access URL
$url_start = "https://affiliate.amazon.co.jp/gp/associates/login/login.html";
$url_report_page = "https://affiliate.amazon.co.jp/gp/associates/network/reports/report.html/?ie=UTF8&reportType=ordersReport&reportLevel=verbose";
$url_report_xml = "https://affiliate.amazon.co.jp/gp/associates/network/reports/report.html/?ie=UTF8&reportType=ordersReport&submit.download_XML";

# use strict;
use WWW::Mechanize;
# require 'getasrep.ph';

$mech = WWW::Mechanize->new();
$mech->agent_alias('Windows IE 6');

# start
$mech->get($url_start);

# input ID and Password
$mech->form_number(1);
$mech->field(email => $email);
$mech->field(password => $password);
$mech->click();

# View Order Report Page with verbose flag
$mech->get($url_report_page);

# Get Order Report Page
$report = $mech->content();
open( FOUT, ">$reportpage_name");
print FOUT $report;
close( FOUT );

# View Order Report XML
$mech->get($url_report_xml);

# Get Report XML
$report = $mech->content();
open( FOUT, ">$reportxml_name");
print FOUT $report;
close( FOUT );

#[EOF]