drdrang/Amazon referral link

## Amazon referral link
set myTag to "thingy"

tell application "Safari" to set theURL to the URL of the front document

set cmd to "echo '" & theURL & "' | perl -pe 's#^.*/(?:dp|gp/product)/([^/?]+).*$#$1#'"
set itemID to do shell script cmd

set aLink to "http://www.amazon.com/gp/product/" & itemID & "?tag=" & myTag
	set myTag to "thingy"

	tell application "Safari" to set theURL to the URL of the front document

	set cmd to "echo '" & theURL & "' \| perl -pe 's#^./(?:dp\|gp/product)/([^/?]+).$#$1#'"
	set itemID to do shell script cmd

	set aLink to "http://www.amazon.com/gp/product/" & itemID & "?tag=" & myTag