61c8388eba
This way the application is much simpler, no need to implement deferred feature of CMS_SERVICE.
63 lines
912 B
Plaintext
63 lines
912 B
Plaintext
note
|
|
description: "Summary description for {CMS_SETUP}."
|
|
author: ""
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
deferred class
|
|
CMS_SETUP
|
|
|
|
feature -- Initialization
|
|
|
|
initialize_storage (a_cms: CMS_SERVICE)
|
|
do
|
|
|
|
end
|
|
|
|
feature -- Access
|
|
|
|
configuration: detachable CMS_CONFIGURATION
|
|
|
|
base_url: detachable READABLE_STRING_8
|
|
|
|
modules: LIST [CMS_MODULE]
|
|
deferred
|
|
end
|
|
|
|
storage: CMS_STORAGE
|
|
-- CMS persistent layer
|
|
deferred
|
|
end
|
|
|
|
session_manager: WSF_SESSION_MANAGER
|
|
-- CMS Session manager
|
|
deferred
|
|
end
|
|
|
|
auth_engine: CMS_AUTH_ENGINE
|
|
-- CMS Authentication engine
|
|
deferred
|
|
end
|
|
|
|
mailer: CMS_MAILER
|
|
-- CMS email engine
|
|
deferred
|
|
end
|
|
|
|
feature -- Change
|
|
|
|
set_base_url (a_base_url: like base_url)
|
|
do
|
|
if a_base_url /= Void and then not a_base_url.is_empty then
|
|
base_url := a_base_url
|
|
else
|
|
base_url := Void
|
|
end
|
|
end
|
|
|
|
add_module (m: CMS_MODULE)
|
|
deferred
|
|
end
|
|
|
|
end
|