617c48adcb
Added user roles management Improvement CMS_HOOK_FORM_ALTER design. Factorized code into CMS_WIDGET_COMPOSITE Use general notion of CMS_WIDGET (and CMS_FORM allows CMS_WIDGET, and not just CMS_FORM_ITEM) Fixed various CMS_WIDGET traversal, and fixed related issue for CMS forms Fixed CMS_FORM_CHECKBOX_INPUT when no value was set. Added CMS_FORM_DATA.cached_value .. to pass computed values during validation to submit actions (mainly for optimization) Added support for @include=filename in CMS_CONFIGURATION Added CMS_WIDGET_TABLE as filled version of CMS_WIDGET_AGENT_TABLE (renamed from previous CMS_WIDGET_TABLE) Many improvements to the CMS_FORM design Some improvements to CMS_MODULE ...
136 lines
2.3 KiB
Plaintext
136 lines
2.3 KiB
Plaintext
note
|
|
description: "[
|
|
This class implements the Demo of WEB CMS service
|
|
|
|
]"
|
|
|
|
class
|
|
WEB_CMS
|
|
|
|
inherit
|
|
WSF_DEFAULT_SERVICE
|
|
redefine
|
|
initialize
|
|
end
|
|
|
|
create
|
|
make_and_launch
|
|
|
|
feature {NONE} -- Initialization
|
|
|
|
initialize
|
|
local
|
|
args: ARGUMENTS
|
|
cfg: detachable STRING
|
|
i,n: INTEGER
|
|
do
|
|
--| Arguments
|
|
create args
|
|
from
|
|
i := 1
|
|
n := args.argument_count
|
|
until
|
|
i > n or cfg /= Void
|
|
loop
|
|
if attached args.argument (i) as s then
|
|
if s.same_string ("--config") or s.same_string ("-c") then
|
|
if i < n then
|
|
cfg := args.argument (i + 1)
|
|
end
|
|
end
|
|
end
|
|
i := i + 1
|
|
end
|
|
if cfg = Void then
|
|
if file_exists ("cms.ini") then
|
|
cfg := "cms.ini"
|
|
end
|
|
end
|
|
|
|
--| EWF settings
|
|
service_options := create {WSF_SERVICE_LAUNCHER_OPTIONS_FROM_INI}.make_from_file ("ewf.ini")
|
|
Precursor
|
|
|
|
--| CMS initialization
|
|
launch_cms (cms_setup (cfg))
|
|
end
|
|
|
|
cms_setup (a_cfg_fn: detachable READABLE_STRING_8): CMS_CUSTOM_SETUP
|
|
do
|
|
if a_cfg_fn /= Void then
|
|
create Result.make_from_file (a_cfg_fn)
|
|
else
|
|
create Result -- Default
|
|
end
|
|
setup_modules (Result)
|
|
setup_storage (Result)
|
|
end
|
|
|
|
launch_cms (a_setup: CMS_SETUP)
|
|
local
|
|
cms: CMS_SERVICE
|
|
do
|
|
create cms.make (a_setup)
|
|
on_launched (cms)
|
|
cms_service := cms
|
|
end
|
|
|
|
feature -- Execution
|
|
|
|
cms_service: CMS_SERVICE
|
|
|
|
execute (req: WSF_REQUEST; res: WSF_RESPONSE)
|
|
do
|
|
cms_service.execute (req, res)
|
|
end
|
|
|
|
feature -- Access
|
|
|
|
setup_modules (a_setup: CMS_SETUP)
|
|
local
|
|
m: CMS_MODULE
|
|
do
|
|
create {DEMO_MODULE} m.make
|
|
m.enable
|
|
a_setup.add_module (m)
|
|
|
|
create {SHUTDOWN_MODULE} m.make
|
|
m.enable
|
|
a_setup.add_module (m)
|
|
|
|
create {DEBUG_MODULE} m.make
|
|
m.enable
|
|
a_setup.add_module (m)
|
|
|
|
create {OPENID_MODULE} m.make
|
|
m.enable
|
|
a_setup.add_module (m)
|
|
end
|
|
|
|
setup_storage (a_setup: CMS_SETUP)
|
|
do
|
|
|
|
end
|
|
|
|
feature -- Event
|
|
|
|
on_launched (cms: CMS_SERVICE)
|
|
local
|
|
e: CMS_EMAIL
|
|
do
|
|
create e.make (cms.site_email, cms.site_email, "[" + cms.site_name + "] launched...", "The site [" + cms.site_name + "] was launched at " + (create {DATE_TIME}.make_now_utc).out + " UTC.")
|
|
cms.mailer.safe_process_email (e)
|
|
end
|
|
|
|
feature -- Helper
|
|
|
|
file_exists (fn: STRING): BOOLEAN
|
|
local
|
|
f: RAW_FILE
|
|
do
|
|
create f.make (fn)
|
|
Result := f.exists and then f.is_readable
|
|
end
|
|
|
|
end
|