drdrang · October 17, 2014 18:50
diff --git a/Amazon referral link b/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