-- Access Safari and save page
 
on run argv
 
        -- check for input arguments or show help
	if (count of argv) is less than 2 then
		return "Not enough arguments were given!" & myHelp()
	end if
 
        -- join arguments from 2nd to last
	set theWords to item 2 of argv
	repeat with i from 3 to (number of items of argv)
		set theWords to theWords & " " & (item i of argv)
	end repeat
 
        -- output file comes from argument 1
	set sourceFileName to (item 1 of argv)
	set sourceFileName to POSIX file sourceFileName as string
 
        -- play with Safari
	my SearchWords(theWords, sourceFileName)
 
end run
 
-- Search a particular word or group of words
on SearchWords(queryText, sourceFileName)
 
        -- enclose query in quotes
	set queryText to "\"" & queryText & "\""
 
	tell application "Safari" to activate
	-- add some random delay
	delay (random number from 2 to 5)
	tell application "Safari"
		-- open new window and move to the search bar
		make new document
		tell application "System Events"
			tell process "Safari"
				keystroke "l" using {command down}
				delay 1
				keystroke tab
				delay 1
				keystroke queryText
				delay 1
				keystroke return
			end tell
		end tell
		delay 3
 
		-- wait until page loads
		set web_page_is_loaded to false
		set myCounter to 0
		set maxCounter to 50
		set my_delay to 2
		repeat until web_page_is_loaded is true
			-- change words here depending on home page
			if name of window 1 contains "Loading" or name of window 1 contains "Untitled" then
				delay my_delay
			else
				set web_page_is_loaded to true
			end if
			set myCounter to myCounter + 1
			if myCounter is maxCounter then
				set web_page_is_loaded to true
			end if
		end repeat
		delay 1
 
		if name of window 1 contains "Loading" or name of window 1 contains "Untitled" or name of window 1 contains "http://www." then
			-- do nothing! results didn't load...
		else
			-- save results page
			save document 1 in file sourceFileName
		end if
 
	end tell
 
	-- close window
	tell application "System Events"
		tell process "Safari"
			keystroke "w" using {command down}
			delay 1
		end tell
	end tell
 
end QueryWords
 
 
-- Command usage
on myHelp()
	return "
You should pass the output file path and a list of words (at least one) through the command line.
this-applescript output-file word1 [word2] [word3] [...]"
end myHelp

arch -i386 osascript this-applescript-path output-path word1 [word2] ...