windows 上 搭建 apache + lua 运行环境
-- Extend tostring to report function type (C or Lua)do local type, tostr = type, tostring function tostring(obj) local type, val = type(obj), tostr(obj) if type == "function" then type = pcall(coroutine.create, obj) and "Lua " or "C " -- coroutines cannot start at a C function return type .. val else return val end endendlocal safe_replacements = { ["<"] = "<", [">"] = ">", ["&"] ="&",}local function safestring(...) return tostring(...):gsub("[<>&]", safe_replacements):gsub("\n", "<br/>\n")endlocal function emstring(...) return ""<em>".. safestring(...) .."</em>""endlocal function print_info(info) print [[<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"><html> <head> <title>mod_lua info</title> <style type="text/css"> body { background-color: #eef;color: black;font-family: sans-serif; } table { border-collapse: collapse;text-align: left;margin-left: auto;margin-right: auto; } table.head th { vertical-align: middle;background-color: #99c; } div.center { text-align: center; } h1 { margin: 0;padding: 0.3em 0; } td, th { border: 1px black solid;vertical-align: baseline;font-size: 75%; } th { background-color: #ccf; } td { background-color: #ccc; } ul { list-style: square;margin: 0;padding-left: 2em; } </style> </head> <body> <div width="600"> <tr> <th><h1>mod_lua</h1></th> </tr> </table>]] for group, settings in pairs(info) do print('<h2><a name="'.. group:gsub("[^a-zA-Z]", "") ..'">'.. group .. "</a></h2>") print [[ <table width="600">]] for key, value in pairs(settings) do print("<tr> <th>".. key .."</th> <td>".. value .."</td> </tr>\n") end print "</table>\n" end print [[ </div> </body></html>]]endlocal function compile_info(req) local info = {} do -- Lua compile options local dump = string.dump(function() end) local gc_pause = collectgarbage("setpause", 1); collectgarbage("setpause", gc_pause) local gc_stepmul = collectgarbage("setstepmul", 2); collectgarbage("setstepmul", gc_stepmul) info["Lua configuration"] = { -- Bytecode header is undocumented, see luaU_header in lundump.c Version = ("%i.%i"):format(math.floor(dump:byte(5) / 16), dump:byte(5) % 16), Endianness = dump:byte(7) == 1 and "little" or "big", int = dump:byte(8)*8 .. " bit integer", size_t = dump:byte(9)*8 .. " bit integer", ["VM instruction"] = dump:byte(10)*8 .. " bit integer", Number = dump:byte(11)*8 .. " bit " .. (dump:byte(12) == 1 and "integer" or "float"), -- package.config is undocumented, see luaopen_package in loadlib.c ["Path seperator"] = safestring(package.config:sub(1,1)), ["Lua package path"] = safestring(package.path:gsub(package.config:sub(3,3), "\n")), ["C package path"] = safestring(package.cpath:gsub(package.config:sub(3,3), "\n")), -- Garbage collection values _are_ documented :) ["GC count"] = ("%.0f bytes"):format(collectgarbage"count" * 1024), ["GC pause"] = ("%.0f%%"):format(gc_pause), ["GC step multiplier"] = ("%.0f%%"):format(gc_stepmul), } end do -- Globals local g = {} for key, value in pairs(getfenv(0)) do local typev = type(value) local str if typev == "table" then str = safestring(value) if value ~= getfenv(0) then -- don't recursively follow _G str = str .. "<ul>" for field, v in pairs(value) do str = str .. "<li>" .. safestring(field) .. " (" if type(v) == "string" then str = str .. emstring(v) else str = str .. safestring(v) end str = str .. ")</li>" end str = str .. "</ul>" end elseif typev == "string" then str = emstring(value) else str = safestring(value) end g[safestring(key)] = str end info.Globals = g end do -- Request object local rinfo = {} for _, field in pairs{"puts", "write", "document_root", "parseargs", "parsebody", "debug", "info", "notice", "warn", "err", "crit", "alert", "emerg", "add_output_filter", "assbackwards", "status", "protocol", "range", "content_type", "content_encoding", "ap_auth_type", "unparsed_uri", "user", "filename", "canonical_filename", "path_info", "args", "hostname", "uri", "the_request", "method", "headers_in", "headers_out"} do local value = req[field] if type(value) == "userdata" and apr_table and apr_table.pairs then local list = "<ul>" for key, value in apr_table.pairs(value) do list = list .. "<li>" .. safestring(key) .. " (" .. emstring(value) .. ")</li>" end rinfo[field] = tostring(req[field]) .. list .. "</ul>" elseif type(value) == "string" then rinfo[field] = emstring(req[field]) else rinfo[field] = safestring(req[field]) end end info.Request = rinfo end do -- Arguments (query string) local args = req:parseargs() local args_clean = {} for key, value in pairs(args) do args_clean[safestring(key)] = emstring(value) end if next(args_clean) then info["Query string"] = args_clean end end return infoendfunction handle(r) -- setup the environment r.content_type = "text/html" r.headers_out["X-Powered-By"] = "mod_lua; " .. _VERSION print = function(s) return r:write(tostring(s)) end -- run the main script local info = compile_info(r) print_info(info) -- finish return apache2.OKend
?hello_world.lua
require "apache2"function handle(r) r.content_type = "text/html" r:write "Hello World from <strong>mod_lua</strong>." return apache2.OKend
?
如果要配置 apache2.4 + php 请参见我上一个帖子
?
