Mercurial > prosody-modules
view mod_http_dir_listing/http_dir_listing/mod_http_dir_listing.lua @ 3503:882180b459a0
mod_pubsub_post: Restructure authentication and authorization (BC)
This deprecates the default "superuser" actor model and makes the
default equivalent to the previous "request.id".
A single actor and secret per node is supported because HTTP and
WebHooks don't normally include any authorization identity.
Allowing authentication bypass when no secret is given should be
relatively safe when the actor is unprivileged, as will be unless
explicitly configured otherwise.
author | Kim Alvefur <zash@zash.se> |
---|---|
date | Sat, 30 Mar 2019 21:16:13 +0100 |
parents | 7dbde05b48a9 |
children |
line wrap: on
line source
-- Prosody IM -- Copyright (C) 2012 Kim Alvefur -- -- This project is MIT/X11 licensed. Please see the -- COPYING file in the source package for more information. -- module:set_global(); local server = require"net.http.server"; local lfs = require "lfs"; local stat = lfs.attributes; local build_path = require"socket.url".build_path; local base64_encode = require"util.encodings".base64.encode; local tag = require"util.stanza".stanza; local template = require"util.template"; local mime = module:shared("/*/http_files/mime"); local function get_resource(resource) local fh = assert(module:load_resource(resource)); local data = fh:read"*a"; fh:close(); return data; end local dir_index_template = template(get_resource("resources/template.html")); local style = get_resource("resources/style.css"):gsub("url%((.-)%)", function(url) --module:log("debug", "Inlineing %s", url); return "url(data:image/png;base64,"..base64_encode(get_resource("resources/"..url))..")"; end); local function generate_directory_index(path, full_path) local filelist = tag("ul", { class = "filelist" } ):text"\n"; if path ~= "/" then filelist:tag("li", { class = "parent directory" }) :tag("a", { href = "..", rel = "up" }):text("Parent Directory"):up():up():text"\n" end local mime_map = mime.types; for file in lfs.dir(full_path) do if file:sub(1,1) ~= "." then local attr = stat(full_path..file) or {}; local path = { file }; local file_ext = file:match"%.([^.]+)$"; local type = attr.mode == "file" and file_ext and mime_map and mime_map[file_ext] or nil; local class = table.concat({ attr.mode or "unknown", file_ext, type and type:match"^[^/]+" }, " "); path.is_directory = attr.mode == "directory"; filelist:tag("li", { class = class }) :tag("a", { href = build_path(path), type = type }):text(file):up() :up():text"\n"; end end return "<!DOCTYPE html>\n"..tostring(dir_index_template.apply{ path = path, style = style, filelist = filelist, footer = "Prosody "..prosody.version, }); end module:hook_object_event(server, "directory-index", function (event) local ok, data = pcall(generate_directory_index, event.path, event.full_path); if ok then return data end module:log("warn", data); end);