diff options
author | Kim Alvefur <zash@zash.se> | 2012-04-23 23:37:43 +0200 |
---|---|---|
committer | Kim Alvefur <zash@zash.se> | 2012-04-23 23:37:43 +0200 |
commit | 7ca291e03f0485ce227715ce00b787e1586098c9 (patch) | |
tree | 9d41eb0014f78794937cae61055709af56947257 /plugins/mod_httpserver.lua | |
parent | e34e6c0a91c97f30c09a4b2b55596c68eea28863 (diff) | |
download | prosody-7ca291e03f0485ce227715ce00b787e1586098c9.tar.gz prosody-7ca291e03f0485ce227715ce00b787e1586098c9.zip |
mod_httpserver: Rename to mod_http_files
Diffstat (limited to 'plugins/mod_httpserver.lua')
-rw-r--r-- | plugins/mod_httpserver.lua | 86 |
1 files changed, 0 insertions, 86 deletions
diff --git a/plugins/mod_httpserver.lua b/plugins/mod_httpserver.lua deleted file mode 100644 index bc9cbcd3..00000000 --- a/plugins/mod_httpserver.lua +++ /dev/null @@ -1,86 +0,0 @@ --- Prosody IM --- Copyright (C) 2008-2010 Matthew Wild --- Copyright (C) 2008-2010 Waqas Hussain --- --- This project is MIT/X11 licensed. Please see the --- COPYING file in the source package for more information. --- - -module:depends("http"); -local lfs = require "lfs"; - -local open = io.open; -local stat = lfs.attributes; - -local http_base = module:get_option_string("http_path", "www_files"); - -local response_400 = "<h1>Bad Request</h1>Sorry, we didn't understand your request :("; -local response_403 = "<h1>Forbidden</h1>You don't have permission to view the contents of this directory :("; -local response_404 = "<h1>Page Not Found</h1>Sorry, we couldn't find what you were looking for :("; - --- TODO: Should we read this from /etc/mime.types if it exists? (startup time...?) -local mime_map = { - html = "text/html"; - htm = "text/html"; - xml = "text/xml"; - xsl = "text/xml"; - txt = "text/plain; charset=utf-8"; - js = "text/javascript"; - css = "text/css"; -}; - -local function preprocess_path(path) - if path:sub(1,1) ~= "/" then - path = "/"..path; - end - local level = 0; - for component in path:gmatch("([^/]+)/") do - if component == ".." then - level = level - 1; - elseif component ~= "." then - level = level + 1; - end - if level < 0 then - return nil; - end - end - return path; -end - -function serve_file(request, path) - local response = request.response; - path = path and preprocess_path(path); - if not path then - response.status = 400; - return response:send(response_400); - end - local full_path = http_base..path; - if stat(full_path, "mode") == "directory" then - if stat(full_path.."/index.html", "mode") == "file" then - return serve_file(request, path.."/index.html"); - end - response.status = 403; - return response:send(response_403); - end - local f, err = open(full_path, "rb"); - if not f then - response.status = 404; - return response:send(response_404.."<br/>"..tostring(err)); - end - local data = f:read("*a"); - f:close(); - if not data then - response.status = 403; - return response:send(response_403); - end - local ext = path:match("%.([^.]*)$"); - response.headers.content_type = mime_map[ext]; -- Content-Type should be nil when not known - return response:send(data); -end - -module:provides("http", { - route = { - ["/*"] = serve_file; - }; -}); - |