# Mp3tag (v2.36 and above) Cover art from Amazon Web Service
#
# 2005-11-27 initial release by Florian
# Last modified 2014-10-26 by Florian
#
# Save it in your Mp3tag data directory, i.e.
# C:\Documents and Settings\*username*\Application Data\Mp3tag\data\sources
#
#
[Name]=Cover - Amazon.co.uk
[BasedOn]=webservices.amazon.co.uk
[IndexUrl]=http://webservices.amazon.co.uk/onca/xml?Service=AWSECommerceService&AssociateTag=none&Operation=ItemSearch&SearchIndex=Music&Keywords=%s&ItemPage=1&ResponseGroup=ItemAttributes,Small,Images
[AlbumUrl]=http://webservices.amazon.co.uk/onca/xml?Service=AWSECommerceService&AssociateTag=none&Operation=ItemLookup&ItemId
[WordSeperator]=%20
[IndexFormat]=%_url%|%_preview%|%Cover%|%Interpret%|%Format%|%Label%|%Datum%|%Album%
[SearchBy]=%album%
[ParserScriptIndex]=...
# ###################################################################
# I N D E X
# ###################################################################
#debug "on" "c:\debug_Cover___Amazon.co.uk_A.html" "5"
regexpreplace "[^<]+" ""
findinline "" 1 1
do
say "="
findinline "" -1
sayregexp "(?<=)[^<]+(?=)" ", " ""
say "&ItemPage=1&ResponseGroup=ItemAttributes,Small,Tracks,Images"
say "|"
findinline ""
sayuntil ""
say "|"
# Cover size
findinline ""
if ""
sayregexp "(?<=)\d+(?=)" "" ""
say "x"
sayregexp "(?<=)\d+(?=)" "" ""
else
findinline "" 1 1
sayregexp "(?<=)\d+(?=)" "" ""
say "x"
sayregexp "(?<=)\d+(?=)" "" ""
endif
say "|"
# Artist
findinline ""
if ""
findinline ""
sayuntil ""
else
if ""
sayuntil ""
else
if ""
findinline ""
sayuntil ""
endif
endif
endif
say "|"
# Format
sayregexp "(?<=)[^<]+(?=)" ", " ""
say "|"
# Publisher
sayregexp "(?<=)" ", " ""
say "|"
# Released
sayregexp "(?<=)[-0-9]{4,10}(?=)" ", " ""
say "|"
#Album
findinline ""
sayuntil ""
saynewline
findinline "" 1 1
while ""
[ParserScriptAlbum]=...
# ###################################################################
# A L B U M
# ###################################################################
#debug "on" "c:\debug_Cover___Amazon.co.uk_B.html" "5"
# CoverURL
outputto "coverurl"
findinline "" 1 1
movechar -12
if ""
findinline ""
sayuntil ""
else
findline ""
findinline "" 1 1
movechar -13
if ""
findinline ""
sayuntil ""
else
findline ""
endif
endif