--[[
search.lua
Last modified 2005-11-15
]]

require "compat"  -- macros.dll compatibility functions (index, substr, etc.)

function search(hwnd)
	-- Try answering "d something" at the prompt.
	
	local DEFAULT = "http://www.google.com/search?q="
	
	local query
	local keyword
	local engine, searched
	local space
	
	query = prompt(hwnd, "<none> = Google; d = dict.org; km = K-Meleon forums; w = Wikipedia")
	
	if query then  -- dialog not canceled
		space = index(query, " ")
		if space == -1 then  -- no space character
			engine = DEFAULT
			searched = query
		else
			keyword = substr(query, 0, space)
			searched = substr(query, space + 1)
			if keyword == "d" then
				engine = "http://dict.org/bin/Dict?Form=Dict2&Database=*&Query="
			elseif keyword == "km" then
				engine = "http://kmeleon.sourceforge.net/forum/search.php?f=3&globalsearch=1&match=1&date=0&fldsubject=1&fldbody=1&search="
			elseif keyword == "w" then
				engine = "http://www.wikipedia.org/w/wiki.phtml?search="
			else  -- keyword not recognized
				engine = DEFAULT
				searched = query  -- revert to original query
			end
		end
		
		open(engine .. searched)
	end
end