added blog handler that lists all blog entries

modules/node/handler/blog_handler.e

@@ -0,0 +1,64 @@
+note
+	description: "Request handler related to /blogs."
+	author: "Dario B<>sch <daboesch@student.ethz.ch"
+	date: "$Date: 2015-05-18 13:49:99 +0100 (lun., 18 mai 2015) $"
+	revision: "$966167$"
+
+class
+	BLOG_HANDLER
+
+inherit
+	NODES_HANDLER
+		redefine
+			do_get
+		end
+
+create
+	make
+
+feature -- HTTP Methods	
+	do_get (req: WSF_REQUEST; res: WSF_RESPONSE)
+			-- <Precursor>
+		local
+			l_page: CMS_RESPONSE
+			s: STRING
+			n: CMS_NODE
+			lnk: CMS_LOCAL_LINK
+		do
+				-- At the moment the template is hardcoded, but we can
+				-- get them from the configuration file and load them into
+				-- the setup class.
+
+			create {GENERIC_VIEW_CMS_RESPONSE} l_page.make (req, res, api)
+			l_page.add_variable (node_api.nodes, "nodes")
+
+
+				-- NOTE: for development purposes we have the following hardcode output.
+			create s.make_from_string ("<h2>Blog entries:</h2>")
+			if attached node_api.nodes as lst then
+				-- Filter out blog entries from all nodes
+				--if n.content_type.is_equal ("blog") then
+					s.append ("<ul class=%"cms-nodes%">%N")
+					across
+						lst as ic
+					loop
+						n := ic.item
+						if n.content_type.is_equal ("blog") then
+							lnk := node_api.node_link (n)
+							s.append ("<li class=%"cms_type_"+ n.content_type +"%">")
+							s.append (l_page.link (lnk.title, lnk.location, Void))
+		--					s.append (l_page.link (n.title + " (#" + n.id.out + ")", node_api.node_path (n), Void))
+							s.append ("</li>%N")
+						end
+					end
+					s.append ("</ul>%N")
+				--end
+			end
+
+			l_page.set_main_content (s)
+			l_page.add_block (create {CMS_CONTENT_BLOCK}.make ("nodes_warning", Void, "/blogs/ is not yet fully implemented<br/>", Void), "highlighted")
+			l_page.execute
+		end
+
+
+end