ROC/modules/sitemap/cms_sitemap_module.e

note
	description: "CMS module that brings support for recent changes."
	date: "$Date$"
	revision: "$Revision$"

class
	CMS_SITEMAP_MODULE

inherit
	CMS_MODULE
		rename
			module_api as sitemap_api
		redefine
			permissions
		end

create
	make

feature {NONE} -- Initialization

	make
			-- Create Current module, disabled by default.
		do
			version := "1.0"
			description := "Service to build sitemap"
			package := "seo"
		end

feature -- Access

	name: STRING = "sitemap"

	permissions: LIST [READABLE_STRING_8]
			-- List of permission ids, used by this module, and declared.
		do
			Result := Precursor
			Result.force ("admin sitemap")
		end

feature -- Access: router

	setup_router (a_router: WSF_ROUTER; a_api: CMS_API)
			-- <Precursor>
		do
			a_router.handle ("/sitemap.xml", create {WSF_URI_AGENT_HANDLER}.make (agent handle_sitemp_xml (a_api, ?, ?)), a_router.methods_head_get)
		end

feature -- Hook		

	sitemap (a_response: CMS_RESPONSE): CMS_SITEMAP
		local
			l_user: detachable CMS_USER
--			lnk: FEED_LINK
--			nb: NATURAL_32
--			s: STRING_32
		do
			l_user := Void -- Public access for the feed!
			create Result.make (create {DATE_TIME}.make_now_utc)
			if attached a_response.api.hooks.subscribers ({CMS_SITEMAP_HOOK}) as lst then
				across
					lst as ic
				loop
					if attached {CMS_SITEMAP_HOOK} ic.item as h then
						h.populate_sitemap (Result)
					end
				end
			end

--			create l_feed.make ("CMS Recent changes")
--			l_feed.set_date (create {DATE_TIME}.make_now_utc)
--			nb := a_size
--			across
--				l_changes as ic
--			until
--				nb = 0
--			loop
--				ch := ic.item
--				create l_feed_item.make (ch.link.title)
--				l_feed_item.set_date (ch.date)
--
--				create s.make_empty
--				if attached ch.information as l_information then
--					s.append (l_information)
--				end
--				if attached ch.summary as sum then
--					if not s.is_empty then
--						s.append ("%N%N")
--					end
--					s.append (sum)
--				end
--				l_feed_item.set_description (s)
--				if attached ch.categories as lst then
--					across
--						lst as cats_ic
--					loop
--						l_feed_item.set_category (cats_ic.item)
--					end
--				end
--				create lnk.make (a_response.absolute_url (ch.link.location, Void))
--				l_feed_item.links.force (lnk, "")
--				l_feed.extend (l_feed_item)
--				nb := nb - 1
--			end
--			l_feed.sort
--			Result := l_feed
		end

feature -- Handler

	handle_sitemp_xml (api: CMS_API; req: WSF_REQUEST; res: WSF_RESPONSE)
		local
			r: CMS_RESPONSE
--			htdate: HTTP_DATE
			mesg: CMS_CUSTOM_RESPONSE_MESSAGE
			l_xml: STRING
			l_cache: CMS_FILE_STRING_8_CACHE
		do
			create {GENERIC_VIEW_CMS_RESPONSE} r.make (req, res, api)
			create l_cache.make (api.files_location.extended ("sitemap.xml"))
			if
				l_cache.exists and then
				not l_cache.expired (Void, 7*24*60*60) and then
				attached l_cache.item as l_cached_xml
			then
				create mesg.make ({HTTP_STATUS_CODE}.ok)
				mesg.header.put_content_type ("application/xml")
				mesg.set_payload (l_cached_xml)
				res.send (mesg)
			elseif attached sitemap (r) as l_sitemap then
				create l_xml.make (1_024)
				l_xml.append ("<?xml version=%"1.0%" encoding=%"utf-8%"?>%N")
				l_xml.append ("<?xml-stylesheet type=%"text/xsl%" href=%"http://geyssans.fr/wp-content/plugins/google-sitemap-plugin/sitemap.xsl%"?>%N")
				l_xml.append ("<urlset xmlns=%"http://www.sitemaps.org/schemas/sitemap/0.9%">%N")
				across
					l_sitemap as ic
				loop
					l_xml.append ("<url>%N")
					l_xml.append ("  <loc>" + r.absolute_url (ic.item.link.location, Void) + "</loc>%N")
					l_xml.append ("  <lastmod>"); append_date_output (ic.item.date, l_xml); l_xml.append ("</lastmod>%N")
					l_xml.append ("  <changefreq>" + ic.item.change_frequency + "</changefreq>%N")
					l_xml.append ("  <priority>" + ic.item.priority.out + "</priority>%N")
					l_xml.append ("</url>%N")
				end
				l_xml.append ("</urlset>%N")
				l_cache.put (l_xml)

				create mesg.make ({HTTP_STATUS_CODE}.ok)
				mesg.header.put_content_type ("application/xml")
				mesg.header.put_header ("Accept-Ranges: bytes")
				mesg.header.put_header ("Vary: Accept-Encoding,User-Agent")
				mesg.set_payload (l_xml)
				res.send (mesg)
			else
				create {NOT_FOUND_ERROR_CMS_RESPONSE} r.make (req, res, api)
				r.execute
			end
		end

	append_date_output (dt: DATE_TIME; a_output: STRING)
			--| 2017-02-07T21:09:21+00:00
		do
			a_output.append_integer (dt.year)
			a_output.append_character ('-')
			append_two_digits_integer (dt.month, a_output)
			a_output.append_character ('-')
			append_two_digits_integer (dt.day, a_output)
			a_output.append_character ('T')
			append_two_digits_integer (dt.hour, a_output)
			a_output.append_character (':')
			append_two_digits_integer (dt.minute, a_output)
			a_output.append_character (':')
			append_two_digits_integer (dt.second, a_output)
			a_output.append_string ("+00:00")
		end

	append_two_digits_integer (i: INTEGER; s: STRING_8)
		do
			if i < 10 then
				s.append_character ('0')
			end
			s.append_integer (i)
		end

end