implementation module ApplicationService

import HTTP
import HtmlUtil
import SystemTypes
from IWorld	import :: IWorld(..), :: ProcessId, :: Control

applicationService :: !String !String ![String] !HTTPRequest !*IWorld -> (!HTTPResponse, !*IWorld)
applicationService url format path req iworld=:{application}
	= case path of
		[] 
			# json = JSONObject [("success", JSONBool True)
								,("application", JSONString application)
								]
			= (serviceResponse (format == "html") "Application info" description url [] json, iworld)
		_	= (notFoundResponse req, iworld)
		
description :== "This service provides basic information about the application such as it's name."