62 lines
1.1 KiB
Plaintext
62 lines
1.1 KiB
Plaintext
note
|
|
description: "[
|
|
This class implements the web service
|
|
|
|
It inherits from WSF_DEFAULT_SERVICE to get default EWF connector ready
|
|
And from WSF_URI_TEMPLATE_ROUTED_SERVICE to use the router service
|
|
|
|
`initialize' can be redefine to provide custom options if needed.
|
|
]"
|
|
|
|
class
|
|
ANY_CMS_EXECUTION
|
|
|
|
inherit
|
|
CMS_EXECUTION
|
|
|
|
create
|
|
make,
|
|
make_with_text
|
|
|
|
feature {NONE} -- Initialization
|
|
|
|
make_with_text (req: WSF_REQUEST; res: WSF_RESPONSE; h: like service; t: like text)
|
|
do
|
|
make (req, res, h)
|
|
text := t
|
|
end
|
|
|
|
text: detachable STRING
|
|
|
|
feature -- Execution
|
|
|
|
process
|
|
-- Computed response message.
|
|
local
|
|
b: STRING_8
|
|
s: STRING
|
|
do
|
|
if attached main_content as m then
|
|
-- ok
|
|
elseif attached text as t then
|
|
create b.make_empty
|
|
s := request.path_info
|
|
if attached service.script_url as l_script_url then
|
|
if s.starts_with (l_script_url) then
|
|
s.remove_head (l_script_url.count)
|
|
if s.starts_with ("/") then
|
|
s.remove_head (1)
|
|
end
|
|
end
|
|
end
|
|
set_title (s)
|
|
b.append (t)
|
|
set_main_content (b)
|
|
else
|
|
set_title ("...")
|
|
set_main_content ("")
|
|
end
|
|
end
|
|
|
|
end
|