note
	description: "Summary description for {INTERNAL_SERVER_ERROR_CMS_RESPONSE}."
	date: "$Date: 2014-12-19 14:17:32 +0100 (ven., 19 déc. 2014) $"
	revision: "$Revision: 96402 $"

class
	INTERNAL_SERVER_ERROR_CMS_RESPONSE

inherit

	CMS_RESPONSE
		redefine
			custom_prepare
		end

create
	make

feature -- Generation

	custom_prepare (page: CMS_HTML_PAGE)
		do
			page.register_variable (absolute_url (request.path_info, Void), "request")
			page.set_status_code ({HTTP_STATUS_CODE}.internal_server_error)
			page.register_variable (page.status_code.out, "code")
		end

feature -- Execution

	process
			-- Computed response message.
		do
			set_title ("Internal Server Error")
			set_page_title (Void)
			set_main_content ("<em>Internal Server Error</em>")
		end
end

