Initial CMS API commmit.

cms/src/modules/cms_module.e

@@ -0,0 +1,48 @@
+note
+	description: "Summary description for {WSF_CMS_MODULE}."
+	date: "$Date$"
+	revision: "$Revision$"
+
+deferred class
+	CMS_MODULE
+
+feature -- Access
+
+	is_enabled: BOOLEAN
+
+	name: STRING
+
+	description: STRING
+
+	package: STRING
+
+	version: STRING
+
+feature -- Router
+
+	router: WSF_ROUTER
+			-- Router configuration.
+		deferred
+		end
+
+feature -- Settings
+
+	enable
+		do
+			is_enabled := True
+		end
+
+	disable
+		do
+			is_enabled := False
+		end
+
+feature -- Hooks
+
+	help_text (a_path: STRING): STRING
+		do
+			create Result.make_empty
+		end
+
+
+end

cms/src/modules/node/handler/node_content_handler.e

@@ -0,0 +1,189 @@
+note
+	description: "Summary description for {NEW_CONTENT_HANDLER}."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	NODE_CONTENT_HANDLER
+
+inherit
+
+	CMS_HANDLER
+
+	WSF_FILTER
+
+	WSF_URI_HANDLER
+		rename
+			execute as uri_execute,
+			new_mapping as new_uri_mapping
+		end
+
+	WSF_URI_TEMPLATE_HANDLER
+		rename
+			execute as uri_template_execute,
+			new_mapping as new_uri_template_mapping
+		select
+			new_uri_template_mapping
+		end
+
+	WSF_RESOURCE_HANDLER_HELPER
+		redefine
+			do_get,
+			do_post,
+			do_put
+		end
+
+	REFACTORING_HELPER
+
+create
+	make
+
+feature -- execute
+
+	execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+			execute_next (req, res)
+		end
+
+	uri_execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+		end
+
+	uri_template_execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+		end
+
+feature -- HTTP Methods
+
+	do_get (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			l_page: CMS_RESPONSE
+		do
+			if attached current_user_name (req) then
+					-- Existing node
+				if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+					if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+						create {NODE_VIEW_CMS_RESPONSE} l_page.make (req, res, setup, "modules/node_content")
+						l_page.add_variable (l_node.content, "content")
+						l_page.add_variable (l_id.value, "id")
+						l_page.execute
+					else
+						do_error (req, res, l_id)
+					end
+				else
+						-- Todo extract method
+					to_implement ("Check how to implemet API error")
+--					create l_page.make (req, "master2/error.tpl")
+--					l_page.set_value ("500", "code")
+--					l_page.set_value (req.absolute_script_url (req.path_info), "request")
+--					l_page.send_to (res)
+				end
+			else
+				(create {CMS_GENERIC_RESPONSE}).new_response_unauthorized (req, res)
+			end
+		end
+
+
+	do_post (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			u_node: CMS_NODE
+		do
+			if attached current_user_name (req) then
+				if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+					if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+						if attached {WSF_STRING} req.form_parameter ("method") as l_method then
+							if l_method.is_case_insensitive_equal ("PUT") then
+								do_put (req, res)
+							else
+								to_implement ("Check how to implement API error")
+--								create l_page.make (req, "master2/error.tpl")
+--								l_page.set_value ("500", "code")
+--								l_page.set_value (req.absolute_script_url (req.path_info), "request")
+--								l_page.send_to (res)
+							end
+						end
+					else
+						do_error (req, res, l_id)
+					end
+				else
+					to_implement ("Check how to implement API error")
+--					create l_page.make (req, "master2/error.tpl")
+--					l_page.set_value ("500", "code")
+--					l_page.set_value (req.absolute_script_url (req.path_info), "request")
+--					l_page.send_to (res)
+				end
+			else
+				(create {CMS_GENERIC_RESPONSE}).new_response_unauthorized (req, res)
+			end
+		end
+
+	do_put (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			u_node: CMS_NODE
+--			l_page: ROC_RESPONSE
+		do
+			to_implement ("Check if user has permissions")
+			if attached current_user (req) as l_user then
+				if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+					if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+						u_node := extract_data_form (req)
+						u_node.set_id (l_id.integer_value)
+						api_service.update_node_content (l_user.id, u_node.id, u_node.content)
+						(create {CMS_GENERIC_RESPONSE}).new_response_redirect (req, res, req.absolute_script_url (""))
+					else
+						do_error (req, res, l_id)
+					end
+				else
+					to_implement ("Check how to implement API error")
+--					create l_page.make (req, "master2/error.tpl")
+--					l_page.set_value ("500", "code")
+--					l_page.set_value (req.absolute_script_url (req.path_info), "request")
+--					l_page.send_to (res)
+				end
+			else
+				(create {CMS_GENERIC_RESPONSE}).new_response_unauthorized (req, res)
+			end
+		end
+feature -- Error
+
+	do_error (req: WSF_REQUEST; res: WSF_RESPONSE; a_id: WSF_STRING)
+			-- Handling error.
+		local
+		do
+			to_implement ("Check how to implement API error")
+--			create l_page.make (req, "master2/error.tpl")
+--			if a_id.is_integer then
+--				-- resource not found
+--				l_page.set_value ("404", "code")
+--			else
+--				-- bad request
+--				l_page.set_value ("400", "code")
+--			end
+--			l_page.set_value (req.absolute_script_url (req.path_info), "request")
+--			l_page.send_to(res)
+		end
+
+
+feature -- {NONE} Form data
+
+
+	extract_data_form (req: WSF_REQUEST): CMS_NODE
+			-- Extract request form data and build a object
+			-- Node
+		do
+			create Result.make ("", "", "")
+			if attached {WSF_STRING}req.form_parameter ("content") as l_content then
+				Result.set_content (l_content.value)
+			end
+		end
+
+end

cms/src/modules/node/handler/node_handler.e

@@ -0,0 +1,221 @@
+note
+	description: "Summary description for {NODE_HANDLER}."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	NODE_HANDLER
+
+inherit
+	CMS_HANDLER
+
+	WSF_FILTER
+
+	WSF_URI_HANDLER
+		rename
+			execute as uri_execute,
+			new_mapping as new_uri_mapping
+		end
+
+	WSF_URI_TEMPLATE_HANDLER
+		rename
+			execute as uri_template_execute,
+			new_mapping as new_uri_template_mapping
+		select
+			new_uri_template_mapping
+		end
+
+	WSF_RESOURCE_HANDLER_HELPER
+		redefine
+			do_get,
+			do_post,
+			do_put,
+			do_delete
+		end
+
+	REFACTORING_HELPER
+
+create
+	make
+
+feature -- execute
+
+	execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+			execute_next (req, res)
+		end
+
+	uri_execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+		end
+
+	uri_template_execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+		end
+
+feature -- HTTP Methods
+
+	do_get (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			l_page: CMS_RESPONSE
+		do
+				-- Existing node
+			if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+				if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+					create {NODE_VIEW_CMS_RESPONSE} l_page.make (req, res, setup,"modules/node")
+					l_page.add_variable (l_node, "node")
+					l_page.execute
+				else
+					do_error (req, res, l_id)
+				end
+			else
+					-- Factory
+				new_node (req, res)
+			end
+		end
+
+	do_post (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			u_node: CMS_NODE
+			l_page: CMS_RESPONSE
+		do
+			to_implement ("Check user permissions!!!")
+			if attached current_user (req) as l_user then
+				if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+					if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+						if attached {WSF_STRING} req.form_parameter ("method") as l_method then
+							if l_method.is_case_insensitive_equal ("DELETE") then
+								do_delete (req, res)
+							elseif l_method.is_case_insensitive_equal ("PUT") then
+								do_put (req, res)
+							else
+								to_implement ("Implement specific responses for 500 pages")
+								create {NODE_VIEW_CMS_RESPONSE} l_page.make (req, res, setup, "master2/error")
+								l_page.add_variable ("500", "code")
+								l_page.add_variable (req.absolute_script_url (req.path_info), "request")
+								l_page.execute
+							end
+						end
+					else
+						do_error (req, res, l_id)
+					end
+				else
+						-- New node
+					u_node := extract_data_form (req)
+					u_node.set_author (l_user)
+					api_service.new_node (u_node)
+					(create {CMS_GENERIC_RESPONSE}).new_response_redirect (req, res, req.absolute_script_url (""))
+				end
+			else
+				(create {CMS_GENERIC_RESPONSE}).new_response_unauthorized (req, res)
+			end
+		end
+
+	do_put (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			u_node: CMS_NODE
+		do
+
+			if attached current_user (req) as l_user then
+				if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+					if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+						u_node := extract_data_form (req)
+						u_node.set_id (l_id.integer_value)
+						api_service.update_node (l_user.id,u_node)
+						(create {CMS_GENERIC_RESPONSE}).new_response_redirect (req, res, req.absolute_script_url (""))
+					else
+						do_error (req, res, l_id)
+					end
+				else
+					-- Internal server error
+				end
+			else
+				(create {CMS_GENERIC_RESPONSE}).new_response_unauthorized (req, res)
+			end
+
+		end
+
+	do_delete (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		do
+			if attached current_user_name (req) then
+				if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+					if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+						api_service.delete_node (l_id.integer_value)
+						(create {CMS_GENERIC_RESPONSE}).new_response_redirect (req, res, req.absolute_script_url (""))
+					else
+						do_error (req, res, l_id)
+					end
+				else
+					-- Internal server error
+				end
+			else
+				(create {CMS_GENERIC_RESPONSE}).new_response_unauthorized (req, res)
+			end
+		end
+
+feature -- Error
+
+	do_error (req: WSF_REQUEST; res: WSF_RESPONSE; a_id: WSF_STRING)
+			-- Handling error.
+		local
+			l_page: CMS_RESPONSE
+		do
+			to_implement ("Not implemented")
+--			create l_page.make (req, "master2/error.tpl")
+--			if a_id.is_integer then
+--					-- resource not found
+--				l_page.set_value ("404", "code")
+--			else
+--					-- bad request
+--				l_page.set_value ("400", "code")
+--			end
+--			l_page.set_value (req.absolute_script_url (req.path_info), "request")
+--			l_page.send_to (res)
+		end
+
+feature {NONE} -- Node
+
+	new_node (req: WSF_REQUEST; res: WSF_RESPONSE)
+		local
+			l_page: CMS_RESPONSE
+		do
+			if attached current_user_name (req) then
+				create {NODE_VIEW_CMS_RESPONSE} l_page.make (req, res, setup, "modules/node")
+				l_page.add_variable (setup.is_html, "html")
+				l_page.add_variable (setup.is_web, "web")
+				l_page.execute
+
+			else
+				(create {CMS_GENERIC_RESPONSE}).new_response_unauthorized (req, res)
+			end
+		end
+
+feature -- {NONE} Form data
+
+	extract_data_form (req: WSF_REQUEST): CMS_NODE
+			-- Extract request form data and build a object
+			-- Node
+		do
+			create Result.make ("", "", "")
+			if attached {WSF_STRING} req.form_parameter ("title") as l_title then
+				Result.set_title (l_title.value)
+			end
+			if attached {WSF_STRING} req.form_parameter ("summary") as l_summary then
+				Result.set_summary (l_summary.value)
+			end
+			if attached {WSF_STRING} req.form_parameter ("content") as l_content then
+				Result.set_content (l_content.value)
+			end
+		end
+
+end

cms/src/modules/node/handler/node_summary_handler.e

@@ -0,0 +1,189 @@
+note
+	description: "Summary description for {NODE_SUMMARY_HANDLER}."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	NODE_SUMMARY_HANDLER
+
+inherit
+	CMS_HANDLER
+
+	WSF_FILTER
+
+	WSF_URI_HANDLER
+		rename
+			execute as uri_execute,
+			new_mapping as new_uri_mapping
+		end
+
+	WSF_URI_TEMPLATE_HANDLER
+		rename
+			execute as uri_template_execute,
+			new_mapping as new_uri_template_mapping
+		select
+			new_uri_template_mapping
+		end
+
+	WSF_RESOURCE_HANDLER_HELPER
+		redefine
+			do_get,
+			do_post,
+			do_put
+		end
+
+	REFACTORING_HELPER
+
+create
+	make
+
+feature -- execute
+
+	execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+			execute_next (req, res)
+		end
+
+	uri_execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+		end
+
+	uri_template_execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+		end
+
+feature -- HTTP Methods
+
+	do_get (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			l_page: CMS_RESPONSE
+		do
+			if attached current_user_name (req) then
+					-- Existing node
+				if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+					if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+						create {NODE_VIEW_CMS_RESPONSE} l_page.make (req, res, setup, "modules/node_summary")
+						l_page.add_variable (setup.is_html, "html")
+						l_page.add_variable (setup.is_web, "web")
+						l_page.add_variable (l_node.summary, "summary")
+						l_page.add_variable (l_id.value, "id")
+						l_page.execute
+					else
+						do_error (req, res, l_id)
+					end
+				else
+					to_implement ("Check how to implement API error")
+--					create l_page.make (req, "master2/error.tpl")
+--					l_page.set_value ("500", "code")
+--					l_page.set_value (req.absolute_script_url (req.path_info), "request")
+--					l_page.send_to (res)
+				end
+			else
+				(create {CMS_GENERIC_RESPONSE}).new_response_unauthorized (req, res)
+			end
+		end
+
+
+	do_post (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			u_node: CMS_NODE
+		do
+			if attached current_user_name (req) then
+				if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+					if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+						if attached {WSF_STRING} req.form_parameter ("method") as l_method then
+							if l_method.is_case_insensitive_equal ("PUT") then
+								do_put (req, res)
+							else
+								to_implement ("Check how to implement API error")
+--								create l_page.make (req, "master2/error.tpl")
+--								l_page.set_value ("500", "code")
+--								l_page.set_value (req.absolute_script_url (req.path_info), "request")
+--								l_page.send_to (res)
+							end
+						end
+					else
+						do_error (req, res, l_id)
+					end
+				else
+					to_implement ("Check how to implement API error")
+--					create l_page.make (req, "master2/error.tpl")
+--					l_page.set_value ("500", "code")
+--					l_page.set_value (req.absolute_script_url (req.path_info), "request")
+--					l_page.send_to (res)
+				end
+			else
+				(create {CMS_GENERIC_RESPONSE}).new_response_unauthorized (req, res)
+			end
+		end
+
+	do_put (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			u_node: CMS_NODE
+		do
+			to_implement ("Check if user has permissions!!!")
+			if attached current_user (req) as l_user then
+				if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+					if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+						u_node := extract_data_form (req)
+						u_node.set_id (l_id.integer_value)
+						api_service.update_node_summary (l_user.id,u_node.id, u_node.summary)
+						(create {CMS_GENERIC_RESPONSE}).new_response_redirect (req, res, req.absolute_script_url (""))
+					else
+						do_error (req, res, l_id)
+					end
+				else
+					to_implement ("Check how to implement API error")
+--					create l_page.make (req, "master2/error.tpl")
+--					l_page.set_value ("500", "code")
+--					l_page.set_value (req.absolute_script_url (req.path_info), "request")
+--					l_page.send_to (res)
+				end
+			else
+				(create {CMS_GENERIC_RESPONSE}).new_response_unauthorized (req, res)
+			end
+		end
+
+feature -- Error
+
+	do_error (req: WSF_REQUEST; res: WSF_RESPONSE; a_id: WSF_STRING)
+			-- Handling error.
+		local
+--			l_page: ROC_RESPONSE
+		do
+--			create l_page.make (req, "master2/error.tpl")
+--			if a_id.is_integer then
+--				-- resource not found
+--				l_page.set_value ("404", "code")
+--			else
+--				-- bad request
+--				l_page.set_value ("400", "code")
+--			end
+--			l_page.set_value (req.absolute_script_url (req.path_info), "request")
+--			l_page.send_to(res)
+		end
+
+
+feature -- {NONE} Form data
+
+
+	extract_data_form (req: WSF_REQUEST): CMS_NODE
+			-- Extract request form data and build a object
+			-- Node
+		do
+			create Result.make ("", "", "")
+			if attached {WSF_STRING}req.form_parameter ("summary") as l_summary then
+				Result.set_summary (l_summary.value)
+			end
+		end
+
+end

cms/src/modules/node/handler/node_title_handler.e

@@ -0,0 +1,187 @@
+note
+	description: "Summary description for {NODE_TITLE_HANDLER}."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	NODE_TITLE_HANDLER
+
+inherit
+	CMS_HANDLER
+
+	WSF_FILTER
+
+	WSF_URI_HANDLER
+		rename
+			execute as uri_execute,
+			new_mapping as new_uri_mapping
+		end
+
+	WSF_URI_TEMPLATE_HANDLER
+		rename
+			execute as uri_template_execute,
+			new_mapping as new_uri_template_mapping
+		select
+			new_uri_template_mapping
+		end
+
+	WSF_RESOURCE_HANDLER_HELPER
+		redefine
+			do_get,
+			do_post,
+			do_put
+		end
+
+	REFACTORING_HELPER
+
+create
+	make
+
+feature -- execute
+
+	execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+			execute_next (req, res)
+		end
+
+	uri_execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+		end
+
+	uri_template_execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+		end
+
+feature -- HTTP Methods
+
+	do_get (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			l_page: CMS_RESPONSE
+		do
+			if attached current_user_name (req) as l_user then
+					-- Existing node
+				if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+					if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+						create {NODE_VIEW_CMS_RESPONSE} l_page.make (req, res, setup, "modules/node_title")
+						l_page.add_variable (setup.is_html, "html")
+						l_page.add_variable (setup.is_web, "web")
+						l_page.add_variable (l_node.title, "title")
+						l_page.add_variable (l_id.value, "id")
+						l_page.execute
+					else
+						do_error (req, res, l_id)
+					end
+				else
+					to_implement ("Check how to implement API error")
+--					create l_page.make (req, "master2/error.tpl")
+--					l_page.set_value ("500", "code")
+--					l_page.set_value (req.absolute_script_url (req.path_info), "request")
+--					l_page.send_to (res)
+				end
+			else
+				(create {CMS_GENERIC_RESPONSE}).new_response_unauthorized (req, res)
+			end
+		end
+
+	do_post (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			u_node: CMS_NODE
+		do
+			if attached current_user_name (req) as l_user then
+				if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+					if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+						if attached {WSF_STRING} req.form_parameter ("method") as l_method then
+							if l_method.is_case_insensitive_equal ("PUT") then
+								do_put (req, res)
+							else
+								to_implement ("Check how to implement API error")
+--								create l_page.make (req, "master2/error.tpl")
+--								l_page.set_value ("500", "code")
+--								l_page.set_value (req.absolute_script_url (req.path_info), "request")
+--								l_page.send_to (res)
+							end
+						end
+					else
+						do_error (req, res, l_id)
+					end
+				else
+					to_implement ("Check how to implement API error")
+--					create l_page.make (req, "master2/error.tpl")
+--					l_page.set_value ("500", "code")
+--					l_page.set_value (req.absolute_script_url (req.path_info), "request")
+--					l_page.send_to (res)
+				end
+			else
+				(create {CMS_GENERIC_RESPONSE}).new_response_unauthorized (req, res)
+			end
+		end
+
+	do_put (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			u_node: CMS_NODE
+		do
+			to_implement ("Check if user has permissions")
+			if attached current_user (req) as l_user then
+				if attached {WSF_STRING} req.path_parameter ("id") as l_id then
+					if l_id.is_integer and then attached {CMS_NODE} api_service.node (l_id.integer_value) as l_node then
+						u_node := extract_data_form (req)
+						u_node.set_id (l_id.integer_value)
+						api_service.update_node_title (l_user.id,u_node.id, u_node.title)
+						(create {CMS_GENERIC_RESPONSE}).new_response_redirect (req, res, req.absolute_script_url (""))
+					else
+						do_error (req, res, l_id)
+					end
+				else
+					to_implement ("check how to implement API error")
+--					create l_page.make (req, "master2/error.tpl")
+--					l_page.set_value ("500", "code")
+--					l_page.set_value (req.absolute_script_url (req.path_info), "request")
+--					l_page.send_to (res)
+				end
+			else
+				(create {CMS_GENERIC_RESPONSE}).new_response_unauthorized (req, res)
+			end
+		end
+
+feature -- Error
+
+	do_error (req: WSF_REQUEST; res: WSF_RESPONSE; a_id: WSF_STRING)
+			-- Handling error.
+		local
+		do
+			to_implement ("Check how to add API error")
+--			create l_page.make (req, "master2/error.tpl")
+--			if a_id.is_integer then
+--					-- resource not found
+--				l_page.set_value ("404", "code")
+--			else
+--					-- bad request
+--				l_page.set_value ("400", "code")
+--			end
+--			l_page.set_value (req.absolute_script_url (req.path_info), "request")
+--			l_page.send_to (res)
+		end
+
+
+feature -- {NONE} Form data
+
+	extract_data_form (req: WSF_REQUEST): CMS_NODE
+			-- Extract request form data and build a object
+			-- Node
+		do
+			create Result.make ("", "", "")
+			if attached {WSF_STRING} req.form_parameter ("title") as l_title then
+				Result.set_title (l_title.value)
+			end
+		end
+
+end

cms/src/modules/node/handler/nodes_handler.e

@@ -0,0 +1,52 @@
+note
+	description: "Summary description for {NODES_HANDLER}."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	NODES_HANDLER
+
+inherit
+	CMS_HANDLER
+
+	WSF_FILTER
+
+	WSF_URI_HANDLER
+		rename
+			execute as uri_execute,
+			new_mapping as new_uri_mapping
+		end
+
+	WSF_RESOURCE_HANDLER_HELPER
+		redefine
+			do_get
+		end
+
+	REFACTORING_HELPER
+
+create
+	make
+
+feature -- execute
+
+	execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+			execute_next (req, res)
+		end
+
+	uri_execute (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- Execute request handler
+		do
+			execute_methods (req, res)
+		end
+
+feature -- HTTP Methods
+
+	do_get (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		do
+			(create {NODES_VIEW_CMS_RESPONSE}.make (req, res, setup,"modules/nodes")).execute
+		end
+end

cms/src/modules/node/node_module.e

@@ -0,0 +1,129 @@
+note
+	description: "Summary description for {CMS_MODULE}."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	NODE_MODULE
+
+inherit
+
+	CMS_MODULE
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make (a_config: CMS_SETUP)
+		do
+			name := "node"
+			version := "1.0"
+			description := "Service to manage content based on 'node'"
+			package := "core"
+			config := a_config
+			setup_router
+			enable
+		end
+
+feature -- Access
+
+	router: WSF_ROUTER
+		-- Node router.
+
+	config: CMS_SETUP
+		-- Node configuration.
+
+feature -- Implementation
+
+	setup_router
+			-- Setup `router'.
+		local
+			fhdl: WSF_FILE_SYSTEM_HANDLER
+		do
+			create router.make (5)
+			configure_api_node
+			configure_api_nodes
+			configure_api_node_title
+			configure_api_node_summary
+			configure_api_node_content
+		end
+
+feature -- Configure Node Resources Routes
+
+	configure_api_node
+		local
+			l_node_handler: NODE_HANDLER
+			l_methods: WSF_REQUEST_METHODS
+		do
+			create l_node_handler.make (config)
+			create l_methods
+			l_methods.enable_get
+			l_methods.enable_post
+			l_methods.enable_put
+			router.handle_with_request_methods ("/node", l_node_handler, l_methods)
+
+			create l_node_handler.make (config)
+			create l_methods
+			l_methods.enable_get
+			l_methods.enable_post
+			l_methods.enable_put
+			l_methods.enable_delete
+			router.handle_with_request_methods ("/node/{id}", l_node_handler, l_methods)
+		end
+
+
+	configure_api_nodes
+		local
+			l_nodes_handler: NODES_HANDLER
+			l_methods: WSF_REQUEST_METHODS
+		do
+			create l_nodes_handler.make (config)
+			create l_methods
+			l_methods.enable_get
+			router.handle_with_request_methods ("/nodes", l_nodes_handler, l_methods)
+		end
+
+
+	configure_api_node_summary
+		local
+			l_report_handler: NODE_SUMMARY_HANDLER
+			l_methods: WSF_REQUEST_METHODS
+		do
+			create l_report_handler.make (config)
+			create l_methods
+			l_methods.enable_get
+			l_methods.enable_post
+			l_methods.enable_put
+			router.handle_with_request_methods ("/node/{id}/summary", l_report_handler, l_methods)
+		end
+
+
+	configure_api_node_title
+		local
+			l_report_handler: NODE_TITLE_HANDLER
+			l_methods: WSF_REQUEST_METHODS
+		do
+			create l_report_handler.make (config)
+			create l_methods
+			l_methods.enable_get
+			l_methods.enable_post
+			l_methods.enable_put
+			router.handle_with_request_methods ("/node/{id}/title", l_report_handler, l_methods)
+		end
+
+
+	configure_api_node_content
+		local
+			l_report_handler: NODE_CONTENT_HANDLER
+			l_methods: WSF_REQUEST_METHODS
+		do
+			create l_report_handler.make (config)
+			create l_methods
+			l_methods.enable_get
+			l_methods.enable_post
+			l_methods.enable_put
+			router.handle_with_request_methods ("/node/{id}/content", l_report_handler, l_methods)
+		end
+
+end

cms/src/modules/node/response/node_view_cms_response.e

@@ -0,0 +1,37 @@
+note
+	description: "Summary description for {NODE_VIEW_CMS_RESPONSE}."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	NODE_VIEW_CMS_RESPONSE
+
+inherit
+
+	CMS_RESPONSE
+		redefine
+			custom_prepare
+		end
+
+create
+	make
+
+feature -- Generation
+
+	custom_prepare (page: CMS_HTML_PAGE)
+		do
+			if attached variables as l_variables then
+				across l_variables as c loop page.register_variable (c.item, c.key) end
+			end
+		end
+
+feature -- Execution
+
+	process
+			-- Computed response message.
+		do
+			set_title ("List of Nodes")
+			set_page_title (Void)
+		end
+end
+

cms/src/modules/node/response/nodes_view_cms_response.e

@@ -0,0 +1,35 @@
+note
+	description: "Summary description for {NODE_VIEW_CMS_RESPONSE}."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	NODES_VIEW_CMS_RESPONSE
+
+inherit
+
+	CMS_RESPONSE
+		redefine
+			custom_prepare
+		end
+
+create
+	make
+
+feature -- Generation
+
+	custom_prepare (page: CMS_HTML_PAGE)
+		do
+			page.register_variable (setup.api_service.nodes, "nodes")
+		end
+
+feature -- Execution
+
+	process
+			-- Computed response message.
+		do
+			set_title ("List of Nodes")
+			set_page_title (Void)
+		end
+end
+