#!/usr/bin/perl

###
### Configuration
###

# URL of wishlist source
my $wishlist_url = 'http://chaz6.com/static/content/wishlist.xml';

# Amazon developer token
my $amazon_token = '[Amazon Developer Token]';

# Default locale
#  Possible values: us,uk,de,jp
my $amazon_locale = 'us';

###
### Modules
###

use strict;

use CGI;
use Cache::File;
use LWP::Simple;
use XML::Simple;
use Net::Amazon;

###
### Main
###

# Create a cache object
my $cache = Cache::File->new( 
	cache_root        => '/tmp/mycache',
	default_expires   => '1 day',
);

# Fetch the wishlist
my $wishlist_src = get($wishlist_url);

# Read the wishlist into an XML object
my $wishlist = XMLin($wishlist_src, KeepRoot => 1);

# Create a Net::Amazon object
my $amazon;
my $ua = Net::Amazon->new(token => $amazon_token, cache => $cache);
$amazon->{'us'} = Net::Amazon->new(token => $amazon_token, cache => $cache);
$amazon->{'uk'} = Net::Amazon->new(token => $amazon_token, cache => $cache, locale => 'uk');
$amazon->{'jp'} = Net::Amazon->new(token => $amazon_token, cache => $cache, locale => 'jp');
$amazon->{'de'} = Net::Amazon->new(token => $amazon_token, cache => $cache, locale => 'de');

###########################################################################
################################## Books ##################################
###########################################################################

# Process all the book nodes
my $books = $wishlist->{'wishlist'}->{'book'};

# Remove the old book nodes
$wishlist->{'wishlist'}->{'book'} = undef;

# Create the new node
my @newbooks;

foreach my $book (@{$books}){

	my $bookinfo;

	# Search for book information
	my $locale = $book->{'amazonLocale'} || $amazon_locale;

	# Prefer to use the Amazon ASIN
	if($book->{'amazonAsin'}) {
		$bookinfo = getBookInfo(asin => $book->{'amazonAsin'}, locale => $locale);
	# Fall back to ISBN
	} elsif ($book->{'isbn'}) {
		$bookinfo = getBookInfo(isbn => $book->{'isbn'}, locale => $locale);
	}

	$book->{'imageUrl'}      ||= $bookinfo->{'imageUrl'};
	$book->{'title'}         ||= $bookinfo->{'title'};
	$book->{'publisher'}     ||= $bookinfo->{'publisher'};
	$book->{'year'}          ||= $bookinfo->{'year'};
	$book->{'media'}         ||= $bookinfo->{'media'};
	$book->{'released'}      ||= $bookinfo->{'released'};
	$book->{'imageUrlLarge'} ||= $bookinfo->{'imageUrlLarge'};
	$book->{'detailUrl'}     ||= $bookinfo->{'detailUrl'};

	# Insert the new node into the tree
	push (@newbooks,$book);
}

# Insert the new book nodes into the wishlist
$wishlist->{'wishlist'}->{'book'} = [@newbooks];

###########################################################################
################################## dvds ##################################
###########################################################################

# Process all the dvd nodes
my $dvds = $wishlist->{'wishlist'}->{'dvd'};

# Remove the old dvd nodes
$wishlist->{'wishlist'}->{'dvd'} = undef;

# Create the new node
my @newdvds;

foreach my $dvd (@{$dvds}){

	my $dvdinfo;

	my $locale = $dvd->{'amazonLocale'} || $amazon_locale;

	# Search for dvd information
	if($dvd->{'amazonAsin'}) {
		$dvdinfo = getDvdInfo(asin => $dvd->{'amazonAsin'}, locale => $locale);
	}

	if($dvdinfo){

		$dvd->{'imageUrl'}      ||= $dvdinfo->{'imageUrl'};
		$dvd->{'title'}         ||= $dvdinfo->{'title'};
		$dvd->{'publisher'}     ||= $dvdinfo->{'publisher'};
		$dvd->{'year'}          ||= $dvdinfo->{'year'};
		$dvd->{'media'}         ||= $dvdinfo->{'media'};
		$dvd->{'released'}      ||= $dvdinfo->{'released'};
		$dvd->{'imageUrlLarge'} ||= $dvdinfo->{'imageUrlLarge'};
		$dvd->{'detailUrl'}     ||= $dvdinfo->{'detailUrl'};
	}

	# Insert the new node into the tree
	push (@newdvds,$dvd);
}

