Extracted page support from cms_node_module, and add a proper CMS_PAGE_MODULE.

- now, the CMS_PAGE_MODULE has to be declared in the related CMS_SETUP via CMS_EXECUTION.
   (See demo for example)

Improved the export facilities.
  Implemented blog and page export.
Added import facilities.
  Implemented blog and page import.

Improved node revision web interface (allow to edit a past revision, in order to restore it as latest revisionm i.e current).
Removed specific tag from blog module, and reuse the taxonomy module for that purpose.

Added WIKITEXT module that provide a WIKITEXT_FILTER, so now we can have wikitext content.
   - for now, no support for wiki links such as [[Foobar]].

modules/node/cms_node_module.e

@@ -27,9 +27,9 @@ inherit
 
 	CMS_TAXONOMY_HOOK
 
-	CMS_HOOK_EXPORT
+--	CMS_HOOK_EXPORT
 
-	CMS_EXPORT_NODE_UTILITIES
+--	CMS_EXPORT_NODE_UTILITIES
 
 create
 	make
@@ -60,8 +60,6 @@ feature {CMS_API} -- Module Initialization
 	initialize (a_api: CMS_API)
 			-- <Precursor>
 		local
-			p1,p2: CMS_PAGE
-			ct: CMS_PAGE_NODE_TYPE
 			l_node_api: like node_api
 			l_node_storage: CMS_NODE_STORAGE_I
 		do
@@ -78,34 +76,6 @@ feature {CMS_API} -- Module Initialization
 				-- Node API initialization
 			create l_node_api.make_with_storage (a_api, l_node_storage)
 			node_api := l_node_api
-
-				-- Add support for CMS_PAGE, which requires a storage extension to store the optional "parent" id.
-				-- For now, we only have extension based on SQL statement.
-			if attached {CMS_NODE_STORAGE_SQL} l_node_api.node_storage as l_sql_node_storage then
-				l_sql_node_storage.register_node_storage_extension (create {CMS_NODE_STORAGE_SQL_PAGE_EXTENSION}.make (l_node_api, l_sql_node_storage))
-
-					-- FIXME: the following code is mostly for test purpose/initialization, remove later
-				if l_sql_node_storage.sql_table_items_count ("page_nodes") = 0 then
-					if attached a_api.user_api.user_by_id (1) as u then
-						create ct
-						p1 := ct.new_node (Void)
-						p1.set_title ("Welcome")
-						p1.set_content ("Welcome, you are using the ROC Eiffel CMS", Void, Void) -- Use default format
-						p1.set_author (u)
-						l_sql_node_storage.save_node (p1)
-
-						p2 := ct.new_node (Void)
-						p2.set_title ("A new page example")
-						p2.set_content ("This is the content of a page", Void, Void) -- Use default format
-						p2.set_author (u)
-						p2.set_parent (p1)
-						l_sql_node_storage.save_node (p2)
-					end
-				end
-			else
-					-- FIXME: maybe provide a default solution based on file system, when no SQL storage is available.
-					-- IDEA: we could also have generic extension to node system, that handle generic addition field.
-			end
 		ensure then
 			node_api_set: node_api /= Void
 		end
@@ -117,8 +87,7 @@ feature {CMS_API} -- Module management
 		do
 			Result := Precursor (a_api)
 			if Result and attached a_api.storage.as_sql_storage as l_sql_storage then
-				Result := l_sql_storage.sql_table_exists ("nodes") and
-					l_sql_storage.sql_table_exists ("page_nodes")
+				Result := l_sql_storage.sql_table_exists ("nodes")
 			end
 		end
 
@@ -247,7 +216,7 @@ feature -- Hooks
 			a_hooks.subscribe_to_menu_system_alter_hook (Current)
 			a_hooks.subscribe_to_block_hook (Current)
 			a_hooks.subscribe_to_response_alter_hook (Current)
-			a_hooks.subscribe_to_export_hook (Current)
+--			a_hooks.subscribe_to_export_hook (Current)
 
 				-- Module specific hook, if available.
 			a_hooks.subscribe_to_hook (Current, {CMS_RECENT_CHANGES_HOOK})
@@ -427,94 +396,4 @@ feature -- Hooks
 			end
 		end
 
-	export_to (a_export_id_list: detachable ITERABLE [READABLE_STRING_GENERAL]; a_export_parameters: CMS_EXPORT_PARAMETERS; a_response: CMS_RESPONSE)
-			-- Export data identified by `a_export_id_list',
-			-- or export all data if `a_export_id_list' is Void.
-		local
-			l_node_type: CMS_CONTENT_TYPE
-			n: CMS_NODE
-			p: PATH
-			d: DIRECTORY
-			f: PLAIN_TEXT_FILE
-			lst: LIST [CMS_NODE]
-		do
-			if attached node_api as l_node_api then
-				across
-					l_node_api.node_types as types_ic
-				loop
-					l_node_type := types_ic.item
-					if
-						a_response.has_permissions (<<"export any node", "export " + l_node_type.name>>) and then
-						l_node_type.name.same_string_general ("page") and then
-						(	a_export_id_list = Void
-							or else across a_export_id_list as ic some ic.item.same_string (l_node_type.name) end
-						)
-					then
-
-							-- For now, handle only page from this node module.
-						lst := l_node_api.nodes_of_type (l_node_type)
-						a_export_parameters.log ("Exporting " + lst.count.out + " nodes of type " + l_node_type.name)
-						p := a_export_parameters.location.extended ("nodes").extended (l_node_type.name)
-						create d.make_with_path (p)
-						if not d.exists then
-							d.recursive_create_dir
-						end
-						across
-							lst as ic
-						loop
-							n := l_node_api.full_node (ic.item)
-							a_export_parameters.log (l_node_type.name + " #" + n.id.out + " rev=" + n.revision.out)
-							create f.make_with_path (p.extended (n.id.out).appended_with_extension ("json"))
-							if not f.exists or else f.is_access_writable then
-								f.open_write
-								if attached {CMS_PAGE} n as l_page then
-									f.put_string (json_to_string (page_node_to_json (l_page)))
-								else
-									f.put_string (json_to_string (node_to_json (n)))
-								end
-								f.close
-							end
-								-- Revisions.
-							if attached l_node_api.node_revisions (n) as l_revisions and then l_revisions.count > 1 then
-								a_export_parameters.log (l_node_type.name + " " + l_revisions.count.out + " revisions.")
-								p := a_export_parameters.location.extended ("nodes").extended (l_node_type.name).extended (n.id.out)
-								create d.make_with_path (p)
-								if not d.exists then
-									d.recursive_create_dir
-								end
-								across
-									l_revisions as revs_ic
-								loop
-									n := revs_ic.item
-									create f.make_with_path (p.extended ("rev-" + n.revision.out).appended_with_extension ("json"))
-									if not f.exists or else f.is_access_writable then
-										f.open_write
-										if attached {CMS_PAGE} n as l_page then
-											f.put_string (json_to_string (page_node_to_json (l_page)))
-										else
-											f.put_string (json_to_string (node_to_json (n)))
-										end
-										f.close
-									end
-								end
-							end
-						end
-					end
-				end
-			end
-		end
-
-	page_node_to_json (a_page: CMS_PAGE): JSON_OBJECT
-		local
-			j: JSON_OBJECT
-		do
-			Result := node_to_json (a_page)
-			if attached a_page.parent as l_parent_page then
-				create j.make_empty
-				j.put_string (l_parent_page.content_type, "type")
-				j.put_integer (l_parent_page.id, "nid")
-				Result.put (j, "parent")
-			end
-		end
-
 end