Added support for sitemap.xml .
This commit is contained in:
185
modules/sitemap/cms_sitemap_module.e
Normal file
185
modules/sitemap/cms_sitemap_module.e
Normal file
@@ -0,0 +1,185 @@
|
||||
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
|
||||
Reference in New Issue
Block a user