# Insert the new book nodes into the wishlist
$wishlist->{'wishlist'}->{'dvd'} = [@newdvds];

# Send the wishlist to the client
print CGI->header(-type=>'application/xml');
print '<?xml version="1.0" standalone="yes"?>';
print "\n";
print '<?xml-stylesheet type="text/xsl" href="/static/xml/wishlist.xsl" media="screen"?>';
print "\n";
print XMLout($wishlist, KeepRoot => 1, NoAttr => 1);

###
### Subroutines
###

sub getBookInfo {

	my %params = @_;
	my $req;

	if(0) {
	} elsif(exists $params{asin}) {
		$req = getAmazonBookByAsin(%params);
	} elsif(exists $params{isbn}) {
		$req = getAmazonBookByIsbn(%params);
	} else {
		warn "Request could not be completed";
		return;
	}

	return $req;
}

sub getDvdInfo {

	my %params = @_;
	my $req;

	if(0) {
	} elsif(exists $params{asin}) {
		$req = getAmazonDvdByAsin(@_);
	} else {
		warn "Request could not be completed";
		return;
	}

	return $req;

}

sub getAmazonBookByAsin {

	my %params = @_;

	my $resp = $amazon->{$params{locale}}->search(asin => $params{asin});

	if($resp->is_success()){

		my $bookinfo = getAmazonBookInfo($resp);
		return $bookinfo;

	}

}

# Separated for future use
sub getAmazonBookByIsbn {

	my %params = @_;
	my $resp = $amazon->{$params{locale}}->search(asin => $params{isbn});

	if($resp->is_success()){

		my $bookinfo = getAmazonBookInfo($resp,$params{locale});
		return $bookinfo;

	}

}

# Takes a Net::Amazon::Search object and returns a hash
sub getAmazonBookInfo {

	my ($resp,$locale) = @_;

	# Get the result
	my ($prop) = $resp->properties;

	# Create the new node
	my $info;
	$info->{'imageUrl'} = $prop->ImageUrlMedium;
	$info->{'title'} = $prop->title;
	$info->{'publisher'} = $prop->publisher;
	$info->{'year'} = $prop->year;
	$info->{'media'} = $prop->Media;
	$info->{'released'} = $prop->ReleaseDate;
	$info->{'imageUrlLarge'} = $prop->ImageUrlLarge;
	$info->{'detailUrl'} = getAmazonUrlPrefix($locale) . $prop->Asin;

	return $info;

}

sub getAmazonDvdByAsin {

	my %params = @_;

	my $resp = $amazon->{$params{locale}}->search(asin => $params{asin});

	if($resp->is_success()){

		my $dvdinfo = getAmazonDvdInfo($resp, $params{locale});
		return $dvdinfo;

	}

}

sub getAmazonDvdInfo {

	my ($resp, $locale) = @_;

	# Get the result
	my ($prop) = $resp->properties;

	# Create the new node
	my $info;
	$info->{'imageUrl'} = $prop->ImageUrlMedium;
	$info->{'title'} = $prop->title;
	#$info->{'publisher'} = $prop->publisher;
	$info->{'year'} = $prop->year;
	$info->{'media'} = $prop->Media;
	$info->{'released'} = $prop->ReleaseDate;
	$info->{'imageUrlLarge'} = $prop->ImageUrlLarge;
	$info->{'locale'} = $locale;
	$info->{'detailUrl'} = getAmazonUrlPrefix($locale) . $prop->Asin;

	return $info;

}

sub getAmazonUrlPrefix {

	my $locale = shift || 'us';

	my $prefix;

	if($locale eq 'us'){
		$prefix = 'http://www.amazon.com/exec/obidos/ASIN/';
	} elsif ($locale eq 'uk'){
		$prefix = 'http://www.amazon.co.uk/exec/obidos/ASIN/';
	} elsif ($locale eq 'jp'){
		$prefix = 'http://www.amazon.co.jp/exec/obidos/ASIN/';
	} elsif ($locale eq 'de'){
		$prefix = 'http://www.amazon.de/exec/obidos/ASIN/';
	} else {
		$prefix = 'http://www.amazon.com/exec/obidos/ASIN/';
	}

	return $prefix;

}