Diff

plugins/mod_http_files.lua @ 5238:0cc0359d8c39

mod_http_files: Generate simple directory index.
author Kim Alvefur <zash@zash.se>
date Tue, 11 Dec 2012 23:40:30 +0100
parent 5237:b1038f449e15
child 5247:9257f4c47ffa
line wrap: on
line diff
--- a/plugins/mod_http_files.lua	Tue Dec 11 23:21:25 2012 +0100
+++ b/plugins/mod_http_files.lua	Tue Dec 11 23:40:30 2012 +0100
@@ -15,6 +15,7 @@
 
 local http_base = module:get_option_string("http_files_dir", module:get_option_string("http_path", "www_files"));
 local dir_indices = module:get_option("http_files_index", { "index.html", "index.htm" });
+local show_file_list = module:get_option_boolean("http_files_show_list");
 
 local mime_map = module:shared("mime").types;
 if not mime_map then
@@ -79,8 +80,28 @@
 			end
 		end
 
-		-- TODO File listing
-		return 403;
+		if not show_file_list then
+			return 403;
+		else
+			local html = require"util.stanza".stanza("html")
+				:tag("head"):tag("title"):text(path):up()
+					:tag("meta", { charset="utf-8" }):up()
+				:up()
+				:tag("body"):tag("h1"):text(path):up()
+					:tag("ul");
+			for file in lfs.dir(full_path) do
+				if file:sub(1,1) ~= "." then
+					local attr = stat(full_path..file) or {};
+					html:tag("li", { class = attr.mode })
+						:tag("a", { href = file }):text(file)
+					:up():up();
+				end
+			end
+			data = "<!DOCTYPE html>\n"..tostring(html);
+			cache[path] = { data = html, content_type = mime_map.html; hits = 0 };
+			response.headers.content_type = mime_map.html;
+		end
+
 	else
 		local f = open(full_path, "rb");
 		data = f and f:read("*a");