ClearSafariCacheAndHistory update

If anybody is interested, I updated my macro script for Yosemite in raw form (hardly any error checking) non-international:

-- clear Safari caches and history
tell application "Safari"
	launch
	activate
	if not (exists document 1) then
		make new document at front
	end if
end tell
delay 1
tell application "System Events"
	keystroke "e" using {option down, command down}
	tell process "Safari"
		tell menu bar 1
			tell menu "History"
				tell menu item "Clear History and Website Data."
					click
					every UI element
				end tell
			end tell
		end tell
		tell window 1
			tell sheet 1
				tell button "Clear History"
					click
				end tell
			end tell
		end tell
	end tell
end tell
tell application "Safari" to quit

I don’t know how to get indices for international versions, but you might use this as an algorithm.

Edited: note that I have my preferences set at 1 hour clearing for clearing the history.

gl,
kel