Merge pull request #17 from oligot/logging_filter

Logging filter

examples/filter/src/filter_server.e

@@ -53,7 +53,7 @@ feature {NONE} -- Initialization
 	setup_filter
 			-- Setup `filter'
 		local
-			l_logging_filter: LOGGING_FILTER
+			l_logging_filter: WSF_LOGGING_FILTER
 		do
 			create l_logging_filter
 			filter.set_next (l_logging_filter)

library/server/wsf/router/filter/wsf_logging_filter.e

@@ -5,7 +5,7 @@ note
 	revision: "$Revision$"
 
 class
-	LOGGING_FILTER
+	WSF_LOGGING_FILTER
 
 inherit
 	WSF_FILTER
@@ -15,24 +15,31 @@ feature -- Basic operations
 	execute (req: WSF_REQUEST; res: WSF_RESPONSE)
 			-- Execute the filter
 		local
-			l_user_agent: STRING
+			l_user_agent, l_referer: STRING
 			l_date: DATE_TIME
 		do
 			if attached req.http_user_agent as ua then
-				l_user_agent := ua.as_string_8
+				l_user_agent := "%"" + ua.as_string_8 + "%""
 			else
 				l_user_agent := "-"
 			end
-			create l_date.make_now
-			io.put_string ("[" + l_date.formatted_out (Date_time_format) + "] %"" + req.request_method + " " + req.request_uri
-				+ " " + {HTTP_CONSTANTS}.http_version_1_1 + "%" " + res.status_code.out + " " + l_user_agent)
+			if attached req.http_referer as r then
+				l_referer := "%"" + r + "%" "
+			else
+				l_referer := ""
+			end
+			create l_date.make_now_utc
+			io.put_string (req.remote_addr + " - - [" + l_date.formatted_out (Date_time_format) + " GMT] %""
+				+ req.request_method + " " + req.request_uri
+				+ " " + {HTTP_CONSTANTS}.http_version_1_1 + "%" " + res.status_code.out + " "
+				+ res.transfered_content_length.out + " " + l_referer + l_user_agent)
 			io.put_new_line
 			execute_next (req, res)
 		end
 
 feature -- Constants
 
-	Date_time_format: STRING = "yyyy/[0]mm/[0]dd [0]hh:[0]mi:[0]ss.ff3"
+	Date_time_format: STRING = "[0]dd/[0]mm/yyyy [0]hh:[0]mi:[0]ss"
 
 note
 	copyright: "2011-2012, Olivier Ligot, Jocelyn Fiat and others"