Errata

Amazon has changed their Wish List HTML, so the screen scraping wasn't working properly. Below is an
updated version:

(*
Find Wish Lists in Address Book

The script loops through people in your Address Book, checking Amazon
to see if they have a Wish List. If their Wish List is found, you
have the option to view it in your default browser.

by Paul Bausch
*)

-- set some variables for the curl command

set userAgent to "Mozilla/5.0 (Macintosh; U; PPC Mac OSX; en-us)"
set curlCommand to "curl -i -b -A -L "" & userAgent & "" "

-- open Address Book and loop through people

tell application "Address Book"
repeat with thisPerson in the people
set thisName to name of thisPerson
repeat with thisAddress in email of thisPerson
set thisEmail to value of thisAddress

-- build the URL that will search for the Wish List

set baseURL to "http://www.amazon.com/gp/registry/search.html"
set thisURL to baseURL & "/?type=wishlist\&field-name=" & thisEmail

-- use curl to fetch the search page

-- display dialog thisURL
-- quit

set thisWishPage to do shell script curlCommand & thisURL

-- if the Wish List URL is found in headers, prompt user for action

if thisWishPage contains "&id=" then
set theAction to display dialog thisName & " has an Amazon wishlist."
buttons {"View", "Ignore"}
if button returned of theAction is "View" then

-- build Wish List URL based on ID, and bring up

set beginID to (offset of "&id=" in thisWishPage) + 4
set thisWishID to get text beginID thru (beginID + 16) of
thisWishPage

set beginID to 1
set endID to (offset of return in thisWishID) - 1
set thisWishID to get text beginID thru endID of thisWishID

tell me to open location "http://www.amazon.com/o/registry/" &
thisWishID
end if
end if
end repeat
end repeat
end tell