Renamed {CMS_SETUP} theme_resource_location as theme_assets_location

Added missing known hook in auto register hook. Implemented /theme/* file system response. Implemented $page.type for the smarty template. Added CMS_DEBUG_MODULE . Added NOT_FOUND_ERROR_CMS_RESPONSE .
2014-11-13 19:25:01 +01:00
parent 44a1dd62cb
commit 76bdbeaa2a
9 changed files with 216 additions and 10 deletions
--- a/library/src/modules/cms_debug_module.e
+++ b/library/src/modules/cms_debug_module.e
@@ -0,0 +1,140 @@
+note
+	description: "Summary description for {CMS_DEBUG_MODULE}."
+	date: "$Date: 2014-08-28 13:21:49 +0200 (jeu., 28 août 2014) $"
+	revision: "$Revision: 95708 $"
+
+class
+	CMS_DEBUG_MODULE
+
+inherit
+	CMS_MODULE
+		redefine
+			register_hooks
+		end
+
+--	CMS_HOOK_BLOCK
+
+	CMS_HOOK_AUTO_REGISTER
+
+	SHARED_EXECUTION_ENVIRONMENT
+		export
+			{NONE} all
+		end
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make
+		do
+			name := "debug"
+			version := "1.0"
+			description := "Debug"
+			package := "cms"
+		end
+
+feature -- Router
+
+	router (a_api: CMS_API): WSF_ROUTER
+			-- Router configuration.
+		do
+			create Result.make (1)
+			Result.handle ("/debug/", create {WSF_URI_TEMPLATE_AGENT_HANDLER}.make (agent handle_debug (a_api, ?, ?)))
+		end
+
+feature -- Hooks configuration
+
+	register_hooks (a_response: CMS_RESPONSE)
+			-- Module hooks configuration.
+		do
+			auto_subscribe_to_hooks (a_response)
+--			a_response.subscribe_to_block_hook (Current)
+		end
+
+feature -- Hooks
+
+--	block_list: ITERABLE [like {CMS_BLOCK}.name]
+--		do
+--			Result := <<"debug-info">>
+--		end
+
+--	get_block_view (a_block_id: READABLE_STRING_8; a_response: CMS_RESPONSE)
+--		local
+--			b: CMS_CONTENT_BLOCK
+--		do
+--			create b.make ("debug-info", "Debug", "... ", a_response.formats.plain_text)
+--			a_response.add_block (b, Void)
+--		end
+
+feature -- Handler		
+
+	handle_debug (api: CMS_API; req: WSF_REQUEST; res: WSF_RESPONSE)
+		local
+			r: CMS_RESPONSE
+			s: STRING
+		do
+			if req.is_get_request_method then
+				create {GENERIC_VIEW_CMS_RESPONSE} r.make (req, res, api)
+				r.set_title ("DEBUG")
+
+				create s.make_empty
+				append_info_to ("Name", api.setup.site_name, r, s)
+				append_info_to ("Url", api.setup.site_url, r, s)
+
+				if attached api.setup.configuration.configuration_location as l_loc then
+					s.append ("<hr/>")
+					append_info_to ("Configuration file", l_loc.name, r, s)
+				end
+
+				s.append ("<hr/>")
+
+				append_info_to ("Current dir", execution_environment.current_working_path.utf_8_name, r, s)
+--				append_info_to ("Base url", cms.base_url, r, s)
+--				append_info_to ("Script url", cms.script_url, r, s)
+				s.append ("<hr/>")
+				append_info_to ("Site dir", api.setup.layout.path.utf_8_name, r, s)
+				append_info_to ("Www dir", api.setup.layout.www_path.utf_8_name, r, s)
+				append_info_to ("Assets dir", api.setup.layout.assets_path.utf_8_name, r, s)
+				append_info_to ("Config dir", api.setup.layout.config_path.utf_8_name, r, s)
+				s.append ("<hr/>")
+				append_info_to ("Theme", api.setup.theme_name, r, s)
+				append_info_to ("Theme location", api.setup.themes_location.utf_8_name, r, s)
+				s.append ("<hr/>")
+--				append_info_to ("Files location", api...files_location.utf_8_name, r, s)
+--				s.append ("<hr/>")
+
+				append_info_to ("Url", r.url ("/", Void), r, s)
+--				if attached r.user as u then
+--					append_info_to ("User", u.name, r, s)
+--					append_info_to ("User url", r.user_url (u), r, s)
+--				end
+
+				r.set_main_content (s)
+			else
+				create {NOT_FOUND_ERROR_CMS_RESPONSE} r.make (req, res, api)
+			end
+			r.execute
+		end
+
+	append_info_to (n: READABLE_STRING_8; v: detachable READABLE_STRING_GENERAL; r: CMS_RESPONSE; t: STRING)
+		do
+			t.append ("<li>")
+			t.append ("<strong>" + n + "</strong>: ")
+			if v /= Void then
+				t.append (r.html_encoded (v))
+			end
+			t.append ("</li>")
+		end
+
+note
+	copyright: "Copyright (c) 1984-2013, Eiffel Software and others"
+	license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
+	source: "[
+			Eiffel Software
+			5949 Hollister Ave., Goleta, CA 93117 USA
+			Telephone 805-685-1006, Fax 805-685-6869
+			Website http://www.eiffel.com
+			Customer support http://support.eiffel.com
+		]"
+end