Jocelyn Fiat
db9e40cec4
Reviewed configuration related feature.
Renamed JSON_CONFIGURATION as APPLICATION_JSON_CONFIGURATION_HELPER to avoid confusion.
Updated CMS_DEFAULT_SETUP to use configuration from cms configuration library.
Added {CMS_API}.module_configuration (a_module_name: READABLE_STRING_GENERAL; a_name: detachable READABLE_STRING_GENERAL): detachable CONFIG_READER to help getting access to configuration of a module (for now, only json and ini are supported, but in the future, this could support database layer directly)
Added CMS_HOOK_BLOCK_HELPER to reuse the template_block (..): ... function.
Cosmetic
Removed CMS_SETUP.smtp_server since for now, there is no need for such general setting.
Add header line "X-ServerEWF-App: CMS" as a simple way to know if request is processed by the CMS.
141 lines
3.6 KiB
Plaintext
141 lines
3.6 KiB
Plaintext
note
|
|
description: "Summary description for {CMS_DEBUG_MODULE}."
|
|
date: "$Date: 2014-12-18 16:47:20 +0100 (jeu., 18 déc. 2014) $"
|
|
revision: "$Revision: 96384 $"
|
|
|
|
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.layout.cms_config_ini_path 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
|