Splitted administration and normal web site interfaces.

This optimises a bit the routing map, and make cleaner separation.
Make the base url for admin pages customizable via `administration.base_path` variable in cms.ini
   note: could be /admin, /roc-admin, or ..
It is possible to have a specific theme for administration via the variable "administration.admin"
This commit is contained in:
2017-03-24 18:38:58 +01:00
parent 13cbb7d987
commit 21e75a6492
40 changed files with 1172 additions and 512 deletions

View File

@@ -16,7 +16,7 @@ inherit
feature {NONE} -- Access
setup: CMS_SETUP
api: CMS_API
site_url: IMMUTABLE_STRING_8
-- Absolute URL for Current CMS site.
@@ -186,7 +186,7 @@ feature {NONE} -- Implementation
end
note
copyright: "2011-2015, Jocelyn Fiat, Javier Velilla, Eiffel Software and others"
copyright: "2011-2017, Jocelyn Fiat, Javier Velilla, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[
Eiffel Software

View File

@@ -18,13 +18,13 @@ create
feature {NONE} -- Initialization
make (a_setup: like setup; a_info: like information; abs_site_url: READABLE_STRING_8)
make (a_api: like api; a_info: like information; abs_site_url: READABLE_STRING_8)
do
setup := a_setup
api := a_api
information := a_info
set_site_url (abs_site_url)
ensure
setup_set: setup = a_setup
api_set: api = a_api
end
feature -- Access
@@ -49,4 +49,7 @@ feature -- Access
to_implement ("Add a better response message, maybe using smarty template")
Result := "Service Unavailable"
end
note
copyright: "2011-2017, Jocelyn Fiat, Javier Velilla, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
end

View File

@@ -14,18 +14,18 @@ create
feature {NONE} -- Initialization
make (a_setup: like setup; a_info: like information; abs_site_url: READABLE_STRING_8)
make (a_api: like api; a_info: like information; abs_site_url: READABLE_STRING_8)
do
setup := a_setup
api := a_api
information := a_info
if attached a_info.item ("template_dir") as s then
templates_directory := a_setup.theme_location.extended (s)
templates_directory := a_api.theme_location.extended (s)
else
templates_directory := a_setup.theme_location
templates_directory := a_api.theme_location
end
set_site_url (abs_site_url)
ensure
setup_set: setup = a_setup
api_set: api = a_api
information_set: information = a_info
end
@@ -129,7 +129,7 @@ feature {NONE} -- Internal
invariant
attached internal_page_template as inv_p implies inv_p.theme = Current
note
copyright: "2011-2014, Jocelyn Fiat, Eiffel Software and others"
copyright: "2011-2017, Jocelyn Fiat, Javier Velilla, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[
Eiffel Software