import QueryFoldoc

import Control.Monad

import Network.XmlRpc.Server

foldoc_getEntries :: String -> IO [String]
foldoc_getEntries s = liftM (map show) (findEntries s)


main = cgiXmlRpcServer [
			("foldoc.getEntries", fun foldoc_getEntries)
		       ]